ClassClassVariableChange.st
changeset 1317 ce08ad1930e4
child 1985 da96a146b89e
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/ClassClassVariableChange.st	Tue Aug 26 19:01:46 2003 +0200
@@ -0,0 +1,39 @@
+"{ Package: 'stx:libbasic3' }"
+
+ClassChange subclass:#ClassClassVariableChange
+	instanceVariableNames:'variableName nameSpaceName otherParameters'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'System-Changes'
+!
+
+
+!ClassClassVariableChange methodsFor:'accessing'!
+
+name:varNameArg nameSpaceName:nsNameArg type:varTypeArg otherParameters:otherParametersArg
+    variableName := varNameArg.
+    className := nsNameArg.
+    otherParameters := otherParametersArg.
+!
+
+source
+    "synthesize the changes source"
+
+    ^ String
+        streamContents:
+            [:s |
+                self printOn:s.
+            ]
+! !
+
+!ClassClassVariableChange methodsFor:'printing & storing'!
+
+printOn:aStream
+    aStream nextPutAll:self className; nextPutAll:' addClassVarName: ' , variableName storeString
+! !
+
+!ClassClassVariableChange class methodsFor:'documentation'!
+
+version
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassClassVariableChange.st,v 1.1 2003-08-26 17:01:46 cg Exp $'
+! !