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

char-rename
Alexander Iljin 2016-08-11 01:47:20 +03:00 committed by John Benediktsson
parent fa5441f70a
commit 2c30b2f243
1 changed files with 3 additions and 0 deletions

View File

@ -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 ;