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

core-text: cache attribute assoc.

db4
John Benediktsson 2012-07-31 22:03:32 -07:00
parent 7b7df45c50
commit f278cb5447
1 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -34,16 +34,19 @@ FUNCTION: CGRect CTLineGetImageBounds ( CTLineRef line, CGContextRef context ) ;
ERROR: not-a-string object ; ERROR: not-a-string object ;
MEMO: make-attributes ( open-font color -- hashtable )
[
kCTForegroundColorAttributeName ,,
kCTFontAttributeName ,,
] H{ } make ;
: <CTLine> ( string open-font color -- line ) : <CTLine> ( string open-font color -- line )
[ [
[ [
dup selection? [ string>> ] when dup selection? [ string>> ] when
dup string? [ not-a-string ] unless dup string? [ not-a-string ] unless
] 2dip ] 2dip
[ make-attributes <CFAttributedString> &CFRelease
kCTForegroundColorAttributeName ,,
kCTFontAttributeName ,,
] H{ } make <CFAttributedString> &CFRelease
CTLineCreateWithAttributedString CTLineCreateWithAttributedString
] with-destructors ; ] with-destructors ;