activate-control ( gadget -- )

Vocabulary

ui.gadgets.private

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel models ;

IN: ui.gadgets.private

: activate-control ( gadget -- )
    dup model>> dup
    [ 2dup add-connection swap model-changed ] [ 2drop ] if ;