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
|
