initial checkin
authorClaus Gittinger <cg@exept.de>
Mon, 12 Jul 1999 14:03:59 +0200
changeset 797 67738477acda
parent 796 c46ebd7ed4a8
child 798 999fff0aa0d0
initial checkin
ClassInstVarDefinitionChange.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClassInstVarDefinitionChange.st	Mon Jul 12 14:03:59 1999 +0200
@@ -0,0 +1,50 @@
+ClassChange subclass:#ClassInstVarDefinitionChange
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+
+!ClassInstVarDefinitionChange 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.)."
+
+    changeB isClassInstVarDefinitionChange ifFalse:[^ false].   
+
+    ^ className = changeB className
+
+!
+
+sameAs:changeB
+    "return true, if the given change represents the same change as the receiver."
+
+    (self isForSameAs:changeB) ifFalse:[^ false].
+    ^ self sameSourceAs:changeB
+
+
+! !
+
+!ClassInstVarDefinitionChange methodsFor:'printing'!
+
+printOn:aStream
+    aStream nextPutAll:className; nextPutAll:' instanceVariableNames:'
+
+
+! !
+
+!ClassInstVarDefinitionChange methodsFor:'queries'!
+
+isClassInstVarDefinitionChange
+    ^ true
+
+
+! !
+
+!ClassInstVarDefinitionChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassInstVarDefinitionChange.st,v 1.1 1999-07-12 12:03:59 cg Exp $'
+! !