[Win32forth-cvs] win32forth/src/console CommandWindow.f,1.31,1.32

[Jos v.d.V. <jo...@us...>]

Update of /cvsroot/win32forth/win32forth/src/console
In directory sfp-cvs-1.v30.ch3.sourceforge.com:/tmp/cvs-serv24492

Modified Files:
	CommandWindow.f 
Log Message:
Jos: Solving the F12 crash

Index: CommandWindow.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/console/CommandWindow.f,v
retrieving revision 1.31
retrieving revision 1.32
diff -C2 -d -r1.31 -r1.32
*** CommandWindow.f	24 Dec 2012 16:16:45 -0000	1.31
--- CommandWindow.f	28 Jun 2013 12:41:24 -0000	1.32
***************
*** 1217,1222 ****
          ;M
  
! :M WM_KEYDOWN ( h m w l -- res )
!         over  KeysOn IF  dup  HandleKeyDown: self  THEN
          Case   \ these are the codes specified in keyboard.cpp
              VK_F1      of  0x10001  endof
--- 1217,1222 ----
          ;M
  
! :M WM_KEYDOWN ( h m w l -- res ) \ 4
!         drop  KeysOn IF  dup  HandleKeyDown: self  THEN
          Case   \ these are the codes specified in keyboard.cpp
              VK_F1      of  0x10001  endof
***************
*** 1247,1255 ****
          EndCase
          dup
!         IF
!             VK_CONTROL call GetKeyState 32768 and IF  0x40000 or  THEN
              VK_SHIFT   call GetKeyState 32768 and IF  0x80000 or  THEN
          THEN
!         dup IF  LogKeyStrokes  KeysOn IF  dup HandleKeys  THEN  PutKey: self  THEN
          0 ;M
  
--- 1247,1259 ----
          EndCase
          dup
!         IF  VK_CONTROL call GetKeyState 32768 and IF  0x40000 or  THEN
              VK_SHIFT   call GetKeyState 32768 and IF  0x80000 or  THEN
          THEN
!         dup IF  LogKeyStrokes  KeysOn
!                    IF   HandleKeys
!                    ELSE drop
!                    THEN
!             ELSE drop
!             THEN
          0 ;M