class: AbstractSourceFileWriter
authorClaus Gittinger <cg@exept.de>
Wed, 28 Jan 2015 18:02:47 +0100
changeset 17334 5c901455163b
parent 17333 937efc261475
child 17335 1e44f87fe4d6
class: AbstractSourceFileWriter comment/format in: #fileOut:on:withTimeStamp:withInitialize:withDefinition:methodFilter: #fileOutComment:on:
AbstractSourceFileWriter.st
--- 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