fixed ui.gadgets.tables multi-selection bug

2009-08-06 16:31:35 -05:00 · 2009-08-06 16:31:35 -05:00 · 6f607ed5a9
parent 827d30a95b
commit 6f607ed5a9
1 changed files with 1 additions and 1 deletions
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@ -281,7 +281,7 @@ PRIVATE>
 <PRIVATE

 : set-table-model ( model value multiple? -- )
-    [ multiple>single drop ] unless swap set-model ;
+    [ values ] [ multiple>single drop ] if swap set-model ;

 : update-selected ( table -- )
    [