equal
deleted
inserted
replaced
1092 cat := '' |
1092 cat := '' |
1093 ] ifFalse:[ |
1093 ] ifFalse:[ |
1094 cat := categoryStringOrSymbol |
1094 cat := categoryStringOrSymbol |
1095 ]. |
1095 ]. |
1096 category := cat asSymbol |
1096 category := cat asSymbol |
|
1097 ! |
|
1098 |
|
1099 setName:aString |
|
1100 "set the classes name - be careful, it will be still |
|
1101 in the Smalltalk dictionary - under another key. |
|
1102 This is NOT for general use - see renameTo:" |
|
1103 |
|
1104 environment := nil. |
|
1105 super setName:aString |
|
1106 |
|
1107 |
1097 ! |
1108 ! |
1098 |
1109 |
1099 setPackage:aStringOrSymbol |
1110 setPackage:aStringOrSymbol |
1100 "set the package of the class." |
1111 "set the package of the class." |
1101 |
1112 |
4878 ! ! |
4889 ! ! |
4879 |
4890 |
4880 !Class class methodsFor:'documentation'! |
4891 !Class class methodsFor:'documentation'! |
4881 |
4892 |
4882 version |
4893 version |
4883 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.271 1997-03-26 01:13:10 stefan Exp $' |
4894 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.272 1997-04-01 16:05:27 ca Exp $' |
4884 ! ! |
4895 ! ! |
4885 Class initialize! |
4896 Class initialize! |