forget-rollover fix for Windows (and X11?)

diff --git a/library/ui/gestures.factor b/library/ui/gestures.factor
index 44c8d967728f9bddae3a05966af9d692c7867428..80e1afec87466767a40b5dcba2088423d162d5f3 100644 (file)
--- a/library/ui/gestures.factor
+++ b/library/ui/gestures.factor
@@ -108,8 +108,10 @@ SYMBOL: scroll-direction
     #! After we restore the UI, send mouse leave events to all
     #! gadgets that were under the mouse at the time of the
     #! save, since the mouse is in a different location now.
-    f hand-gadget [ get-global ] 2keep set-global
-    parents hand-gestures ;
+    f hand-world set-global
+    hand-gadget get-global >r
+    f hand-gadget set-global
+    f r> parents hand-gestures ;
 
 : focus-gestures ( new old -- )
     drop-prefix <reversed>