equal
deleted
inserted
replaced
951 cat := '' |
951 cat := '' |
952 ] ifFalse:[ |
952 ] ifFalse:[ |
953 cat := categoryStringOrSymbol |
953 cat := categoryStringOrSymbol |
954 ]. |
954 ]. |
955 category := cat asSymbol |
955 category := cat asSymbol |
|
956 ! |
|
957 |
|
958 setEnvironment:aNamespace |
|
959 "set the namespace I am contained in; ST-80 compatible name" |
|
960 |
|
961 environment := aNamespace |
956 ! |
962 ! |
957 |
963 |
958 setPackage:aStringOrSymbol |
964 setPackage:aStringOrSymbol |
959 "set the package of the class." |
965 "set the package of the class." |
960 |
966 |
4066 ! ! |
4072 ! ! |
4067 |
4073 |
4068 !Class class methodsFor:'documentation'! |
4074 !Class class methodsFor:'documentation'! |
4069 |
4075 |
4070 version |
4076 version |
4071 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.365 2000-02-05 14:13:54 cg Exp $' |
4077 ^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.366 2000-02-08 15:27:56 cg Exp $' |
4072 ! ! |
4078 ! ! |