--- a/LayoutOrigin.st	Thu May 08 00:07:58 2014 +0200
+++ b/LayoutOrigin.st	Thu May 08 00:08:06 2014 +0200
@@ -258,6 +258,20 @@
     topOffset := something.
 ! !
 
+!LayoutOrigin methodsFor:'comparing'!
+
+= anObject
+    ^ anObject class == self
+        and:[ anObject leftFraction = leftFraction
+        and:[ anObject topFraction = topFraction
+        and:[ anObject leftOffset = leftOffset
+        and:[ anObject topOffset = topOffset ]]]]
+!
+
+hash
+    ^ leftFraction hash + topFraction hash + leftOffset hash + topOffset hash
+! !
+
 !LayoutOrigin methodsFor:'converting'!
 
 asAlignmentOrigin
@@ -399,5 +413,6 @@
 !LayoutOrigin class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.25 2012-08-03 15:53:52 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libview2/LayoutOrigin.st,v 1.26 2014-05-07 22:08:06 cg Exp $'
 ! !
+