--- a/MethodChange.st	Tue Jul 06 11:54:56 1999 +0200
+++ b/MethodChange.st	Tue Jul 06 12:37:02 1999 +0200
@@ -90,6 +90,41 @@
     "Created: / 6.2.1998 / 13:29:25 / cg"
 ! !
 
+!MethodChange methodsFor:'comparing'!
+
+isForSameAs:changeB
+    "return true, if the given change represents a change for the same
+     thingy as the receiver (i.e. same method, same definition etc.)."
+
+    "/ I am a methodChange - B must be as well.
+    changeB isMethodChange ifFalse:[^ false].   
+
+    className ~= changeB className ifTrue:[^ false].
+    selector ~= changeB selector ifTrue:[^ false].
+
+    ^ true
+
+
+
+
+!
+
+sameAs:changeB
+    "return true, if the given change represents the same change as the receiver."
+
+    "/ I am a methodChange - B must be as well.
+    changeB isMethodChange ifFalse:[^ false].   
+
+    className ~= changeB className ifTrue:[^ false].
+    selector ~= changeB selector ifTrue:[^ false].
+
+    ^ self sameSourceAs:changeB
+
+
+
+
+! !
+
 !MethodChange methodsFor:'printing'!
 
 printOn:aStream
@@ -116,5 +151,5 @@
 !MethodChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.17 1999-07-05 21:53:40 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.18 1999-07-06 10:36:46 cg Exp $'
 ! !