fill-line-backgrounds ( context line offset dim loc -- )

Vocabulary

core-text

Inputs

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

Outputs

None

Definition

USING: accessors core-graphics core-graphics.types math
math.vectors sequences ;

IN: core-text

:: fill-line-backgrounds ( context line offset dim loc -- )
    line loc>> offset v+
    first2 :> ( x y ) line dim>> first2 :> ( w h ) context
    CGContextSaveGState context x neg dim second y + h -
    w h <CGRect> CGContextClipToRect
    context line font>> dim fill-background
    context loc dim line fill-selection-background
    context CGContextRestoreGState ;