Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17545
Modified Files:
NewConsole.f
Log Message:
Jos: Made turnkey behave like the previous versions of Win32Forth.
That means you do not have to enter a messageloop manualy after starting the EXE of a turnkey.
Also removed the test beep.
Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.19
retrieving revision 1.20
diff -C2 -d -r1.19 -r1.20
*** NewConsole.f 16 Aug 2008 13:31:47 -0000 1.19
--- NewConsole.f 17 Aug 2008 20:59:02 -0000 1.20
***************
*** 412,420 ****
' menukey-more is LogKeyStrokes
! : New-default-hello ( -- ) \ for turnkey
initialization-chain do-chain
exception@ if bye then
! get-commandline beep \ commandline to SOURCE
default-application
;
--- 412,421 ----
' menukey-more is LogKeyStrokes
! : New-default-hello ( -- ) \ for turnkey
initialization-chain do-chain
exception@ if bye then
! get-commandline \ commandline to SOURCE
default-application
+ Messageloop
;
|
