--- a/Image.st	Thu Feb 16 17:29:36 1995 +0100
+++ b/Image.st	Thu Feb 16 17:29:40 1995 +0100
@@ -28,7 +28,7 @@
 COPYRIGHT (c) 1991 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Image.st,v 1.19 1995-02-06 00:37:05 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.20 1995-02-16 16:29:40 claus Exp $
 '!
 
 !Image class methodsFor:'documentation'!
@@ -49,7 +49,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Image.st,v 1.19 1995-02-06 00:37:05 claus Exp $
+$Header: /cvs/stx/stx/libview/Image.st,v 1.20 1995-02-16 16:29:40 claus Exp $
 "
 !
 
@@ -142,6 +142,17 @@
 
 imageDepth
     self shouldNotImplement
+!
+
+implementorForDepth: depth
+    "return the class, which best implements images of depth"
+
+    depth == 1 ifTrue:[^ Depth1Image].
+    depth == 2 ifTrue:[^ Depth2Image].
+    depth == 4 ifTrue:[^ Depth4Image].
+    depth == 8 ifTrue:[^ Depth8Image].
+    depth == 24 ifTrue:[^ Depth24Image].
+    ^ self
 ! !
 
 !Image class methodsFor:'misc'!
@@ -524,19 +535,6 @@
     "
 ! !
 
-!Image class methodsFor:'queries'!
-
-implementorForDepth: depth
-    "return the class, which best implements images of depth"
-
-    depth == 1 ifTrue:[^ Depth1Image].
-    depth == 2 ifTrue:[^ Depth2Image].
-    depth == 4 ifTrue:[^ Depth4Image].
-    depth == 8 ifTrue:[^ Depth8Image].
-    depth == 24 ifTrue:[^ Depth24Image].
-    ^ self
-! !
-
 !Image methodsFor:'copying'!
 
 postCopy
@@ -978,6 +976,20 @@
 
 !Image methodsFor:'queries'!
 
+isImage
+    "return true, if the receiver is some kind of image;
+     true is returned here - the method is redefined from Object."
+
+    ^ true
+!
+
+isImageOrForm
+    "return true, if the receiver is some kind of image or form;
+     true is returned here - the method is redefined from Object."
+
+    ^ true
+!
+
 brightness
     "return the brightness of the image.
      This usually only makes sense for textures and patterns