ui.gadgets.lists: minor tweak to 'select-gadget'

2008-11-08 15:59:21 -06:00 · 2008-11-08 15:59:21 -06:00 · 8e44e783cf
parent 1280ed63fe
commit 8e44e783cf
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/lists/lists.factor
+++ b/basis/ui/gadgets/lists/lists.factor
@ -97,7 +97,7 @@ M: list focusable-child* drop t ;
    ] if ;

 : select-gadget ( gadget list -- )
-    swap over children>> index
+    tuck children>> index
    [ swap select-index ] [ drop ] if* ;

 : clamp-loc ( point max -- point )