From 6f607ed5a98df0f53b5981ae2f8e7472c9931862 Mon Sep 17 00:00:00 2001
From: Sam Anklesaria <sam@Tintin.local>
Date: Thu, 6 Aug 2009 16:31:35 -0500
Subject: [PATCH] fixed ui.gadgets.tables multi-selection bug
---
basis/ui/gadgets/tables/tables.factor | 2 +-
1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/basis/ui/gadgets/tables/tables.factor b/basis/ui/gadgets/tables/tables.factor
index f548c10606..8c400dc68c 100644
--- 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 -- )
[