fill-selection-background ( context loc dim line string -- )

Vocabulary

core-text

Inputs

context	an object
loc	an object
dim	an object
line	an object
string	an object

Outputs

None

Definition

USING: accessors colors core-graphics fonts kernel sequences ;

IN: core-text

:: fill-selection-background
    ( context loc dim line string -- )
    string selection? [
        context string color>> >rgba-components
        CGContextSetRGBFillColor
        context dim line string selection-rect
        loc first CGRect-translate-x CGContextFillRect
    ] when ;