--- 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 $'
! !
+