fixed ui.gadgets.tables multi-selection bug

diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index f548c10606d7f6716b5926d44711bd632847469e..8c400dc68c341cce0acd3a0427630ee2c7f18aa6 100644 (file)
--- 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 -- )
     [