<line> ( font string -- line )

Vocabulary

core-text

Inputs

font	an object
string	an object

Outputs

line

an object

Definition

USING: accessors core-foundation core-text.fonts destructors
kernel ;

IN: core-text

:: <line> ( font string -- line )
    [
        line new-disposable font load-2x?
        [ cache-font@2x ] [ cache-font ] if
        :> open-font string open-font font foreground>> <CTLine>
        |CFRelease :> line open-font line compute-line-metrics
        [ >>metrics ] [ metrics>dim >>dim ] bi font >>font
        string >>string line >>line
    ] with-destructors ;