USING: accessors arrays ascii assocs boxes calendar classes columns
combinators combinators.short-circuit deques fry kernel make math
math.order math.parser math.vectors namespaces sequences sets system
-timers ui.gadgets ui.gadgets.private words locals ui.gadgets.editors ;
+timers ui.gadgets ui.gadgets.private words locals ;
IN: ui.gestures
: get-gesture-handler ( gesture gadget -- quot )
[ gesture>> ] [ world>> world-focus ] bi
[ handle-gesture ] with each-parent drop ;
+GENERIC: preedit? ( gadget -- ? )
+
+M: gadget preedit? drop f ;
+
:: propagate-key-gesture ( gesture world -- )
world world-focus preedit? [
gesture world \ propagate-key-gesture-tuple queue-gesture