draw-selection ( line pair editor -- )

Vocabulary

ui.gadgets.editors.private

Inputs

line	an object
pair	an object
editor	an object

Outputs

None

Definition

USING: accessors arrays math math.order opengl sequences
ui.gadgets.line-support ui.text ;

IN: ui.gadgets.editors.private

:: draw-selection ( line pair editor -- )
    pair [ editor font>> line offset>x gl-round ] map
    :> pair editor selection-color>> gl-color
    pair first 0 2array pair second pair first - 1 max
    editor line-height 2array gl-fill-rect ;