<color-table> ( -- table )

Vocabulary

color-table

Inputs

None

Outputs

table

an object

Definition

USING: accessors colors kernel models sorting.human
ui.gadgets.search-tables ;

IN: color-table

: <color-table> ( -- table )
    named-colors humani-sort <model> color-renderer
    [ ] <search-table> dup table>> 5 >>gap
    COLOR: dark-gray >>column-line-color 10 >>min-rows
    10 >>max-rows drop ;