[Win32forth-cvs] win32forth/apps/Solipon2 SOLIPION.F,1.9,1.10

[Jos v.d.V. <jo...@us...>]

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