[Win32forth-cvs] win32forth/apps/Console-Games strek.f, 1.2, 1.3 tetris.f, 1.2, 1.3

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

Update of /cvsroot/win32forth/win32forth/apps/Console-Games
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24329/Console-Games

Modified Files:
	strek.f tetris.f 
Log Message:
Jos: To simplify console applications. Saving boring cut and past actions.

Index: strek.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/strek.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** strek.f	13 Aug 2008 11:40:41 -0000	1.2
--- strek.f	16 Aug 2008 13:31:24 -0000	1.3
***************
*** 1534,1539 ****
--- 1534,1543 ----
  ;
  
+ : set-console-title ( -- )
+          Z" Super Star Trek" CONHNDL call SetWindowText drop ;
+ 
  : strek ( -- )
  \         page
+         set-console-title
          cr cr
          cr ."                           ------*------, "
***************
*** 1551,1587 ****
  ;
  
! \ create a turnkey application
! create-turnkey? [IF]
! 
! : set-console-title ( -- )
!          Z" Super Star Trek" CONHNDL call SetWindowText drop ;
! 
! also hidden
! 
! : strek-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
!         set-console-title               \ set window title
!         init-screen                     \ show console
!         get-commandline       \ copy commandline to SOURCE
!         default-application   \ and run our app
! ;
  
! previous
  
! \ override default-hello with our own one
! ' strek-hello is default-hello
  
! \ and create the turnkey app.
! &forthdir count &appdir place
  0 0 ' strek APPLICATION StarTrek.exe
  1 pause-seconds bye
  
--- 1555,1569 ----
  ;
  
! \ create an application that runs in the console
  
! create-turnkey? [IF]
  
! \ override default-hello to start
! in-console     \ the application in a visible console
  
! \ create the application
! &forthdir count &appdir place  \ in the Forth-directory
  0 0 ' strek APPLICATION StarTrek.exe
+ 
  1 pause-seconds bye
  

Index: tetris.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Console-Games/tetris.f,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** tetris.f	13 Aug 2008 11:40:41 -0000	1.2
--- tetris.f	16 Aug 2008 13:31:24 -0000	1.3
***************
*** 390,395 ****
  forth definitions
  
  : tt            \ --- ; play the tetris game
!                 initialize
                  s"  Press any key " bottom-msg key drop draw-bottom
                  begin
--- 390,398 ----
  forth definitions
  
+ : set-console-title ( -- )
+          Z" Tetris" CONHNDL call SetWindowText drop ;
+ 
  : tt            \ --- ; play the tetris game
! 		set-console-title  initialize
                  s"  Press any key " bottom-msg key drop draw-bottom
                  begin
***************
*** 403,438 ****
  
  
! \ create a turnkey application
  create-turnkey? [IF]
  
! : set-console-title ( -- )
!          Z" Tetris" CONHNDL call SetWindowText drop ;
! 
! also hidden
! 
! : tetris-hello ( -- )  \ startup stuff
! 
!         \ 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
! ;
! 
! previous
! 
! \ override default-hello with our own one
! ' tetris-hello is default-hello
  
! \ and create the turnkey app.
! &forthdir count &appdir place
  0 0 ' tt APPLICATION tetris.exe
  1 pause-seconds bye
--- 406,417 ----
  
  
! \ create an application in the console
  create-turnkey? [IF]
  
! \ override default-hello to start
! in-console     \ the application in a visible console
  
! \ create the application
! &forthdir count &appdir place   \ in the Forth-directory
  0 0 ' tt APPLICATION tetris.exe
  1 pause-seconds bye