Menu
▾
▴
[Win32forth-cvs] win32forth/src CALLBACK.f,1.5,1.6 imageman.f,1.9,1.10
|
From: George H. <geo...@us...> - 2006-02-13 14:06:23
|
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 |
