From 8e44e783cf4efe4d7f39ddeba396c7b12ac5034f Mon Sep 17 00:00:00 2001 From: Eduardo Cavazos Date: Sat, 8 Nov 2008 15:59:21 -0600 Subject: [PATCH] ui.gadgets.lists: minor tweak to 'select-gadget' --- basis/ui/gadgets/lists/lists.factor | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/basis/ui/gadgets/lists/lists.factor b/basis/ui/gadgets/lists/lists.factor index 62e5b7d780..17fe68721d 100644 --- 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 )