[Win32forth-cvs] win32forth/apps/ForthForm FORTHFORM.F,1.18,1.19

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

Update of /cvsroot/win32forth/win32forth/apps/ForthForm
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv23327

Modified Files:
	FORTHFORM.F 
Log Message:
Jos: Solved the bye problem in the Forth-console.

Index: FORTHFORM.F
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/ForthForm/FORTHFORM.F,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** FORTHFORM.F	21 Feb 2007 20:52:54 -0000	1.18
--- FORTHFORM.F	24 Feb 2007 20:17:22 -0000	1.19
***************
*** 196,200 ****
  			if      s" Win32Forth*IDE" "SetToForeground drop
  			else    s" Win32ForthIDE.exe" PrePend<Home>\
! 				GetHandle: TheMainWindow ExecuteFile
  			then  ;
  
--- 196,201 ----
  			if      s" Win32Forth*IDE" "SetToForeground drop
  			else    s" Win32ForthIDE.exe" PrePend<Home>\
! \ 				GetHandle: TheMainWindow
!         CONHNDL ExecuteFile
  			then  ;
  
***************
*** 1003,1007 ****
  
  : FForm         ( -- )
-                 init-msg-buffer
  \+ sysgen       check-if-running
                  init-forthform
--- 1004,1007 ----
***************
*** 1016,1020 ****
--- 1016,1025 ----
  
  also forth definitions
+ 
+ : EndForthForm ( -- )
+ 	doCloseAllForms  false fform-started  k_bye	;
+ 
  : ff            ( -- )    \ main executable word
+                 ['] EndForthForm is bye
                  ['] FForm catch ExitOnError ;