ui.gadgets.tables: implement cell-dim and draw-cell for the f class

2016-08-11 01:47:20 +03:00 · 2016-08-11 01:47:20 +03:00 · 2c30b2f243
parent fa5441f70a
commit 2c30b2f243
1 changed files with 3 additions and 0 deletions
--- a/basis/ui/gadgets/tables/tables.factor
+++ b/basis/ui/gadgets/tables/tables.factor
@ -67,6 +67,9 @@ rows ;
 GENERIC: cell-dim ( font cell -- width height padding )
 GENERIC: draw-cell ( font cell -- )

+M: f cell-dim 2drop 0 0 0 ;
+M: f draw-cell 2drop ;
+
 : single-line ( str -- str' )
    dup [ "\r\n" member? ] any? [ string-lines " " join ] when ;