--- a/AlignOrg.st	Wed Feb 12 00:03:36 1997 +0100
+++ b/AlignOrg.st	Wed Feb 12 00:06:06 1997 +0100
@@ -247,6 +247,14 @@
 
 !AlignmentOrigin methodsFor:'queries'!
 
+isAlignmentOrigin
+    "return true, if this is an alignmentOrigin"
+
+    ^ true
+
+
+!
+
 rectangleRelativeTo:superRectangle preferred:prefRect
     "compute the rectangle represented by the receiver,
      given the superViews rectangle and the views preferredExtent."
@@ -295,5 +303,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.17 1997-02-11 23:03:36 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/Attic/AlignOrg.st,v 1.18 1997-02-11 23:06:06 ca Exp $'
 ! !

--- a/AlignmentOrigin.st	Wed Feb 12 00:03:36 1997 +0100
+++ b/AlignmentOrigin.st	Wed Feb 12 00:06:06 1997 +0100
@@ -247,6 +247,14 @@
 
 !AlignmentOrigin methodsFor:'queries'!
 
+isAlignmentOrigin
+    "return true, if this is an alignmentOrigin"
+
+    ^ true
+
+
+!
+
 rectangleRelativeTo:superRectangle preferred:prefRect
     "compute the rectangle represented by the receiver,
      given the superViews rectangle and the views preferredExtent."
@@ -295,5 +303,5 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.17 1997-02-11 23:03:36 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.18 1997-02-11 23:06:06 ca Exp $'
 ! !