[Win32forth-cvs] win32forth/src Window.f,1.30,1.31

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

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

Modified Files:
	Window.f 
Log Message:
Jos bugfix in wm_keydown

Index: Window.f
===================================================================
RCS file: /cvsroot/win32forth/win32forth/src/Window.f,v
retrieving revision 1.30
retrieving revision 1.31
diff -C2 -d -r1.30 -r1.31
*** Window.f	23 Mar 2013 22:00:33 -0000	1.30
--- Window.f	28 Jun 2013 11:29:05 -0000	1.31
***************
*** 683,687 ****
  
  :M WM_KEYDOWN   ( h m w l -- res )
!                 over
          case    VK_F1      of  K_F1     vga-skey  endof
                  VK_F2      of  K_F2     vga-skey  endof
--- 683,687 ----
  
  :M WM_KEYDOWN   ( h m w l -- res )
!         swap
          case    VK_F1      of  K_F1     vga-skey  endof
                  VK_F2      of  K_F2     vga-skey  endof
***************
*** 708,712 ****
                  VK_NEXT    of  K_PGDN   vga-skey  endof
          endcase
!                 0 ;M
  
  : set-mousexy   ( l -- )
--- 708,712 ----
                  VK_NEXT    of  K_PGDN   vga-skey  endof
          endcase
!         drop   0 ;M
  
  : set-mousexy   ( l -- )