color-table: change color table to use search-tables.

diff --git a/extra/color-table/color-table.factor b/extra/color-table/color-table.factor
index b6d419d2e625ad5ec5185b188effc4f5d6840dac..be6be6b3bca767f98da078fbc69b28253cc87c56 100644 (file)
--- a/extra/color-table/color-table.factor
+++ b/extra/color-table/color-table.factor
@@ -3,7 +3,7 @@
 USING: accessors colors.constants colors.hex combinators
 combinators.smart formatting kernel literals models
 sorting.human sorting.slots strings ui ui.gadgets.scrollers
-ui.gadgets.tables ;
+ui.gadgets.search-tables ui.gadgets.tables ;
 IN: color-table
 
 ! ui.gadgets.tables demo
@@ -41,11 +41,12 @@ M: color-renderer row-value
 : <color-table> ( -- table )
     named-colors { human<=> } sort-by <model>
     color-renderer
-    <table>
+    [ ] <search-table>
+        dup table>>
         5 >>gap
         COLOR: dark-gray >>column-line-color
         10 >>min-rows
-        10 >>max-rows ;
+        10 >>max-rows drop ;
 
 MAIN-WINDOW: color-table-demo { { title "Colors" } { pref-dim { 500 300 } } }
     <color-table> <scroller> >>gadgets ;