class: ClassDefinitionChange
authorClaus Gittinger <cg@exept.de>
Thu, 26 Feb 2015 02:07:10 +0100
changeset 3810 542fa7a00a6f
parent 3809 4e3d2e37a7d3
child 3811 777f2281af5c
class: ClassDefinitionChange changed: #definitionStringInNamespace: temporary kludge
ClassDefinitionChange.st
--- a/ClassDefinitionChange.st	Wed Feb 25 23:20:03 2015 +0100
+++ b/ClassDefinitionChange.st	Thu Feb 26 02:07:10 2015 +0100
@@ -549,6 +549,15 @@
                 nextPutAll:'category:';
                 nextPutAll:(category ? '') asString storeString
         ].
+
+        classInstanceVariableString notEmptyOrNil ifTrue:[
+            stream nextPut:$.; cr;
+                   nextPutAll:'"'; 
+                   nextPutAll:classNameUsed; 
+                   nextPutAll:' class instanceVariableNames: ';
+                   nextPutAll:classInstanceVariableString storeString; 
+                   nextPutAll:'"' 
+        ].
       ]
 
     "Modified: / 13-06-2012 / 13:01:58 / cg"
@@ -887,11 +896,11 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.94 2015-02-25 21:34:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.95 2015-02-26 01:07:10 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.94 2015-02-25 21:34:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.95 2015-02-26 01:07:10 cg Exp $'
 !
 
 version_HG
@@ -900,6 +909,6 @@
 !
 
 version_SVN
-    ^ '$Id: ClassDefinitionChange.st,v 1.94 2015-02-25 21:34:01 cg Exp $'
+    ^ '$Id: ClassDefinitionChange.st,v 1.95 2015-02-26 01:07:10 cg Exp $'
 ! !