forget-rollover fix for Windows (and X11?)

slava 2006-10-15 05:46:30 +00:00
parent e790b1a48d
commit 0620697603
1 changed files with 4 additions and 2 deletions

View File

@ -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>