equal
deleted
inserted
replaced
257 ^ self == Class class or:[self == Class] |
257 ^ self == Class class or:[self == Class] |
258 |
258 |
259 "Created: 15.4.1996 / 17:17:13 / cg" |
259 "Created: 15.4.1996 / 17:17:13 / cg" |
260 "Modified: 23.4.1996 / 15:56:58 / cg" |
260 "Modified: 23.4.1996 / 15:56:58 / cg" |
261 ! ! |
261 ! ! |
|
262 |
262 |
263 |
263 !Class methodsFor:'Compatibility - ST80'! |
264 !Class methodsFor:'Compatibility - ST80'! |
264 |
265 |
265 fileOutSourceOn:aStream |
266 fileOutSourceOn:aStream |
266 self fileOutOn:aStream withTimeStamp:false |
267 self fileOutOn:aStream withTimeStamp:false |
3259 self printOutCategory:aCategory on:aPrintStream |
3260 self printOutCategory:aCategory on:aPrintStream |
3260 ] |
3261 ] |
3261 ] |
3262 ] |
3262 |
3263 |
3263 "Modified: / 25.11.1998 / 12:40:31 / cg" |
3264 "Modified: / 25.11.1998 / 12:40:31 / cg" |
|
3265 ! |
|
3266 |
|
3267 storeOn:aStream |
|
3268 "append my name only - expects class to be there, when restoring" |
|
3269 |
|
3270 aStream nextPutAll:self name |
3264 ! ! |
3271 ! ! |
3265 |
3272 |
3266 !Class methodsFor:'private changes management'! |
3273 !Class methodsFor:'private changes management'! |
3267 |
3274 |
3268 addChangeRecordForChangeCategory:category to:aStream |
3275 addChangeRecordForChangeCategory:category to:aStream |
4643 ! ! |
4650 ! ! |
4644 |
4651 |
4645 !Class class methodsFor:'documentation'! |
4652 !Class class methodsFor:'documentation'! |
4646 |
4653 |
4647 version |
4654 version |
4648 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.397 2001-05-22 23:07:54 cg Exp $' |
4655 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.398 2001-09-02 14:52:31 cg Exp $' |
4649 ! ! |
4656 ! ! |