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

core-text: better check.

db4
John Benediktsson 2012-11-01 16:43:26 -07:00
parent 4e4dd58c40
commit 39859f21dc
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/core-text/core-text.factor
View File

@ -117,7 +117,7 @@ render-loc render-dim ;
:: <line> ( font string -- line ) :: <line> ( font string -- line )
[ [
line new-disposable line new-disposable
font retina? [ cache-font@2x ] [ cache-font ] if :> open-font font retina? get-global [ cache-font@2x ] [ cache-font ] if :> open-font
string open-font font foreground>> <CTLine> |CFRelease :> line string open-font font foreground>> <CTLine> |CFRelease :> line
open-font line compute-line-metrics open-font line compute-line-metrics
[ >>metrics ] [ metrics>dim >>dim ] bi [ >>metrics ] [ metrics>dim >>dim ] bi