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
|
