[Win32forth-cvs] win32forth/src/console NewConsole.f,1.18,1.19

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

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24368/console

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

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** NewConsole.f	15 Aug 2008 21:00:18 -0000	1.18
--- NewConsole.f	16 Aug 2008 13:31:47 -0000	1.19
***************
*** 175,179 ****
          ; ))
  
! 32 NEWUSER MessageStructure 
  
  : MessageLoop ( -- )
--- 175,179 ----
          ; ))
  
! 32 NEWUSER MessageStructure
  
  : MessageLoop ( -- )
***************
*** 413,423 ****
  
  : New-default-hello ( -- )                          \ for turnkey
!                 initialization-chain do-chain
!                 exception@ if bye then
!                 get-commandline                 \ commandline to SOURCE
!                 default-application
!                 ;
  
! ' New-default-hello is default-hello
  
  MODULE
--- 413,454 ----
  
  : New-default-hello ( -- )                          \ for turnkey
!         initialization-chain do-chain
!         exception@ if bye then
!         get-commandline  beep               \ commandline to SOURCE
!         default-application
!         ;
  
! ' New-default-hello is default-hello   \ turnkey is default
! 
! : hello-console-application ( -- )    \ for applications in the console
!         initialization-chain do-chain \ default initialization (needed for all apps )
!         init-console drop             \ start console ( will be seen )
!         unset-except set-except       \ exception handling needs to be set after the console is started
!         exception@ if bye then
!         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
!         ;
! 
! 
! : hello-application ( -- )  \ start an application in its own window (hidden console)
!         initialization-chain do-chain
!         NewConsole
!         init-console drop             \ start console ( will NOT be seen )
!         unset-except set-except       \ exception handling needs to be set after the console is started
!         exception@ if bye then
!         StopLaunching not             \ if instance allowed to run
!         if default-application then   \ then run it
!  ;
! 
! : in-hidden-console ( -- ) \ changes default-hello for hidden console applications
!    ['] hello-application  is  default-hello
!  ;
! 
! : in-console ( -- ) \ changes default-hello for applications in a visible console
!   ['] hello-console-application  is  default-hello
!  ;
  
  MODULE