--- a/MethodChange.st Wed Jan 29 10:54:47 2003 +0100
+++ b/MethodChange.st Fri Jan 31 15:12:58 2003 +0100
@@ -163,14 +163,10 @@
"/ I am a methodChange - B must be as well.
changeB isMethodChange ifFalse:[^ false].
+ selector ~= changeB selector ifTrue:[^ false].
className ~= changeB className ifTrue:[^ false].
- selector ~= changeB selector ifTrue:[^ false].
^ true
-
-
-
-
!
sameAs:changeB
@@ -221,5 +217,5 @@
!MethodChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.29 2003-01-26 14:05:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/MethodChange.st,v 1.30 2003-01-31 14:12:58 cg Exp $'
! !