'From Squeak3.6beta of ''4 July 2003'' [latest update: #5395] on 14 August 2003 at 10:09:28 am'! "Change Set: IntervalEqualsFix-rhi Date: 14 August 2003 Author: Robert Hirschfeld This change set fixes Interval's #=. Heap's #= needed some adjustments, too. See IntervalEqualsFixTests-rhi.cs for details..."! !Object methodsFor: 'testing' stamp: 'rhi 8/14/2003 08:51'! isHeap ^ false! ! !Object methodsFor: 'testing' stamp: 'rhi 8/12/2003 09:52'! isInterval ^ false! ! !Heap methodsFor: 'testing' stamp: 'rhi 8/14/2003 08:51'! isHeap ^ true! ! !Heap methodsFor: 'comparing' stamp: 'rhi 8/14/2003 10:05'! = anObject ^ self == anObject ifTrue: [true] ifFalse: [anObject isHeap ifTrue: [sortBlock = anObject sortBlock and: [super = anObject]] ifFalse: [super = anObject]]! ! !Interval methodsFor: 'comparing' stamp: 'rhi 8/14/2003 10:08'! = anObject ^ self == anObject ifTrue: [true] ifFalse: [anObject isInterval ifTrue: [start = anObject first and: [step = anObject increment and: [self last = anObject last]]] ifFalse: [super = anObject]]! ! !Interval methodsFor: 'testing' stamp: 'rhi 8/12/2003 09:52'! isInterval ^ true! !