ImageView.st
changeset 3683 80466def0fc4
parent 3659 53ec00df6b6c
child 3705 a75510393dc8
--- a/ImageView.st	Thu Apr 30 12:14:19 2009 +0200
+++ b/ImageView.st	Mon May 04 15:24:09 2009 +0200
@@ -70,6 +70,24 @@
     [see also:]
         Image Form
 "
+!
+
+examples
+"
+    |top imgView scrView|
+
+    top := StandardSystemView new.
+    top extent:300@300.
+
+    imgView := ImageView new.
+    imgView image:(Image fromFile:'../../goodies/bitmaps/gifImages/garfield.gif').
+
+    scrView := HVScrollableView forView:imgView.
+    scrView origin:0@0 corner:1.0@1.0.
+    top add:scrView.
+
+    top open.
+"
 ! !
 
 !ImageView class methodsFor:'initialization'!
@@ -568,7 +586,7 @@
 !ImageView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.66 2009-03-07 11:27:56 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/ImageView.st,v 1.67 2009-05-04 13:24:09 cg Exp $'
 ! !
 
 ImageView initialize!