TUPLE: propagate-key-gesture-tuple gesture world ;
: world-focus ( world -- gadget )
- dup focus>> [ world-focus ] [ ] ?if ;
+ [ focus>> ] [ world-focus ] ?when ;
M: propagate-key-gesture-tuple send-queued-gesture
[ gesture>> ] [ world>> world-focus ] bi
! Note that these are only really useful inside an event
! handler, and that the locations hand-loc and hand-click-loc
-! are in the co-ordinate system of the world which contains
+! are in the coordinate system of the world which contains
! the gadget in question.
SYMBOL: hand-gadget
SYMBOL: hand-world