ui.gadgets.tables: i think this is clearer.

2012-09-20 17:57:43 -07:00 · 2012-09-20 17:57:43 -07:00 · 7e3391ffb0
parent 98a8230d1c
commit 7e3391ffb0
1 changed files with 6 additions and 10 deletions
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@ -194,16 +194,12 @@ M: table layout*
 : draw-columns ( columns widths alignment font gap -- )
    '[ [ _ ] 3dip _ draw-column ] 3each ;

-M: table draw-line ( row index table -- )
-    [
-        nip
-        [ renderer>> row-columns ]
-        [ column-widths>> ]
-        [ table-column-alignment ]
-        tri
-    ]
-    [ row-font ]
-    [ 2nip gap>> ] 3tri
+M:: table draw-line ( row index table -- )
+    row table renderer>> row-columns
+    table column-widths>>
+    table table-column-alignment
+    row index table row-font
+    table gap>>
    draw-columns ;

 M: table draw-gadget*