--- a/ClassDefinitionChange.st Mon Oct 03 18:27:57 2011 +0200
+++ b/ClassDefinitionChange.st Thu Oct 06 17:03:26 2011 +0200
@@ -251,7 +251,7 @@
(Smalltalk classNamed:superClassName) isNil ifTrue:[
Class undeclared:superClassName
].
- Parser evaluate:(self source).
+ Parser evaluate:(self source).
package notNil ifTrue:[
self changeClass setPackage:package.
].
@@ -266,7 +266,7 @@
"
"Modified: / 08-11-2010 / 16:10:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
- "Modified (comment): / 07-07-2011 / 14:40:44 / cg"
+ "Modified: / 06-10-2011 / 17:01:58 / cg"
! !
!ClassDefinitionChange methodsFor:'comparing'!
@@ -308,7 +308,7 @@
!ClassDefinitionChange methodsFor:'printing & storing'!
definitionString
- |ns|
+ |ns classNameUsed superClassNameUsed|
ns := self nameSpaceOverride.
@@ -329,11 +329,14 @@
].
].
+ superClassNameUsed := self superClassName.
+ classNameUsed := self className.
+
^ String streamContents:[:stream |
stream
- nextPutAll:self superClassNameWithoutMyNamespace;
+ nextPutAll:superClassNameUsed;
nextPutAll:' subclass:';
- nextPutAll: self classNameWithoutNamespace asSymbol storeString
+ nextPutAll: classNameUsed asSymbol storeString
;
cr;
spaces:4;
@@ -353,7 +356,7 @@
nextPutAll:(category ? '') storeString
]
- "Modified: / 07-09-2011 / 20:47:42 / cg"
+ "Modified: / 06-10-2011 / 17:02:05 / cg"
!
printOn:aStream
@@ -526,11 +529,11 @@
!ClassDefinitionChange class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.62 2011-09-07 19:39:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.63 2011-10-06 15:03:26 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.62 2011-09-07 19:39:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.63 2011-10-06 15:03:26 cg Exp $'
!
version_SVN