show-table-menu ( table -- )

Vocabulary

ui.gadgets.tables.private

Inputs

table

an object

Outputs

None

Definition

USING: accessors kernel ui.gadgets.menus ui.gadgets.tables ;

IN: ui.gadgets.tables.private

: show-table-menu ( table -- )
    [
        [ nip ] [ swap select-row ] [
            [ nth-row drop ] [ renderer>> row-value ]
            [ dup hook>> curry ] tri
        ] 2tri show-operations-menu
    ] [ drop ] if-mouse-row ;