draw-selected-line-tiles ( font selection height -- )

Vocabulary

ui.text.core-text.private

Inputs

font	an object
selection	an object
height	an object

Outputs

None

Definition

USING: accessors core-text kernel math opengl sequences
ui.text.private ;

IN: ui.text.core-text.private

:: draw-selected-line-tiles ( font selection height -- )
    font selection cached-line :> line line selection
    [ start>> ] [ end>> ] bi line-selection-spans
    [ [ gl-unscale ] map ] map
    :> spans line height selection-outside-image [
        first2 :> ( top bottom ) spans selection color>> top
        bottom top - draw-selection-rects
    ] each line draw-line-tiles ;