--- a/ClassCommentChange.st	Tue Jul 06 11:54:56 1999 +0200
+++ b/ClassCommentChange.st	Tue Jul 06 12:37:02 1999 +0200
@@ -56,6 +56,29 @@
     ^ comment
 ! !
 
+!ClassCommentChange 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 isClassDefinitionChange ifFalse:[^ false].   
+
+    ^ comment = changeB comment
+
+
+!
+
+sameAs:changeB
+    "return true, if the given change represents the same change as the receiver."
+
+    changeB isClassCommentChange ifFalse:[^ false].
+    ^ comment = changeB comment 
+
+
+! !
+
 !ClassCommentChange methodsFor:'printing'!
 
 printOn:aStream
@@ -81,5 +104,5 @@
 !ClassCommentChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.17 1999-07-05 22:01:33 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassCommentChange.st,v 1.18 1999-07-06 10:36:50 cg Exp $'
 ! !