images.viewer: removing stop-control and start-control.

diff --git a/extra/images/viewer/viewer-docs.factor b/extra/images/viewer/viewer-docs.factor
index 53bcf069f08d8318971fcf7730bdf621f7252ccc..792ffe6580cda9dfd77a26c66c64e6802b43d018 100644 (file)
--- a/extra/images/viewer/viewer-docs.factor
+++ b/extra/images/viewer/viewer-docs.factor
@@ -57,25 +57,14 @@ HELP: image.
     { "object" { $or pathname string image } }
 }
 { $description "Displays the image in the listener." } ;
-HELP: start-control
-{ $values
-    { "gadget" gadget }
-}
-{ $description "Adds a connection between the gadget and it's model." } ;
 
-HELP: stop-control
-{ $values
-    { "gadget" gadget }
-}
-{ $description "Removes the connection between the gadget and it's model" } ;
 ARTICLE: "images.viewer" "Displaying Images"
 "The " { $vocab-link "images.viewer" } " vocabulary uses the " { $vocab-link "opengl.textures" }
 " vocabulary to display any instance of " { $link image } "." $nl
 "An " { $link image-gadget } " can be used for static images and " { $instance image-control }
 " for changing images (for example a video feed). For changing images, the image should be contained in " { $instance model }
 ". Change the model value with " { $link set-model } " or mutate the image and call "
-{ $link notify-connections } " when you want to update the image. To stop refreshing the image, call " { $link stop-control } "."
-" To start refreshing again, call " { $link start-control } "."
+{ $link notify-connections } " when you want to update the image."
 
 $nl
 "If the " { $link image } " or " { $link model } " containing the image "

diff --git a/extra/images/viewer/viewer.factor b/extra/images/viewer/viewer.factor
index 48a984aae320658409f9f03c0627848d927b7840..f738a646e647467a7e8b97d3208826bb5adbd010 100644 (file)
--- a/extra/images/viewer/viewer.factor
+++ b/extra/images/viewer/viewer.factor
@@ -98,10 +98,6 @@ M: model set-image [ value>> >>image drop ] [ >>model ] 2bi ;
     \ image-control new-image-gadget* ;
 : image-window ( object -- ) <image-gadget> "Image" open-window ;
 
-! move these words to ui.gadgets because they affect all controls ?
-: stop-control ( gadget -- ) dup model>> [ remove-connection ] [ drop ] if* ;
-: start-control ( gadget -- ) dup model>> [ add-connection ] [ drop ] if* ;
-
 : image. ( object -- ) <image-gadget> gadget. ;
 
 M: image content-gadget