update-mouse-index ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: accessors kernel math math.order sequences ui.gadgets ;

IN: ui.gadgets.tables.private

: update-mouse-index ( table -- )
    dup [ control-value ] [ mouse-index>> ] bi dup
    [ swap length [ drop f ] [ 1 - min ] if-zero ] [ 2drop f ]
    if >>mouse-index drop ;