ClassDefinitionChange.st
branchjv
changeset 3078 3f5abbdcbde9
parent 3069 89d2cfee177f
child 3082 e58037b2913d
--- a/ClassDefinitionChange.st	Wed Sep 05 10:11:26 2012 +0100
+++ b/ClassDefinitionChange.st	Wed Sep 05 12:45:38 2012 +0100
@@ -47,6 +47,12 @@
 "
 ! !
 
+!ClassDefinitionChange class methodsFor:'others'!
+
+version_CVS
+    ^ '§Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.72 2012/08/10 10:09:30 cg Exp §'
+! !
+
 !ClassDefinitionChange methodsFor:'accessing'!
 
 basicSuperClassName 
@@ -223,16 +229,17 @@
         src := self definitionString
     ].
 
-    (ns := self nameSpaceOverride) notNil ifTrue:[
-        (className startsWith:(ns,'::')) ifFalse:[
-            ^ '"{ NameSpace: ' , ns , ' }"' , 
-                Character cr, Character cr , 
-                src string
-        ].
-    ].
+"/ ouch - already done in definitionString !!!!!!
+"/    (ns := self nameSpaceOverride) notNil ifTrue:[
+"/        (className startsWith:(ns,'::')) ifFalse:[
+"/            ^ '"{ NameSpace: ' , ns , ' }"' , 
+"/                Character cr, Character cr , 
+"/                src string
+"/        ].
+"/    ].
     ^ src
 
-    "Modified: / 07-09-2011 / 20:46:13 / cg"
+    "Modified: / 10-08-2012 / 11:53:54 / cg"
 !
 
 superClassName 
@@ -754,13 +761,9 @@
 !ClassDefinitionChange class methodsFor:'documentation'!
 
 version
-    ^ '$Id: ClassDefinitionChange.st 1946 2012-07-31 14:00:47Z vranyj1 $'
-!
-
-version_CVS
-    ^ '§Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.71 2012-07-31 13:33:10 +0100 vrany Exp §'
+    ^ '$Header: /cvs/stx/stx/libbasic3/ClassDefinitionChange.st,v 1.72 2012/08/10 10:09:30 cg Exp $'
 !
 
 version_SVN
-    ^ '$Id:: ClassDefinitionChange.st 1946 2012-07-31 14:00:47Z vranyj1                                                             $'
+    ^ '$Id:: ClassDefinitionChange.st 1957 2012-09-05 11:45:38Z vranyj1                                                             $'
 ! !