set-kCTUnderlineStyleAttributeName ( obj -- )

Vocabulary

core-text

Inputs

obj

an object

Outputs

None

Definition

USING: alien.c-types alien.libraries core-foundation.strings ;

IN: core-text

: set-kCTUnderlineStyleAttributeName ( obj -- )
    "kCTUnderlineStyleAttributeName" f address-of
    0 \ CFStringRef set-alien-value ;