diff -r 190b5d206c53 -r ed9288e408b7 SmalltalkChunkFileSourceWriter.st --- a/SmalltalkChunkFileSourceWriter.st Fri Oct 02 16:22:04 2009 +0200 +++ b/SmalltalkChunkFileSourceWriter.st Fri Oct 02 16:30:07 2009 +0200 @@ -375,6 +375,26 @@ "Created: 1.4.1997 / 16:04:44 / stefan" ! +fileOutCommentEndOn:aStream + "Writes a comment end mark on aStream." + + "/ intentionally left blank - make each line an EOL-comment instead +! + +fileOutCommentLine:aString on:aStream + "Writes a single line of comment on a comment to a stream." + + aStream + nextPutAll:'"/ '; + nextPutAll: aString +! + +fileOutCommentStartOn:aStream + "Writes a comment start mark on aStream." + + "/ intentionally left blank - make each line an EOL-comment instead +! + fileOutMethod:aMethod on:aStream "file a single method onto aStream." @@ -436,9 +456,9 @@ !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! version - ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $' ! version_CVS - ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $' + ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $' ! !