Update of /cvsroot/win32forth/win32forth/apps/WinEd
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv18012
Modified Files:
WinEd.f
Log Message:
Rod: added new default-hello to make Wined compatable with the new console
Index: WinEd.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** WinEd.f 25 Jul 2008 21:19:20 -0000 1.18
--- WinEd.f 2 Aug 2008 15:45:48 -0000 1.19
***************
*** 65,78 ****
: Edit-init ( -- xxx )
- (( [DEFINED] M_INIT-CONSOLE not [IF]
- initialization-chain do-chain
- init-console drop
- exception@ if bye then
- unset-except set-except \ exception handling needs to be set after the console is started
- menu-off \ close menubar
- HideStatusBar: ConsoleWindow \ close the statusbar
- \ set-console-title \ set window title
- \ get-commandline
- [THEN] ))
['] view-before-bye is before-bye \ called by WM_CLOSE
['] viewbye is bye
--- 65,68 ----
***************
*** 128,131 ****
--- 118,136 ----
EXIT ;
+ [DEFINED] C_EMIT [IF] \ When the new console is used
+ : New-default-hello ( -- ) \ startup stuff
+ initialization-chain do-chain
+ NewConsole
+ init-console drop \ start console hidden
+ \ init-screen \ start console visible
+ exception@ if bye then
+ unset-except set-except \ exception handling needs to be set after the console is started
+ exception@ if bye then
+ \ get-commandline \ commandline to SOURCE
+ default-application
+ ;
+
+ ' New-default-hello is default-hello
+ [THEN]
\ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
|
