draw-selected-string-default ( font selection height -- )

Vocabulary

ui.text.private

Inputs

font	an object
selection	an object
height	an object

Outputs

None

Definition

USING: accessors kernel ui.text ;

IN: ui.text.private

:: draw-selected-string-default ( font selection height -- )
    draws-selection-background? [
        selection [ start>> ] [ end>> ] [ string>> ] tri
        :> ( start end string ) start end font string
        selection-spans
        selection color>> 0 height draw-selection-rects
    ] unless font selection draw-string ;