Fix handler

2008-08-31 19:23:04 -05:00 · 2008-08-31 19:23:04 -05:00 · facc5edeec
parent 29e5ed2adb
commit facc5edeec
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/handler/handler.factor
+++ b/basis/ui/gadgets/handler/handler.factor
@ -8,4 +8,4 @@ TUPLE: handler < wrapper table ;
 : <handler> ( child -- handler ) handler new-wrapper ;

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