ClassInstVarDefinitionChange.st
changeset 2621 f24a15b5d9b9
parent 2045 3557b7c36af0
child 3011 1997ff6e7e55
child 3459 503659017666
--- a/ClassInstVarDefinitionChange.st	Fri Nov 25 17:45:23 2011 +0100
+++ b/ClassInstVarDefinitionChange.st	Fri Nov 25 17:45:26 2011 +0100
@@ -12,7 +12,7 @@
 "{ Package: 'stx:libbasic3' }"
 
 ClassChange subclass:#ClassInstVarDefinitionChange
-	instanceVariableNames:''
+	instanceVariableNames:'classInstVarNames'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'System-Changes'
@@ -35,6 +35,16 @@
 
 ! !
 
+!ClassInstVarDefinitionChange methodsFor:'accessing'!
+
+classInstVarNames
+    ^ classInstVarNames
+!
+
+classInstVarNames:something
+    classInstVarNames := something.
+! !
+
 !ClassInstVarDefinitionChange methodsFor:'comparing'!
 
 isForSameAs:changeB
@@ -73,8 +83,16 @@
 
 ! !
 
+!ClassInstVarDefinitionChange methodsFor:'visiting'!
+
+acceptChangeVisitor:aVisitor
+    ^ aVisitor visitClassInstVarDefinitionChange:self.
+
+    "Created: / 25-11-2011 / 17:13:30 / cg"
+! !
+
 !ClassInstVarDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassInstVarDefinitionChange.st,v 1.6 2008-10-31 14:17:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassInstVarDefinitionChange.st,v 1.7 2011-11-25 16:45:26 cg Exp $'
 ! !