equal
deleted
inserted
replaced
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 privateClasses' |
15 hook' |
16 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
16 classVariableNames:'UpdatingChanges LockChangesFile FileOutErrorSignal |
17 CatchMethodRedefinitions MethodRedefinitionSignal |
17 CatchMethodRedefinitions MethodRedefinitionSignal |
18 UpdateChangeFileQuerySignal TryLocalSourceFirst |
18 UpdateChangeFileQuerySignal TryLocalSourceFirst |
19 ChangeFileAccessLock' |
19 ChangeFileAccessLock' |
20 poolDictionaries:'' |
20 poolDictionaries:'' |
65 package <Symbol> the package, in which the class was defined |
65 package <Symbol> the package, in which the class was defined |
66 (inserted by compilers) |
66 (inserted by compilers) |
67 |
67 |
68 revision <String> revision string - inserted by stc |
68 revision <String> revision string - inserted by stc |
69 |
69 |
70 history <any> a place for a history string (not currently used) |
70 hook <any> reserved: a place to add additional attributes, |
|
71 without a need to recompile all classes. |
|
72 Currently unused. |
71 |
73 |
72 [Class variables:] |
74 [Class variables:] |
73 |
75 |
74 UpdatingChanges <Boolean> true if the changes-file shall be updated |
76 UpdatingChanges <Boolean> true if the changes-file shall be updated |
75 (except during startup and when filing in, this flag |
77 (except during startup and when filing in, this flag |
579 Object definition |
581 Object definition |
580 Point definition |
582 Point definition |
581 " |
583 " |
582 ! |
584 ! |
583 |
585 |
584 history |
|
585 "return the history of the class" |
|
586 |
|
587 ^ history |
|
588 |
|
589 " |
|
590 Object history |
|
591 " |
|
592 ! |
|
593 |
|
594 history:aString |
|
595 "set the history of the class." |
|
596 |
|
597 history := aString |
|
598 ! |
|
599 |
|
600 package |
586 package |
601 "return the package of the class" |
587 "return the package of the class" |
602 |
588 |
603 ^ package |
589 ^ package |
604 |
590 |
775 cat := '' |
761 cat := '' |
776 ] ifFalse:[ |
762 ] ifFalse:[ |
777 cat := categoryStringOrSymbol |
763 cat := categoryStringOrSymbol |
778 ]. |
764 ]. |
779 category := cat asSymbol |
765 category := cat asSymbol |
780 ! |
|
781 |
|
782 setHistory:aString |
|
783 "set the history of the class." |
|
784 |
|
785 history := aString |
|
786 ! |
766 ! |
787 |
767 |
788 setPackage:aStringOrSymbol |
768 setPackage:aStringOrSymbol |
789 "set the package of the class." |
769 "set the package of the class." |
790 |
770 |
4092 ! ! |
4072 ! ! |
4093 |
4073 |
4094 !Class class methodsFor:'documentation'! |
4074 !Class class methodsFor:'documentation'! |
4095 |
4075 |
4096 version |
4076 version |
4097 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.174 1996-10-12 13:27:58 cg Exp $' |
4077 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.175 1996-10-12 15:50:16 cg Exp $' |
4098 ! ! |
4078 ! ! |
4099 Class initialize! |
4079 Class initialize! |