         sans-serif-font >>font
         selection-color >>selection-color
         focus-border-color >>focus-border-color
-        dark-gray >>column-line-color
-        black >>mouse-color
-        black >>text-color ;
+        COLOR: dark-gray >>column-line-color
+        COLOR: black >>mouse-color
+        COLOR: black >>text-color ;
 
 <PRIVATE
 

! Row rendererer protocol
GENERIC: row-columns ( row renderer -- columns )
GENERIC: row-value ( row renderer -- object )

SINGLETON: trivial-renderer

M: trivial-renderer row-columns drop ;
M: object row-value drop ;

TUPLE: table < gadget
renderer filled-column column-alignment action hook

        [ last-visible-row ]
        [ control-value ]
        [ line-height ]
        [ ]
    } cleave '[
        [ 0 ] dip _ * 2array
        [ _ draw-row ] with-translation
    ] each-slice-index ;

M: table draw-gadget*
