(cache-font) ( name size traits -- open-font )

Vocabulary

core-text.fonts

Inputs

name	an object
size	an object
traits	an object

Outputs

open-font

an object

Definition

USING: core-foundation core-foundation.strings destructors
kernel ;

IN: core-text.fonts

MEMO:: (cache-font) ( name size traits -- open-font )
    [
        name font-name <CFString> &CFRelease size f
        CTFontCreateWithName
        dup 0.0 f traits dup CTFontCreateCopyWithSymbolicTraits
        [ [ CFRelease ] dip ] when*
    ] with-destructors ;