class: ClassDefinitionChange
changed: #definitionStringInNamespace:
temporary kludge
--- 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 $'
! !