basis/ui/gadgets/handler/handler.factor

   1
   2 USING: kernel assocs ui.gestures ui.gadgets.wrappers accessors ;
   3
   4 IN: ui.gadgets.handler
   5
   6 TUPLE: handler < wrapper table ;
   7
   8 : <handler> ( child -- handler ) handler new-wrapper ;
   9
  10 M: handler handle-gesture ( gesture gadget -- ? )
  11    tuck table>> at dup [ call f ] [ 2drop t ] if ;