Update of /cvsroot/win32forth/win32forth/apps/Solipon2
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8055
Modified Files:
SOLIPION.F
Log Message:
Jos: Moved to the new console.
Index: SOLIPION.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/SOLIPION.F,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -d -r1.9 -r1.10
*** SOLIPION.F 3 May 2008 08:44:05 -0000 1.9
--- SOLIPION.F 13 Aug 2008 13:16:08 -0000 1.10
***************
*** 3,7 ****
only forth also definitions
! needs NoConsole.f
needs Resources.f
--- 3,7 ----
only forth also definitions
! \ needs NoConsole.f
needs Resources.f
***************
*** 952,955 ****
--- 952,956 ----
else ekey
then
+
case
13 of Game endof
***************
*** 1044,1052 ****
;
! turnkey? [if]
\ Create the exe-file
&forthdir count &appdir place
! ' solipion turnkey Solipion.exe
\ add the Application icon to the EXE file
--- 1045,1072 ----
;
! : solipon-hello ( -- ) \ startup stuff
! \ 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
! \ init-screen \ show console
! \ get-commandline \ copy commandline to SOURCE
! default-application \ and run our app
! ;
!
!
! turnkey? [if] \ ekey and pushkey can only be used in applications
!
! \ override default-hello with our own one
! ' solipon-hello is default-hello
\ Create the exe-file
&forthdir count &appdir place
! 0 0 ' solipion APPLICATION Solipion.exe
\ add the Application icon to the EXE file
|
