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

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

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

Modified Files:
	NewConsole.f 
Log Message:
Rod: improved c_key

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.34
retrieving revision 1.35
diff -C2 -d -r1.34 -r1.35
*** NewConsole.f	19 May 2009 18:05:13 -0000	1.34
--- NewConsole.f	29 May 2009 11:28:14 -0000	1.35
***************
*** 238,246 ****
  : c_key ( -- c )   \ keys from WM_KEYDOWN as well
          auto_key
!         1 SetMaxChars: cmd
!         Prompt: cmd
          KeyBufferEmpty: cmd IF  BEGIN  KeysOff: cmd  WaitForMessage  c_key? auto_key? UNTIL  THEN
          GetKey: cmd
!         EndPrompt: cmd
          ;
  
--- 238,250 ----
  : c_key ( -- c )   \ keys from WM_KEYDOWN as well
          auto_key
! \        1 SetMaxChars: cmd
! \        Prompt: cmd
!         ShowCaret: cmd
!         true SetEditing: cmd
          KeyBufferEmpty: cmd IF  BEGIN  KeysOff: cmd  WaitForMessage  c_key? auto_key? UNTIL  THEN
          GetKey: cmd
!         false SetEditing: cmd
!         HideCaret: cmd
! \        EndPrompt: cmd
          ;