[Win32forth-cvs] win32forth/src/console NewConsole.f,1.33,1.34

[Rod O. <rod...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv23746/src/console

Modified Files:
	NewConsole.f 
Log Message:
Rod: KeysOn flag is now off all the time unless the commandline is being edited.  (Key strokes are sent to the key buffer for type ahead)  This was causing a crash in taskdemo.f if a key was pressed while the tasks were going.

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.33
retrieving revision 1.34
diff -C2 -d -r1.33 -r1.34
*** NewConsole.f	27 Dec 2008 16:07:38 -0000	1.33
--- NewConsole.f	19 May 2009 18:05:13 -0000	1.34
***************
*** 190,197 ****
  
  : c_type ( a n -- )
-         KeysOff: cmd   \ send key strokes to key buffer
          OverwriteTextAtXY: cmd
          PauseForMessages
-         KeysOn: cmd
          ;
  
--- 190,195 ----
***************
*** 236,240 ****
          PauseForMessages   \ Winpause
          KeyBufferEmpty: cmd  not
!         KeysOn: cmd ;
  
  : c_key ( -- c )   \ keys from WM_KEYDOWN as well
--- 234,238 ----
          PauseForMessages   \ Winpause
          KeyBufferEmpty: cmd  not
!         ;
  
  : c_key ( -- c )   \ keys from WM_KEYDOWN as well