[Win32forth-cvs] win32forth/src/console NoConsole.f,1.5,1.6

[Dirk B. <db...@us...>]

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