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