Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4073/src/console
Modified Files:
NoConsole.f
Log Message:
Fixed a bug in the LineEditor
Index: NoConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NoConsole.f 30 Jul 2006 08:59:25 -0000 1.5
--- NoConsole.f 24 Sep 2006 08:17:27 -0000 1.6
***************
*** 89,94 ****
: ResetConsoleIO ( -- ) \ W32F console
! \ *G Reset of the Console I/O after saving turnkey applications that don't need
! \ ** the console window. Done automatically by TURNKEY.
\ set all deferd words for the console window.
--- 89,94 ----
: ResetConsoleIO ( -- ) \ W32F console
! \ *G Reset of the Console I/O after saving an application that don't need
! \ ** the console window. Done automatically by TURNKEY and APPLICATION.
\ set all deferd words for the console window.
***************
*** 135,144 ****
;
warning @ checkstack warning off
! : turnkey ( xt -<prognam>- -- )
['] turnkey catch ResetConsoleIO throw ;
warning !
! \+ VIMAGE also VIMAGE
: NoConsoleInImage ( -- ) \ W32F console
\ *G Tell Imageman that we don't need the w32fconsole.dll if possible.
--- 135,154 ----
;
+ \ We redifine TURNKEY and APPLICATION to reset the the
+ \ Console I/O after writeing the executable. So we can
+ \ see the error messages.
warning @ checkstack warning off
!
! : turnkey ( xt -<prognam>- -- )
['] turnkey catch ResetConsoleIO throw ;
+
+ : application ( app-mem sys-mem xt -<prognam>- -- )
+ ['] application catch ResetConsoleIO throw ;
+
warning !
!
! \+ VIMAGE also VIMAGE
!
: NoConsoleInImage ( -- ) \ W32F console
\ *G Tell Imageman that we don't need the w32fconsole.dll if possible.
***************
*** 146,150 ****
\+ CONSOLE-DLL? false to CONSOLE-DLL?
;
! \+ VIMAGE previous
in-application
--- 156,160 ----
\+ CONSOLE-DLL? false to CONSOLE-DLL?
;
! \+ VIMAGE previous
in-application
|
