equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 |
12 |
13 !ClassDescription subclass:#Class |
13 ClassDescription subclass:#Class |
14 instanceVariableNames:'classvars comment subclasses classFilename package revision |
14 instanceVariableNames:'classvars comment subclasses classFilename package revision |
15 history' |
15 history' |
16 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
16 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
17 CatchMethodRedefinitions MethodRedefinitionSignal |
17 CatchMethodRedefinitions MethodRedefinitionSignal |
18 UpdateChangeFileQuerySignal' |
18 UpdateChangeFileQuerySignal' |
2339 " |
2339 " |
2340 copyrightText := copyrightText asCollectionOfLines asStringCollection. |
2340 copyrightText := copyrightText asCollectionOfLines asStringCollection. |
2341 copyrightText := copyrightText copyFrom:2 to:(copyrightText size). |
2341 copyrightText := copyrightText copyFrom:2 to:(copyrightText size). |
2342 "/ copyrightText do:[:line | aStream nextPutAll:line. aStream cr.]. |
2342 "/ copyrightText do:[:line | aStream nextPutAll:line. aStream cr.]. |
2343 copyrightText := copyrightText asString. |
2343 copyrightText := copyrightText asString. |
2344 aStream nextChunkPut:copyrightText. |
2344 aStream nextPutAllAsChunk:copyrightText. |
2345 ]. |
2345 ]. |
2346 |
2346 |
2347 stampIt ifTrue:[ |
2347 stampIt ifTrue:[ |
2348 "/ |
2348 "/ |
2349 "/ first, a timestamp |
2349 "/ first, a timestamp |
2454 aStream nextPutChunkSeparator. |
2454 aStream nextPutChunkSeparator. |
2455 aStream cr |
2455 aStream cr |
2456 ] |
2456 ] |
2457 |
2457 |
2458 "Created: 15.11.1995 / 12:53:06 / cg" |
2458 "Created: 15.11.1995 / 12:53:06 / cg" |
2459 "Modified: 9.12.1995 / 15:38:31 / cg" |
2459 "Modified: 9.12.1995 / 15:54:40 / cg" |
2460 ! |
2460 ! |
2461 |
2461 |
2462 fileOutPrimitiveDefinitionsOn:aStream |
2462 fileOutPrimitiveDefinitionsOn:aStream |
2463 "append primitive defs (if any) to aStream." |
2463 "append primitive defs (if any) to aStream." |
2464 |
2464 |
3356 ! ! |
3356 ! ! |
3357 |
3357 |
3358 !Class class methodsFor:'documentation'! |
3358 !Class class methodsFor:'documentation'! |
3359 |
3359 |
3360 version |
3360 version |
3361 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.101 1995-12-09 14:46:03 cg Exp $' |
3361 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.102 1995-12-09 14:58:25 cg Exp $' |
3362 ! ! |
3362 ! ! |
3363 Class initialize! |
3363 Class initialize! |