--- a/MultiImage.st	Wed Sep 11 19:33:00 2002 +0200
+++ b/MultiImage.st	Wed Sep 11 19:34:49 2002 +0200
@@ -16,6 +16,16 @@
 
 !MultiImage methodsFor:'accessing'!
 
+device
+    ^ images first device
+!
+
+images
+    "return the value of the instance variable 'images' (automatically generated)"
+
+    ^ images
+!
+
 images:something
     "set the value of the instance variable 'images' (automatically generated)"
 
@@ -34,8 +44,34 @@
     ].
 ! !
 
+!MultiImage methodsFor:'misc'!
+
+clearMaskedPixels
+    images := images do:[:eachImage | eachImage clearMaskedPixels].
+    ^ self
+!
+
+onDevice:device
+    images := images collect:[:eachImage | eachImage onDevice:device].
+    ^ self
+! !
+
+!MultiImage methodsFor:'queries'!
+
+height  
+    ^ images inject:0 into:[:maxSoFar :eachImage | maxSoFar max:eachImage height].
+!
+
+isImageOrForm
+    ^ true
+!
+
+width
+    ^ images inject:0 into:[:maxSoFar :eachImage | maxSoFar max:eachImage width].
+! !
+
 !MultiImage class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.1 2002-09-11 12:50:38 penk Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/MultiImage.st,v 1.2 2002-09-11 17:34:49 penk Exp $'
 ! !