Update of /cvsroot/win32forth/win32forth/demos
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15096
Modified Files:
MDIExample.f
Log Message:
Jos: Adapted for the new console. Remarks for the Vista and also changed :
0 call PostQuitMessage drop closes the window, but does not end the process, BYE does.
When you run GO and make a turnkey then the turnkey does not work
Index: MDIExample.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/demos/MDIExample.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** MDIExample.f 14 Jan 2006 12:28:21 -0000 1.3
--- MDIExample.f 17 Aug 2008 12:59:26 -0000 1.4
***************
*** 166,170 ****
:M On_Done: ( -- )
! Turnkeyed? IF 0 call PostQuitMessage drop THEN
On_Done: Super
;M
--- 166,170 ----
:M On_Done: ( -- )
! Turnkeyed? IF bye THEN
On_Done: Super
;M
***************
*** 285,289 ****
New
Cascade
! Turnkeyed? IF Begin key drop again THEN
;
--- 285,290 ----
New
Cascade
! Turnkeyed? \ IF Begin key drop again THEN
! IF Begin messageloop again THEN
;
***************
*** 293,298 ****
MODULE
- go
-
cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack
! [IF] ' go turnkey MDIExample 5 pause-seconds bye [THEN]
--- 294,300 ----
MODULE
cr .( Save MDIExample.exe [Y/N]: ) key dup emit dup 121 = swap 89 = or nostack
! [IF] ' go turnkey MDIExample.exe 5 pause-seconds bye
! [ELSE] go
! [THEN]
! \s
|
