draw-preedit-underlines ( editor -- )

Vocabulary

ui.gadgets.editors.private

Inputs

editor

an object

Outputs

None

Definition

USING: accessors arrays kernel math math.vectors opengl
opengl.gl sequences ui.gadgets ui.gadgets.editors ;

IN: ui.gadgets.editors.private

:: draw-preedit-underlines ( editor -- )
    editor [ preedit? ] [ preedit-underlines>> ] bi and [
        editor [ caret-loc second ] [ caret-dim second ] bi +
        2.0 -
        :> y editor editor-caret first :> row editor font>>
        foreground>> gl-color editor preedit-underlines>> [
            GL_LINE_BIT [
                dup second glLineWidth
                first editor preedit-start>> second dup 2array
                v+ first2
                [ row swap 2array editor loc>x 1.0 + y 2array ]
                [ row swap 2array editor loc>x 1.0 - y 2array ]
                bi* gl-line
            ] do-attribs
        ] each
    ] when ;