equal
deleted
inserted
replaced
1020 For private or anonymous classes, nil is returned - |
1020 For private or anonymous classes, nil is returned - |
1021 for public classes, Smalltalk is returned." |
1021 for public classes, Smalltalk is returned." |
1022 |
1022 |
1023 "/ (self nameSpace at:self nameWithoutNamespacePrefix ifAbsent:nil) |
1023 "/ (self nameSpace at:self nameWithoutNamespacePrefix ifAbsent:nil) |
1024 "/ or |
1024 "/ or |
1025 (Smalltalk at:name) ~~ self ifTrue:[ |
1025 (name isSymbol and:[(Smalltalk at:name) == self]) ifFalse:[ |
1026 ^ nil |
1026 ^ nil |
1027 ]. |
1027 ]. |
1028 ^ self nameSpace |
1028 ^ self nameSpace |
1029 ! |
1029 ! |
1030 |
1030 |
1976 self withAllPrivateClassesDo:[:cls | coll add:cls]. |
1976 self withAllPrivateClassesDo:[:cls | coll add:cls]. |
1977 ^ coll |
1977 ^ coll |
1978 |
1978 |
1979 "Created: / 18-07-2011 / 09:14:38 / cg" |
1979 "Created: / 18-07-2011 / 09:14:38 / cg" |
1980 ! ! |
1980 ! ! |
|
1981 |
1981 |
1982 |
1982 !Class methodsFor:'adding & removing'! |
1983 !Class methodsFor:'adding & removing'! |
1983 |
1984 |
1984 removeFromSystem |
1985 removeFromSystem |
1985 "ST-80 compatibility |
1986 "ST-80 compatibility |