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

Vocabulary

core-text

Inputs

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

Outputs

None

Definition

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

IN: core-text

:: fill-selection-background ( context loc dim line -- )
    line string>> :> string string selection? [
        context string color>> >rgba-components
        CGContextSetRGBFillColor line string
        [ start>> ] [ end>> ] bi line-selection-spans [
            first2 :> ( a b ) context a loc first - 0 b a -
            dim second <CGRect> CGContextFillRect
        ] each
    ] when ;