[Win32forth-cvs] win32forth/src/console Console1.f, 1.5, 1.6 NewConsole.f, 1.30, 1.31

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

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

Modified Files:
	Console1.f NewConsole.f 
Log Message:
Fixed SHIFTMASK

Index: NewConsole.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/NewConsole.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** NewConsole.f	19 Nov 2008 13:31:03 -0000	1.30
--- NewConsole.f	17 Dec 2008 10:17:23 -0000	1.31
***************
*** 335,339 ****
                  ['] c_pushkey         IS PUSHKEY
                  ['] c_"pushkeys       IS "PUSHKEYS
-                 ['] X_SHIFTMASK       IS SHIFTMASK
                  ['] c_cls             IS CLS
                  ['] c_emit            IS EMIT
--- 335,338 ----

Index: Console1.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/Console1.f,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -d -r1.5 -r1.6
*** Console1.f	2 Sep 2008 07:01:23 -0000	1.5
--- Console1.f	17 Dec 2008 10:17:23 -0000	1.6
***************
*** 180,184 ****
  
  1 PROC GetKeyState
! : x_shiftmask   ( -- mask )
                  0
                  17 ( VK_CONTROL ) Call GetKeyState 32768 and \ if control is down
--- 180,184 ----
  
  1 PROC GetKeyState
! : shiftmask     ( -- mask )
                  0
                  17 ( VK_CONTROL ) Call GetKeyState 32768 and \ if control is down