         [ last-visible-row ]
         [ control-value ]
         [ line-height ]
-        [ renderer>> ]
-        [ column-widths>> ]
-        [ column-alignment ]
-        [ font>> ]
+        [ ]
     } cleave '[
-        [ 0 ] dip _ * 2array [
-            _ row-columns _ _ _ draw-row
-        ] with-translation
+        [ 0 ] dip _ * 2array
+        [ _ draw-row ] with-translation
     ] each-slice-index ;
 
 M: table draw-gadget*

! Copyright (C) 2008, 2009 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors arrays colors fry kernel math
math.rectangles math.order math.vectors namespaces opengl
sequences ui.gadgets ui.gadgets.scrollers ui.gadgets.status-bar
ui.gadgets.worlds ui.gadgets.theme ui.gestures ui.render ui.text

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

<PRIVATE

