equal
deleted
inserted
replaced
371 "file out all methods belonging to aCategory, aString onto aStream" |
371 "file out all methods belonging to aCategory, aString onto aStream" |
372 |
372 |
373 self fileOutCategory:aCategory of:aClass except:nil only:nil methodFilter:methodFilter on:aStream |
373 self fileOutCategory:aCategory of:aClass except:nil only:nil methodFilter:methodFilter on:aStream |
374 |
374 |
375 "Created: 1.4.1997 / 16:04:44 / stefan" |
375 "Created: 1.4.1997 / 16:04:44 / stefan" |
|
376 ! |
|
377 |
|
378 fileOutCommentEndOn:aStream |
|
379 "Writes a comment end mark on aStream." |
|
380 |
|
381 "/ intentionally left blank - make each line an EOL-comment instead |
|
382 ! |
|
383 |
|
384 fileOutCommentLine:aString on:aStream |
|
385 "Writes a single line of comment on a comment to a stream." |
|
386 |
|
387 aStream |
|
388 nextPutAll:'"/ '; |
|
389 nextPutAll: aString |
|
390 ! |
|
391 |
|
392 fileOutCommentStartOn:aStream |
|
393 "Writes a comment start mark on aStream." |
|
394 |
|
395 "/ intentionally left blank - make each line an EOL-comment instead |
376 ! |
396 ! |
377 |
397 |
378 fileOutMethod:aMethod on:aStream |
398 fileOutMethod:aMethod on:aStream |
379 "file a single method onto aStream." |
399 "file a single method onto aStream." |
380 |
400 |
434 ! ! |
454 ! ! |
435 |
455 |
436 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
456 !SmalltalkChunkFileSourceWriter class methodsFor:'documentation'! |
437 |
457 |
438 version |
458 version |
439 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $' |
459 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $' |
440 ! |
460 ! |
441 |
461 |
442 version_CVS |
462 version_CVS |
443 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.11 2009-09-29 17:20:13 fm Exp $' |
463 ^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.12 2009-10-02 14:30:07 cg Exp $' |
444 ! ! |
464 ! ! |