--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/MultiImage.st	Wed Sep 11 14:50:38 2002 +0200
@@ -0,0 +1,41 @@
+"{ Package: 'stx:libview2' }"
+
+Object subclass:#MultiImage
+	instanceVariableNames:'images'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Graphics-Images'
+!
+
+
+!MultiImage class methodsFor:'instance creation'!
+
+images:imageCollection
+    ^ self new images:imageCollection
+! !
+
+!MultiImage methodsFor:'accessing'!
+
+images:something
+    "set the value of the instance variable 'images' (automatically generated)"
+
+    images := something.
+! !
+
+!MultiImage methodsFor:'displaying'!
+
+displayOn:aGC x:x y:y opaque:opaque
+    |doOpaque|
+
+    doOpaque := opaque.
+    images do:[:eachImage |
+        eachImage displayOn:aGC x:x y:y opaque:doOpaque.
+        doOpaque := false.
+    ].
+! !
+
+!MultiImage class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.1 2002-09-11 12:50:38 penk Exp $'
+! !