[Win32forth-cvs] win32forth/apps/WinEd WinEd.f,1.18,1.19

[Rod O. <rod...@us...>]

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]
  
  \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\