<CTLine> ( string open-font color -- line )

Vocabulary

core-text

Inputs

string	an object
open-font	an object
color	an object

Outputs

line

an object

Definition

USING: accessors classes core-foundation
core-foundation.attributed-strings destructors fonts kernel
strings ;

IN: core-text

: <CTLine> ( string open-font color -- line )
    [
        [
            dup selection? [ string>> ] when
            string check-instance
        ] 2dip make-attributes <CFAttributedString>
        &CFRelease CTLineCreateWithAttributedString
    ] with-destructors ;