Menu
▾
▴
[Win32forth-cvs] win32forth/src BootNew.f, 1.1, 1.2 ExtendNew.f, 1.4, 1.5
|
From: Rod O. <rod...@us...> - 2008-07-18 19:44:07
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25951 Modified Files: BootNew.f ExtendNew.f Log Message: Rod: Update of files for the New Console Index: ExtendNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ExtendNew.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** ExtendNew.f 29 Jun 2008 05:12:39 -0000 1.4 --- ExtendNew.f 18 Jul 2008 19:44:03 -0000 1.5 *************** *** 6,10 **** sys-FLOAD src\comment.f FLOAD src\numconv.f \ general number conversions ! ( ******** ) FLOAD src\console\console.f \ Console I/O part 1 FLOAD src\primutil.f \ primitive utilities sys-FLOAD src\nforget.f --- 6,11 ---- sys-FLOAD src\comment.f FLOAD src\numconv.f \ general number conversions ! \ ( ******** ) FLOAD src\console\console.f \ Console I/O part 1 ! ( ******** ) FLOAD src\console\Console1New.f \ Console I/O part 1 - reduced FLOAD src\primutil.f \ primitive utilities sys-FLOAD src\nforget.f *************** *** 32,36 **** FLOAD src\tools\dump.f \ HEX dump ! ( ******** ) FLOAD src\console\console2.f \ Console I/O part 2 sys-FLOAD src\debug.f --- 33,38 ---- FLOAD src\tools\dump.f \ HEX dump ! \ ( ******** ) FLOAD src\console\console2.f \ Console I/O part 2 ! ( ******** ) FLOAD src\console\Console2New.f \ Console I/O part 2 sys-FLOAD src\debug.f *************** *** 44,48 **** sys-FLOAD src\environ.f \ environment? support ! ( ******** ) FLOAD src\console\lineedit.f \ a line editor utility FLOAD src\utils.f \ load other misc utility words --- 46,50 ---- sys-FLOAD src\environ.f \ environment? support ! \ ( ******** ) FLOAD src\console\lineedit.f \ a line editor utility FLOAD src\utils.f \ load other misc utility words *************** *** 77,88 **** FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support ! ( ******** ) FLOAD src\console\forthdlg.f \ some dialogs for the console ! FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project ! FLOAD src\console\ConsoleMenu.f \ menu bar for the console ! ( ******** ) sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window ! : oo ; ! FLOAD NewConsole.f \ FLOAD src\compat\Removed.f \ removed-words dummies --- 79,90 ---- FLOAD src\lib\BROWSEFLD.F \ SHBrowseForFolder() support ! FLOAD src\console\forthdlg.f \ some dialogs for the console ! \ ( ******** ) FLOAD src\keysave.f \ keyboard macro recording FLOAD src\tools\tools.f \ load various tool's when they are needed FLOAD src\lib\LoadProject.f \ Loads the latest known project ! \ ( ******** ) FLOAD src\console\ConsoleMenu.f \ menu bar for the console ! FLOAD src\console\ConsoleMenuNew.f \ menu bar for the console ! \ ( ******** ) sys-FLOAD src\console\ConsoleStatBar.f \ status bar for the console window ! FLOAD src\console\NewConsole.f \ FLOAD src\compat\Removed.f \ removed-words dummies *************** *** 91,95 **** FLOAD src\bootnew.f \ win32forth boot - in-application --- 93,96 ---- *************** *** 105,112 **** cr - w32fForth to NewAppID \ init shared memory for communication [cdo] false to RunUnique \+ SaveInfo SaveInfo WIN32FOR.DBG \ save debugger information fsave Win32for \ save Win32For.EXE --- 106,115 ---- cr w32fForth to NewAppID \ init shared memory for communication [cdo] false to RunUnique + [defined] VIMAGE [if] also VIMAGE [then] + [defined] CONSOLE-DLL? [if] false to CONSOLE-DLL? [then] + \+ SaveInfo SaveInfo WIN32FOR.DBG \ save debugger information fsave Win32for \ save Win32For.EXE Index: BootNew.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/BootNew.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** BootNew.f 16 Jun 2008 03:35:16 -0000 1.1 --- BootNew.f 18 Jul 2008 19:44:03 -0000 1.2 *************** *** 43,50 **** only forth also definitions action-of default-application ['] bye <> to doing-app? ! init-console \ -- f1 ! dup \ init if we created a console IF \ !!!! HAVE TO DO THE INITIALIZATION CHAIN !!!! \ !!!! BEFORE WE USE ANY WINDOWS SYSTEM CALLS !!!! \ More precisely : the very first members of the \ initialization-chain actually do the work of --- 43,51 ---- only forth also definitions action-of default-application ['] bye <> to doing-app? ! GetHandle: ConsoleWindow 0= \ -- f1 ! dup \ init if console does not exist IF \ !!!! HAVE TO DO THE INITIALIZATION CHAIN !!!! \ !!!! BEFORE WE USE ANY WINDOWS SYSTEM CALLS !!!! + \ !!!! AND BEFORE THE NEW CONSOLE IS STARTED !!!! \ More precisely : the very first members of the \ initialization-chain actually do the work of *************** *** 52,60 **** \ this chain subsequent words using Windows calls initialization-chain do-chain - ConsoleTitle \ set title of console window THEN ! \ normal-console ! c_init-console drop 0 call SetFocus drop NewConsole cls hidecursor: cmd exception@ 0= \ -- f1 f2 --- 53,62 ---- \ this chain subsequent words using Windows calls initialization-chain do-chain THEN + NewConsole + init-screen + unset-except set-except \ exception handling needs to be set after the console is started ! \ ConsoleTitle \ Console title is set when console is started exception@ 0= \ -- f1 f2 *************** *** 90,94 **** bye \ terminate when it's done THEN - SetFocus: ConsoleWindow ; --- 92,95 ---- |
