1 ! Copyright (C) 2009 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: kernel accessors combinators.smart sorting.human
4 models colors.constants present
5 ui ui.gadgets.tables ui.gadgets.scrollers ;
8 ! ui.gadgets.tables demo
9 SINGLETON: color-renderer
11 M: color-renderer filled-column
14 M: color-renderer column-titles
15 drop { "Name" "Red" "Green" "Blue" } ;
17 M: color-renderer row-columns
22 [ blue>> present ] tri
25 M: color-renderer row-color
28 M: color-renderer row-value
31 : <color-table> ( -- table )
32 named-colors human-sort <model>
36 COLOR: dark-gray >>column-line-color
40 : color-table-demo ( -- )
41 [ <color-table> <scroller> "Colors" open-window ] with-ui ;
43 MAIN: color-table-demo