invoke-value-action ( list -- )

Vocabulary

ui.gadgets.lists

Inputs

list

an object

Outputs

None

Definition

USING: accessors combinators kernel ui.gadgets
ui.gadgets.presentations ;

IN: ui.gadgets.lists

: invoke-value-action ( list -- )
    dup list-empty?
    [ dup hook>> ( list -- ) call-effect ]
    [ [ index>> ] keep nth-gadget invoke-secondary ] if ;