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

Clear font cache on startup

db4
Slava Pestov 2009-01-26 02:36:49 -06:00
parent bb27511753
commit e95cd5e19e
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -3,7 +3,7 @@
USING: assocs accessors alien core-graphics.types core-text kernel
hashtables namespaces sequences ui.gadgets.worlds ui.text
ui.text.private opengl opengl.gl destructors combinators core-foundation
core-foundation.strings memoize math math.vectors ;
core-foundation.strings memoize math math.vectors init ;
IN: ui.text.core-text
SINGLETON: core-text-renderer
@ -40,6 +40,8 @@ MEMO: cache-font ( font -- open-font )
] keep apply-font-traits
] with-destructors ;
[ \ cache-font reset-memoized ] "ui.text.core-text" add-init-hook
M: core-text-renderer open-font
dup alien? [ cache-font ] unless ;