stop-control ( gadget -- )


Vocabulary
images.viewer

Inputs and outputs
gadgeta gadget


Word description
Removes the connection between the gadget and it's model

Definition
USING: accessors kernel models ;

IN: images.viewer

: stop-control ( gadget -- )
dup model>> [ remove-connection ] [ drop ] if* ;