[Win32forth-cvs] win32forth/apps/Win32ForthIDE Main.f,1.50,1.51

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv27246

Modified Files:
	Main.f 
Log Message:
Jos: Now it can be used with the new console and the old console.
Compile it from the setup after rebuilding Forth.

Index: Main.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v
retrieving revision 1.50
retrieving revision 1.51
diff -C2 -d -r1.50 -r1.51
*** Main.f	30 Jun 2008 02:59:04 -0000	1.50
--- Main.f	20 Jul 2008 12:01:52 -0000	1.51
***************
*** 27,31 ****
  
  load-dialog WINEDIT     \ load the dialogs for WinEd (some of them are recycled here)
- 
  needs Mdi.f
  needs AcceleratorTables.f
--- 27,30 ----
***************
*** 1231,1234 ****
--- 1230,1235 ----
  Initialization-chain Chain-add InitDir
  
+ [DEFINED]  X_EMIT  [IF]  \ Needed when the w32fConsole.dll is loaded
+ 
  : my-hello      ( -- )
                  init-console
***************
*** 1245,1248 ****
--- 1246,1271 ----
                  ' my-hello is default-hello
  
+ [THEN]
+ 
+ [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
+                 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]
+ 
+ 
                  \ create win32forthIDE.exe in the Win32Forth folder
                  &forthdir count &appdir place
***************
*** 1256,1260 ****
                  throw
                  s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon
! 
                  1 pause-seconds bye
  [else]
--- 1279,1283 ----
                  throw
                  s" src\res\SciEditMDI.ico" s" win32forthIDE.exe" Prepend<home>\ AddAppIcon
! 		see emit  	\ To see what console is used
                  1 pause-seconds bye
  [else]