--- a/AlignmentOrigin.st	Tue May 06 16:34:49 2014 +0200
+++ b/AlignmentOrigin.st	Thu May 08 00:07:49 2014 +0200
@@ -194,6 +194,19 @@
     topAlignmentFraction := something.
 ! !
 
+!AlignmentOrigin methodsFor:'comparing'!
+
+= anObject
+    ^ super = anObject
+        and:[ anObject leftAlignmentFraction = leftAlignmentFraction
+        and:[ anObject topAlignmentFraction = topAlignmentFraction ]]
+!
+
+hash
+    ^ super hash
+      + leftAlignmentFraction hash + topAlignmentFraction hash 
+! !
+
 !AlignmentOrigin methodsFor:'converting'!
 
 fromLiteralArrayEncoding:encodingArray
@@ -328,5 +341,6 @@
 !AlignmentOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.26 2012-08-03 15:53:55 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/AlignmentOrigin.st,v 1.27 2014-05-07 22:07:49 cg Exp $'
 ! !
+