         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
 

        [ 2dup ] 2dip column-loc draw-text
    ] dip table-gap + 0 2array gl-translate ;

: draw-row ( columns widths align font -- )
    '[ [ _ ] 3dip draw-column ] 3each ;

: each-slice-index ( from to seq quot -- )
    [ [ <slice> ] [ drop [a,b) ] 3bi ] dip 2each ; inline

: column-alignment ( table -- seq )
    dup column-alignment>>
    [ ] [ column-widths>> length 0 <repetition> ] ?if ;

: draw-rows ( table -- )
    {

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

M: table draw-gadget*
