|
1 " |
|
2 COPYRIGHT (c) 1996 by Claus Gittinger |
|
3 All Rights Reserved |
|
4 |
|
5 This software is furnished under a license and may be used |
|
6 only in accordance with the terms of that license and with the |
|
7 inclusion of the above copyright notice. This software may not |
|
8 be provided or otherwise made available to, or used by, any |
|
9 other person. No title to or ownership of the software is |
|
10 hereby transferred. |
|
11 " |
|
12 |
|
13 |
1 Object subclass:#Namespace |
14 Object subclass:#Namespace |
2 instanceVariableNames:'' |
15 instanceVariableNames:'' |
3 classVariableNames:'' |
16 classVariableNames:'' |
4 poolDictionaries:'' |
17 poolDictionaries:'' |
5 category:'System-Support' |
18 category:'Kernel-Classes' |
6 ! |
19 ! |
7 |
20 |
|
21 !Namespace class methodsFor:'documentation'! |
8 |
22 |
9 !Namespace methodsFor:'enumeration'! |
23 copyright |
|
24 " |
|
25 COPYRIGHT (c) 1996 by Claus Gittinger |
|
26 All Rights Reserved |
|
27 |
|
28 This software is furnished under a license and may be used |
|
29 only in accordance with the terms of that license and with the |
|
30 inclusion of the above copyright notice. This software may not |
|
31 be provided or otherwise made available to, or used by, any |
|
32 other person. No title to or ownership of the software is |
|
33 hereby transferred. |
|
34 " |
|
35 |
|
36 ! |
|
37 |
|
38 documentation |
|
39 " |
|
40 A Namespace is actually a dummy class, providing a home |
|
41 for its private classes. |
|
42 |
|
43 [author:] |
|
44 Claus Gittinger |
|
45 |
|
46 [see also:] |
|
47 Behavior ClassDescription Class Metaclass |
|
48 PrivateMetaclass |
|
49 " |
|
50 |
|
51 ! ! |
|
52 |
|
53 !Namespace methodsFor:'accessing'! |
|
54 |
|
55 at:classNameSymbol |
|
56 ^ self class privateClassesAt:classNameSymbol |
|
57 ! |
|
58 |
|
59 at:classNameSymbol ifAbsent:exceptionBlock |
|
60 |cls| |
|
61 |
|
62 cls := self class privateClassesAt:classNameSymbol. |
|
63 cls isNil ifTrue:[ |
|
64 ^ exceptionBlock value |
|
65 ]. |
|
66 ^ cls |
|
67 ! |
|
68 |
|
69 at:classNameSymbol put:aClass |
|
70 ^ self class privateClassesAt:classNameSymbol put:aClass |
|
71 ! ! |
|
72 |
|
73 !Namespace methodsFor:'enumerating'! |
10 |
74 |
11 allBehaviorsDo:aBlock |
75 allBehaviorsDo:aBlock |
12 self privateClassesDo:aBlock |
76 self class privateClassesDo:aBlock |
13 |
77 |
14 "Created: 26.10.1996 / 12:29:01 / cg" |
78 "Created: 26.10.1996 / 12:29:01 / cg" |
15 ! ! |
79 ! ! |
16 |
80 |
17 !Namespace methodsFor:'queries'! |
81 !Namespace methodsFor:'queries'! |