[Win32forth-cvs] win32forth/apps/Internet/WebServer WebServer.F, 1.4, 1.5

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

Update of /cvsroot/win32forth/win32forth/apps/Internet/WebServer
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv24353

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

Index: WebServer.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** WebServer.F	13 Aug 2008 11:40:54 -0000	1.4
--- WebServer.F	16 Aug 2008 13:31:35 -0000	1.5
***************
*** 77,123 ****
      ;
  
! \ create a turnkey application
  create-turnkey? [IF]
  
! also hidden
! ((
! : www-server-hello ( -- )  \ startup stuff
!         \ default initialization (needed for all turnkey apps)
!         init-console
!         if initialization-chain do-chain then
!         exception@ if bye then
! 
!         \ our own initialization
!         menu-off                        \ close menubar
!         ['] _interpret is interpret     \ close the statusbar
!         Destroy: ConsoleStatusbar
!         init-screen                     \ show console
! 
!         get-commandline       \ copy commandline to SOURCE
!         default-application   \ and run our app
! ;
! ))
! : www-server-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
! ;
! 
! previous
! 
! \ override default-hello with our own one
! ' www-server-hello is default-hello
  
  \ and create the application
! &forthdir count &appdir place
  0 0 ' www-server APPLICATION WebServer.exe
  1 pause-seconds bye
--- 77,87 ----
      ;
  
! \ create an application that runs in the console
  create-turnkey? [IF]
  
! in-console
  
  \ and create the application
! &forthdir count &appdir place   \ in the Forth-directory
  0 0 ' www-server APPLICATION WebServer.exe
  1 pause-seconds bye