         10 >>min-rows
         10 >>max-rows ;
 
-MAIN-WINDOW: color-table-demo { { title "Colors" } }
+MAIN-WINDOW: color-table-demo { { title "Colors" } { pref-dim { 450 300 } } }
     <color-table> <scroller> >>gadgets ;

    drop [
        full-block-string swap
        dup named-color
        [ red>> present ]
        [ green>> present ]
        [ blue>> present ] tri
    ] output>array ;

M: color-renderer row-color

! Copyright (C) 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors colors.constants combinators.smart formatting
kernel literals models sorting.human sorting.slots strings ui
ui.gadgets.scrollers ui.gadgets.tables ;
IN: color-table

! ui.gadgets.tables demo
