--- 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 $'
! !