changed: #definitionString
authorClaus Gittinger <cg@exept.de>
Thu, 06 Oct 2011 17:03:26 +0200
changeset 2554 f3d7c0dc56b0
parent 2553 4c63ae4885b9
child 2555 86df1e00019f
changed: #definitionString
ClassDefinitionChange.st
--- 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