Menu
▾
▴
[Win32forth-cvs] win32forth/apps/Console-Games strek.f, 1.1, 1.2 tetris.f, 1.1, 1.2
|
From: Jos v.d.V. <jo...@us...> - 2008-08-13 11:40:48
|
Update of /cvsroot/win32forth/win32forth/apps/Console-Games In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5118/Console-Games Modified Files: strek.f tetris.f Log Message: Jos: Enabled MessageLoop and moved a number of applications to the new console. Others will follow... Index: strek.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/strek.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** strek.f 21 Oct 2006 09:09:10 -0000 1.1 --- strek.f 13 Aug 2008 11:40:41 -0000 1.2 *************** *** 138,141 **** --- 138,142 ---- true value create-turnkey? \ set to false when you don't want a turnkey app + \ false value create-turnkey? \ set to false when you don't want a turnkey app warning off *************** *** 1561,1575 **** \ default initialization (needed for all turnkey apps) ! init-console ! if initialization-chain do-chain then exception@ if bye then \ our own initialization menu-off \ close menubar ! ['] _interpret is interpret \ close the statusbar ! Destroy: ConsoleStatusbar set-console-title \ set window title init-screen \ show console - get-commandline \ copy commandline to SOURCE default-application \ and run our app --- 1562,1575 ---- \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop ! unset-except set-except \ exception handling needs to be set after the console is started exception@ if bye then \ our own initialization menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar set-console-title \ set window title init-screen \ show console get-commandline \ copy commandline to SOURCE default-application \ and run our app Index: tetris.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/tetris.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** tetris.f 21 Oct 2006 09:09:10 -0000 1.1 --- tetris.f 13 Aug 2008 11:40:41 -0000 1.2 *************** *** 17,20 **** --- 17,21 ---- true value create-turnkey? \ set to false when you don't want a turnkey app + \ false value create-turnkey? \ set to false when you don't want a turnkey app warning off *************** *** 398,402 **** create-turnkey? if bye \ quit our turnkey application ! else 0 23 at-xy cr then ; --- 399,403 ---- create-turnkey? if bye \ quit our turnkey application ! else 0 24 at-xy cr then ; *************** *** 413,427 **** \ default initialization (needed for all turnkey apps) ! init-console ! if initialization-chain do-chain then exception@ if bye then \ our own initialization menu-off \ close menubar ! ['] _interpret is interpret \ close the statusbar ! Destroy: ConsoleStatusbar set-console-title \ set window title init-screen \ show console - get-commandline \ copy commandline to SOURCE default-application \ and run our app --- 414,427 ---- \ default initialization (needed for all turnkey apps) ! initialization-chain do-chain ! init-console drop exception@ if bye then + unset-except set-except \ exception handling needs to be set after the console is started \ our own initialization menu-off \ close menubar ! HideStatusBar: ConsoleWindow \ close the statusbar set-console-title \ set window title init-screen \ show console get-commandline \ copy commandline to SOURCE default-application \ and run our app |
