steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/gadgets/tables/tables.factor
View File

@ -67,6 +67,9 @@ rows ;
GENERIC: cell-dim ( font cell -- width height padding ) GENERIC: cell-dim ( font cell -- width height padding )
GENERIC: draw-cell ( font cell -- ) GENERIC: draw-cell ( font cell -- )
M: f cell-dim 2drop 0 0 0 ;
M: f draw-cell 2drop ;
: single-line ( str -- str' ) : single-line ( str -- str' )
dup [ "\r\n" member? ] any? [ string-lines " " join ] when ; dup [ "\r\n" member? ] any? [ string-lines " " join ] when ;