select-gadget ( gadget list -- )

Vocabulary

ui.gadgets.lists

Inputs

gadget	an object
list	an object

Outputs

None

Definition

USING: accessors kernel sequences ;

IN: ui.gadgets.lists

:: select-gadget ( gadget list -- )
    gadget list children>> index [ list select-index ] when* ;