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