--- 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!