fill-background ( context font dim -- )

Vocabulary

core-text

Inputs

context	an object
font	an object
dim	an object

Outputs

None

Definition

USING: accessors colors core-graphics core-graphics.types kernel
sequences ;

IN: core-text

: fill-background ( context font dim -- )
    [ background>> >rgba-components CGContextSetRGBFillColor ]
    [ [ 0 0 ] dip first2 <CGRect> CGContextFillRect ] bi-curry*
    bi ;