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

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

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

Modified Files:
	WebServer.F 
Log Message:
Jos: Enabled MessageLoop and moved a number of  applications to the new console. 
Others will follow...

Index: WebServer.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Internet/WebServer/WebServer.F,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** WebServer.F	7 Jul 2007 18:12:13 -0000	1.3
--- WebServer.F	13 Aug 2008 11:40:54 -0000	1.4
***************
*** 24,28 ****
      Z" Win32Forth - HTTP Web Server" conHndl call SetWindowText drop ;
  
! s" doc\" Prepend<home>\ webpath place
  \ *G the path to the web content
  
--- 24,28 ----
      Z" Win32Forth - HTTP Web Server" conHndl call SetWindowText drop ;
  
! s" Help\html\" Prepend<home>\ webpath place
  \ *G the path to the web content
  
***************
*** 57,61 ****
  \ ** Tell your firewall that Win32Forth is allowed to use port 80. \n
  \ ** Then you should able to see the server in your browser by using: \n
! \ ** http://localhost/p-index.htm \n
  \ ** Assuming that the file p-index.htm is in your webpath. \n
  \ ** When you would like to use the websever over the internet. \n
--- 57,61 ----
  \ ** Tell your firewall that Win32Forth is allowed to use port 80. \n
  \ ** Then you should able to see the server in your browser by using: \n
! \ ** http://localhost/DPANSE.HTM \n
  \ ** Assuming that the file p-index.htm is in your webpath. \n
  \ ** When you would like to use the websever over the internet. \n
***************
*** 67,71 ****
      cls ." The Win32Forth HTTP Web Server is running." cr
  
!     server-choose-path
  
      cr ." webpath = " webpath count type cr
--- 67,71 ----
      cls ." The Win32Forth HTTP Web Server is running." cr
  
!     server-choose-path  ( EG: ~\win32forth\Help\html\dpans )
  
      cr ." webpath = " webpath count type cr
***************
*** 81,85 ****
  
  also hidden
! 
  : www-server-hello ( -- )  \ startup stuff
          \ default initialization (needed for all turnkey apps)
--- 81,85 ----
  
  also hidden
! ((
  : www-server-hello ( -- )  \ startup stuff
          \ default initialization (needed for all turnkey apps)
***************
*** 97,100 ****
--- 97,115 ----
          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