diff --git a/extra/color-table/color-table.factor b/extra/color-table/color-table.factor index b6d419d2e6..be6be6b3bc 100644 --- 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 : ( -- table ) named-colors { human<=> } sort-by color-renderer - + [ ] + 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 } } } >>gadgets ;