<active-buttons-table> ( model -- table )

Vocabulary

ui.tools.button-list

Inputs

model

an object

Outputs

table

an object

Definition

USING: accessors arrays assocs kernel models.arrow sequences
ui.gadgets.buttons ui.gadgets.glass ui.gadgets.presentations
ui.gadgets.search-tables ui.gadgets.tables ;

IN: ui.tools.button-list

: <active-buttons-table> ( model -- table )
    [ keys [ ">" swap 2array ] map ] <arrow> trivial-renderer
    [ second ] <search-table> dup table>> [
        second world-buttons at dup presentation?
        [ invoke-primary ] [ button-invoke ] if
    ] >>action [ hide-glass ] >>hook t >>selection-required?
    10 >>min-rows 10 >>max-rows 30 >>min-cols 30 >>max-cols drop
    ;