equal
deleted
inserted
replaced
2677 addInfoRecord:aMessage to:aStream |
2677 addInfoRecord:aMessage to:aStream |
2678 "{ Pragma: +optSpace }" |
2678 "{ Pragma: +optSpace }" |
2679 |
2679 |
2680 "append an info-record (snapshot, class fileOut etc.) to aStream" |
2680 "append an info-record (snapshot, class fileOut etc.) to aStream" |
2681 |
2681 |
2682 aStream nextPutAll:('''---- ' , aMessage , ' ', |
2682 aStream |
2683 Date today printString , ' ' , |
2683 nextPutAll:'''---- '; nextPutAll:aMessage; nextPutAll:' '. |
2684 Time now printString , |
2684 Date today printOn:aStream forLanguage:#en. "/ MUST be english |
2685 ' ----'''). |
2685 aStream nextPutAll:' '. |
|
2686 Time now printOn:aStream. |
|
2687 aStream nextPutAll:' ----'''. |
2686 aStream nextPutChunkSeparator. |
2688 aStream nextPutChunkSeparator. |
2687 |
2689 |
2688 "Created: 2.4.1997 / 17:33:42 / stefan" |
2690 "Created: 2.4.1997 / 17:33:42 / stefan" |
2689 ! |
2691 ! |
2690 |
2692 |
3997 ! ! |
3999 ! ! |
3998 |
4000 |
3999 !ClassDescription class methodsFor:'documentation'! |
4001 !ClassDescription class methodsFor:'documentation'! |
4000 |
4002 |
4001 version |
4003 version |
4002 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.162 2004-02-13 13:41:41 cg Exp $' |
4004 ^ '$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.163 2004-02-18 11:09:10 cg Exp $' |
4003 ! ! |
4005 ! ! |
4004 |
4006 |
4005 ClassDescription initialize! |
4007 ClassDescription initialize! |