equal
deleted
inserted
replaced
307 ! |
307 ! |
308 |
308 |
309 fileOutAllDefinitionsOf:aNonMetaClass on:aStream |
309 fileOutAllDefinitionsOf:aNonMetaClass on:aStream |
310 "append expressions on aStream, which defines myself and all of my private classes." |
310 "append expressions on aStream, which defines myself and all of my private classes." |
311 |
311 |
312 self fileOutDefinitionOf:aNonMetaClass on:aStream. |
312 |s| |
313 aStream nextPutChunkSeparator. |
313 |
|
314 s := CharacterWriteStream on:(String new:50). |
|
315 self fileOutDefinitionOf:aNonMetaClass on:s. |
|
316 aStream nextChunkPut:(s contents). |
|
317 |
|
318 "/ self fileOutDefinitionOf:aNonMetaClass on:aStream. |
|
319 "/ aStream nextPutChunkSeparator. |
314 aStream cr; cr. |
320 aStream cr; cr. |
315 |
321 |
316 "/ |
322 "/ |
317 "/ optional classInstanceVariables |
323 "/ optional classInstanceVariables |
318 "/ |
324 "/ |
612 ! ! |
618 ! ! |
613 |
619 |
614 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
620 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
615 |
621 |
616 version |
622 version |
617 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $' |
623 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $' |
618 ! |
624 ! |
619 |
625 |
620 version_CVS |
626 version_CVS |
621 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.21 2013-03-27 16:50:00 cg Exp $' |
627 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.22 2013-04-15 13:38:11 cg Exp $' |
622 ! |
628 ! |
623 |
629 |
624 version_SVN |
630 version_SVN |
625 ^ '§ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
631 ^ '§ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1 §' |
626 ! ! |
632 ! ! |