deactivate-control ( gadget -- )

Vocabulary

ui.gadgets.private

Inputs

gadget

an object

Outputs

None

Definition

USING: accessors kernel models ;

IN: ui.gadgets.private

: deactivate-control ( gadget -- )
    dup model>> dup [ 2dup remove-connection ] when 2drop ;