stop-control ( gadget -- )
Vocabulary
images.viewer
Inputs and outputs
gadget
a
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*
;