factor/basis/ui/gadgets/handler/handler.factor

USING: kernel assocs ui.gestures ui.gadgets.wrappers accessors ;

IN: ui.gadgets.handler

TUPLE: handler < wrapper table ;

: <handler> ( child -- handler ) handler new-wrapper ;

M: handler handle-gesture ( gesture gadget -- ? )
   tuck table>> at dup [ call f ] [ 2drop t ] if ;