'From Squeak3.7alpha of ''11 September 2003'' [latest update: #5657] on 27 January 2004 at 5:30:25 pm'! "Change Set: Associations-equal-reposted Date: 13 January 2004 Author: Leandro Caniglia md: V2: added Associations>>hash Change Set: Associations-equal Date: 20 November 2001 Author: Leandro Caniglia Defines the method Association >> #= in such a way that the values, other than the keys, get compared too. Previously this was inherited from LookupKey which only compares the keys."! !Association methodsFor: 'comparing' stamp: 'md 1/27/2004 17:27'! = anAssociation ^ super = anAssociation and: [value = anAssociation value]! ! !Association methodsFor: 'comparing' stamp: 'md 1/27/2004 17:28'! hash "Hash is reimplemented because = is implemented." ^key hash bitXor: value hash.! !