Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5274/win32forth/src
Modified Files:
CALLBACK.f imageman.f
Log Message:
gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build).
Index: CALLBACK.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** CALLBACK.f 17 Dec 2005 15:11:59 -0000 1.5
--- CALLBACK.f 13 Feb 2006 14:06:08 -0000 1.6
***************
*** 232,235 ****
--- 232,242 ----
HandleMessages-init
+ 5 proc PeekMessage
+
+ :Noname ( -- )
+ { \ hwnd mess wparm lparm time pt.x pt.y -- }
+ BEGIN PM_REMOVE 0 0 0 &of hwnd Call PeekMessage
+ WHILE &of hwnd HandleMessages drop
+ REPEAT ; is winpause
\ A Win32Forth-message example:
Index: imageman.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** imageman.f 15 Sep 2005 16:36:09 -0000 1.9
--- imageman.f 13 Feb 2006 14:06:09 -0000 1.10
***************
*** 145,153 ****
IN-SYSTEM
VOCABULARY VIMAGE
ALSO VIMAGE DEFINITIONS
- BASE @ DECIMAL NOSTACK1
-
SYS-FLOAD SRC\IMAGEHDS.F \ image header file
--- 145,160 ----
IN-SYSTEM
+ BASE @ DECIMAL NOSTACK1
+
+ \ Moved the 2 values to the Forth Vocabulary to be Findable.
+
+ TRUE VALUE CONSOLE-DLL? \ W32F Forth System Imageman
+ \ *G Set to true if your app needs the w32fConsole.dll.
+ FALSE VALUE SCINTILLA-DLL? \ W32F Forth System Imageman
+ \ *G Set to true if your app needs the w32fScintilla.dll.
+
VOCABULARY VIMAGE
ALSO VIMAGE DEFINITIONS
SYS-FLOAD SRC\IMAGEHDS.F \ image header file
***************
*** 664,670 ****
GUI VALUE EXETYPE
- TRUE VALUE CONSOLE-DLL? \ set to true if your app needs the w32fConsole.dll
- FALSE VALUE SCINTILLA-DLL? \ set to true if your app needs the w32fScintilla.dll
-
: std-IMG2EXE ( addr len -- ) \ compose STD image, addr/len is name
--- 671,674 ----
***************
*** 956,963 ****
r> is default-application \ calls default application after init
&except off \ no previous exceptions...
! fsave
is default-application
is boot
! ;
: TURNKEY ( cfa -<name>- ) \ create application "name" that runs
--- 960,967 ----
r> is default-application \ calls default application after init
&except off \ no previous exceptions...
! ['] fsave catch >r
is default-application
is boot
! r> throw ;
: TURNKEY ( cfa -<name>- ) \ create application "name" that runs
***************
*** 965,977 ****
dup>r sys-addr? abort" Can't TURNKEY a system word!"
ignore-missing-procs?
! true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS !
defer@ INIT-CONSOLE ['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console
! SYS-SIZE 0 ['] SYS-SIZE >BODY ! \ set system free space to zero, no system
! FALSE to with-source? \ no source level debugging
! 0 0 r> application \ calls default application after init
['] SYS-SIZE >BODY !
is INIT-CONSOLE
to ignore-missing-procs?
! ;
PREVIOUS
--- 969,981 ----
dup>r sys-addr? abort" Can't TURNKEY a system word!"
ignore-missing-procs?
! true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS !
defer@ INIT-CONSOLE ['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console
! SYS-SIZE 0 ['] SYS-SIZE >BODY ! \ set system free space to zero, no system
! FALSE to with-source? \ no source level debugging
! 0 0 r> ['] application catch >r \ calls default application after init
['] SYS-SIZE >BODY !
is INIT-CONSOLE
to ignore-missing-procs?
! r> throw ;
PREVIOUS
|
