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

core-text: use cached-lines get-global.

db4
John Benediktsson 2012-08-02 21:35:28 -07:00
parent c880c28db3
commit f05954c5a9
2 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -164,6 +164,6 @@ M: line dispose* line>> CFRelease ;
SYMBOL: cached-lines SYMBOL: cached-lines
: cached-line ( font string -- line ) : cached-line ( font string -- line )
cached-lines get [ <line> ] 2cache ; cached-lines get-global [ <line> ] 2cache ;
[ <cache-assoc> cached-lines set-global ] "core-text" add-startup-hook [ <cache-assoc> cached-lines set-global ] "core-text" add-startup-hook

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

@ -15,7 +15,7 @@ M: core-text-renderer string-dim
if-empty ; if-empty ;
M: core-text-renderer flush-layout-cache M: core-text-renderer flush-layout-cache
cached-lines get purge-cache ; cached-lines get-global purge-cache ;
M: core-text-renderer string>image ( font string -- image loc ) M: core-text-renderer string>image ( font string -- image loc )
cached-line [ line>image ] [ loc>> ] bi ; cached-line [ line>image ] [ loc>> ] bi ;