[Win32forth-cvs] win32forth/src/console NoConsole.f,1.3,1.4

[George H. <geo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16655/win32forth/src/console

Modified Files:
	NoConsole.f 
Log Message:
gah:Added ResetConsoleIO and modified turnkey to restore the IO so that if an error occurs it get's reported.

Index: NoConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -d -r1.3 -r1.4
*** NoConsole.f	13 Feb 2006 14:01:20 -0000	1.3
--- NoConsole.f	29 Jul 2006 09:41:12 -0000	1.4
***************
*** 88,91 ****
--- 88,142 ----
          ;
  
+ : 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.
+         \ reset all deferd words for the console window to noop's.
+         ['] NOOP    IS INIT-CONSOLE-REG
+         ['] M_INIT-CONSOLE IS INIT-CONSOLE
+         ['] X_INIT-SCREEN    IS INIT-SCREEN
+         ['] MENUKEY IS KEY
+         ['] _MKEY? IS KEY?
+         ['] _LACCEPT IS ACCEPT
+         ['] X_PUSHKEY   IS PUSHKEY
+         ['] X_"PUSHKEYS   IS "PUSHKEYS
+         ['] K_NOOP1 IS SHIFTMASK
+         ['] NOOP    IS CLS
+         ['] _MEMIT    IS EMIT
+         ['] _MTYPE   IS TYPE
+         ['] _MCRTAB    IS CR
+         ['] _M?CR    IS ?CR
+         ['] FORTH-IO   IS CONSOLE
+         ['] X_GOTOXY   IS GOTOXY
+         ['] X_GETXY IS GETXY
+         ['] X_GETCOLROW IS GETCOLROW
+         ['] X_SIZESTATE IS SIZESTATE
+         ['] X_MARKCONSOLE   IS MARKCONSOLE
+         ['] X_CURSORINVIEW    IS CURSORINVIEW
+         ['] X_FGBG!   IS FGBG!
+         ['] X_FG@ IS FG@
+         ['] X_BG@ IS BG@
+         ['] X_CHARWH IS CHARWH
+         ['] X_SETCHARWH   IS SETCHARWH
+         ['] X_SETCOLROW   IS SETCOLROW
+         ['] X_SET-CURSOR    IS SET-CURSOR
+         ['] X_GET-CURSOR IS GET-CURSOR
+         ['] X_SETROWOFF    IS SETROWOFF
+         ['] X_GETROWOFF IS GETROWOFF
+         ['] X_GETMAXCOLROW IS GETMAXCOLROW
+         ['] X_SETMAXCOLROW   IS SETMAXCOLROW
+         ['] X_&THE-SCREEN IS &THE-SCREEN
+ 
+         \ reset BYE to default
+         ['] k_bye is bye
+ 
+         \ set default-hello for the turnkey application
+         ['] _default-hello is default-hello
+         ;
+ 
+ warning @ checkstack warning off
+ : turnkey   ( xt -<prognam>- -- )
+         ['] turnkey catch ResetConsoleIO throw ;
+ warning !
+ 
          \+ VIMAGE        also VIMAGE
  : NoConsoleInImage      ( -- )  \ W32F console