draw-moused-row ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: accessors kernel opengl ui.theme ;

IN: ui.gadgets.tables.private

: draw-moused-row ( table -- )
    dup mouse-index>> [
        dup mouse-color>> [ text-color ] unless* gl-color
        dup mouse-index>> row-bounds gl-rect
    ] [ drop ] if ;