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 ;
|
