Update of /cvsroot/win32forth/win32forth/src/console
In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8343
Modified Files:
NewConsole.f
Log Message:
Rod: changed c_key? to use PauseForMessages (Winpause)
Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** NewConsole.f 18 Jul 2008 19:46:00 -0000 1.5
--- NewConsole.f 21 Jul 2008 20:18:39 -0000 1.6
***************
*** 227,232 ****
: c_key? ( -- f )
KeysOff: cmd
! PauseForMessage
! \ PauseForMessages \ Winpause
KeyBufferEmpty: cmd not cmd.VirtualKey or
KeysOn: cmd ;
--- 227,232 ----
: c_key? ( -- f )
KeysOff: cmd
! \ PauseForMessage
! PauseForMessages \ Winpause
KeyBufferEmpty: cmd not cmd.VirtualKey or
KeysOn: cmd ;
|
