--- a/VSEFileSourceWriter.st Wed Jan 28 19:08:20 2015 +0100
+++ b/VSEFileSourceWriter.st Wed Jan 28 19:08:38 2015 +0100
@@ -91,19 +91,6 @@
^ VSESourceRewriter
! !
-!VSEFileSourceWriter methodsFor:'source writing'!
-
-rewrittenClassNameOf:aClass
- |nm idx|
-
- nm := aClass name.
- ((nm includesString:'::') or:[aClass nameSpace notNil]) ifTrue:[
- idx := nm indexOfSubCollection:'::'.
- ^ (nm copyTo:idx-1) , VSESourceRewriter nameSpaceSeparatorReplacement , (nm copyFrom:idx+2)
- ].
- ^ nm
-! !
-
!VSEFileSourceWriter methodsFor:'utilities'!
ensureNoUnicodeInClass:aClass
@@ -142,6 +129,17 @@
]
].
^ methodsToFileOut
+!
+
+rewrittenClassNameOf:aClass
+ |nm idx|
+
+ nm := aClass name.
+ (nm includesString:'::') ifTrue:[
+ idx := nm indexOfSubCollection:'::'.
+ ^ (nm copyTo:idx-1) , VSESourceRewriter nameSpaceSeparatorReplacement , (nm copyFrom:idx+2)
+ ].
+ ^ nm
! !
!VSEFileSourceWriter::VSESourceRewriter class methodsFor:'defaults'!
@@ -392,10 +390,10 @@
!VSEFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.4 2015-01-28 17:01:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.5 2015-01-28 18:08:38 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.4 2015-01-28 17:01:15 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic3/VSEFileSourceWriter.st,v 1.5 2015-01-28 18:08:38 cg Exp $'
! !