table-button-up ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: kernel ui.gadgets.line-support ui.gadgets.tables ;

IN: ui.gadgets.tables.private

: table-button-up ( table -- )
    dup [ mouse-row ] keep valid-line?
    [ dup row-action? [ row-action ] [ drop ] if ] [ drop ] if ;