--- a/SmalltalkChunkFileSourceWriter.st Tue Apr 16 14:27:04 2013 +0200
+++ b/SmalltalkChunkFileSourceWriter.st Thu Apr 18 20:41:50 2013 +0200
@@ -309,8 +309,14 @@
fileOutAllDefinitionsOf:aNonMetaClass on:aStream
"append expressions on aStream, which defines myself and all of my private classes."
- self fileOutDefinitionOf:aNonMetaClass on:aStream.
- aStream nextPutChunkSeparator.
+ |s|
+
+ s := CharacterWriteStream on:(String new:50).
+ self fileOutDefinitionOf:aNonMetaClass on:s.
+ aStream nextChunkPut:(s contents).
+
+ "/ self fileOutDefinitionOf:aNonMetaClass on:aStream.
+ "/ aStream nextPutChunkSeparator.
aStream cr; cr.
"/
@@ -614,11 +620,11 @@
!SmalltalkChunkFileSourceWriter class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $'
!
version_CVS
- ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $'
!
version_SVN