Merge branch 'master' of git://factorcode.org/git/factor

[factor.git] / basis / ui / windows / windows.factor

diff --git a/basis/ui/windows/windows.factor b/basis/ui/windows/windows.factor
index 8e60ad1bc583f9aed52a78c7a4660816d12d96cc..35ee9f9a600ca2ef67021c3887404487c112af05 100755 (executable)
--- a/basis/ui/windows/windows.factor
+++ b/basis/ui/windows/windows.factor
@@ -183,7 +183,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
 
 : send-key-gesture ( sym action? quot hWnd -- )
     [ [ key-modifiers ] 3dip call ] dip
-    window-focus propagate-gesture ; inline
+    window propagate-key-gesture ; inline
 
 : send-key-down ( sym action? hWnd -- )
     [ [ <key-down> ] ] dip send-key-gesture ;
@@ -215,7 +215,7 @@ SYMBOLS: msg-obj class-name-ptr mouse-captured ;
         ctrl? alt? xor [
             wParam 1string
             [ f hWnd send-key-down ]
-            [ hWnd window-focus user-input ] bi
+            [ hWnd window user-input ] bi
         ] unless
     ] unless ;