equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1996 by eXept Software AG |
4 COPYRIGHT (c) 1996 by eXept Software AG |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
63 |
65 |
64 !PrivateMetaclass methodsFor:'accessing'! |
66 !PrivateMetaclass methodsFor:'accessing'! |
65 |
67 |
66 nameSpace |
68 nameSpace |
67 "return the nameSpace I am contained in. |
69 "return the nameSpace I am contained in. |
68 For private classes, this is always nil" |
70 For private classes, this is my owning class" |
69 |
71 |
70 owningClass isNil ifTrue:[ |
72 owningClass isNil ifTrue:[ |
71 ^ super nameSpace |
73 ^ super nameSpace |
72 ]. |
74 ]. |
73 ^ nil |
75 ^ owningClass |
74 |
76 |
75 "Created: 7.11.1996 / 13:19:18 / cg" |
77 "Created: 7.11.1996 / 13:19:18 / cg" |
76 ! |
78 ! |
77 |
79 |
78 owningClass |
80 owningClass |
128 ! ! |
130 ! ! |
129 |
131 |
130 !PrivateMetaclass class methodsFor:'documentation'! |
132 !PrivateMetaclass class methodsFor:'documentation'! |
131 |
133 |
132 version |
134 version |
133 ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.12 2000-04-25 09:20:13 cg Exp $' |
135 ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.13 2004-03-05 17:53:16 cg Exp $' |
134 ! ! |
136 ! ! |