--- a/AbstractSourceFileWriter.st Wed Jan 28 18:02:22 2015 +0100
+++ b/AbstractSourceFileWriter.st Wed Jan 28 18:02:47 2015 +0100
@@ -11,6 +11,8 @@
"
"{ Package: 'stx:libbasic' }"
+"{ NameSpace: Smalltalk }"
+
Object subclass:#AbstractSourceFileWriter
instanceVariableNames:'generatingSourceForOriginal'
classVariableNames:''
@@ -92,7 +94,14 @@
fileOut: class on:stream withTimeStamp: stampIt withInitialize: initIt withDefinition: withDefinition methodFilter:methodFilter
- ^ self fileOut: class on:stream withTimeStamp: stampIt withInitialize: initIt withDefinition: withDefinition methodFilter:methodFilter encoder:nil
+ ^ self
+ fileOut: class
+ on:stream
+ withTimeStamp: stampIt
+ withInitialize: initIt
+ withDefinition: withDefinition
+ methodFilter:methodFilter
+ encoder:nil
"Created: / 04-10-2014 / 12:10:29 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
@@ -132,12 +141,12 @@
self fileOutCommentStartOn: aStream.
aStringOrStringCollection isStringCollection
- ifTrue:
- [aStringOrStringCollection
+ ifTrue:[
+ aStringOrStringCollection
do:[:line|self fileOutCommentLine: line on: aStream]
separatedBy: [aStream cr]]
- ifFalse:
- [(aStringOrStringCollection includes: Character cr)
+ ifFalse:[
+ (aStringOrStringCollection includes: Character cr)
ifTrue:"/hmm...multiline comment as string
[aStringOrStringCollection asStringCollection
do:[:line|self fileOutCommentLine: line on: aStream]
@@ -214,11 +223,11 @@
!AbstractSourceFileWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.11 2014-10-04 11:27:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.12 2015-01-28 17:02:47 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.11 2014-10-04 11:27:11 vrany Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AbstractSourceFileWriter.st,v 1.12 2015-01-28 17:02:47 cg Exp $'
!
version_SVN