--- a/Form.st	Thu Feb 16 04:07:02 1995 +0100
+++ b/Form.st	Thu Feb 16 17:29:36 1995 +0100
@@ -26,7 +26,7 @@
 COPYRIGHT (c) 1989 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libview/Form.st,v 1.16 1995-02-16 03:06:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.17 1995-02-16 16:29:36 claus Exp $
 '!
 
 !Form class methodsFor:'documentation'!
@@ -47,7 +47,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libview/Form.st,v 1.16 1995-02-16 03:06:40 claus Exp $
+$Header: /cvs/stx/stx/libview/Form.st,v 1.17 1995-02-16 16:29:36 claus Exp $
 "
 !
 
@@ -1794,6 +1794,22 @@
     ^ fileName
 ! !
 
+!Form methodsFor:'queries '!
+
+isForm
+    "return true, if the receiver is some kind of form;
+     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
+! !
+
 !Form methodsFor:'image manipulations'!
 
 lightened