equal
deleted
inserted
replaced
|
1 "{ Package: '__NoProject__' }" |
|
2 |
1 Object subclass:#QualifiedName |
3 Object subclass:#QualifiedName |
2 instanceVariableNames:'pathString' |
4 instanceVariableNames:'pathString' |
3 classVariableNames:'' |
5 classVariableNames:'' |
4 poolDictionaries:'' |
6 poolDictionaries:'' |
5 category:'Kernel-Support' |
7 category:'Kernel-Support' |
6 ! |
8 ! |
7 |
9 |
|
10 !QualifiedName class methodsFor:'documentation'! |
|
11 |
|
12 documentation |
|
13 " |
|
14 some mimicri, to allow filein of visualWorks code which uses qualified names |
|
15 " |
|
16 ! ! |
8 |
17 |
9 !QualifiedName class methodsFor:'instance creation'! |
18 !QualifiedName class methodsFor:'instance creation'! |
10 |
19 |
11 for:aStringOrSymbol |
20 for:aStringOrSymbol |
12 ^ self new name:aStringOrSymbol |
21 ^ self new name:aStringOrSymbol |
40 ! |
49 ! |
41 |
50 |
42 pathString |
51 pathString |
43 "return the value of the instance variable 'pathString' (automatically generated)" |
52 "return the value of the instance variable 'pathString' (automatically generated)" |
44 |
53 |
45 ^ pathString! |
54 ^ pathString |
|
55 ! |
46 |
56 |
47 pathString:something |
57 pathString:something |
48 "set the value of the instance variable 'pathString' (automatically generated)" |
58 "set the value of the instance variable 'pathString' (automatically generated)" |
49 |
59 |
50 pathString := something.! ! |
60 pathString := something. |
|
61 ! ! |
51 |
62 |
52 !QualifiedName methodsFor:'conditional execution'! |
63 !QualifiedName methodsFor:'conditional execution'! |
53 |
64 |
54 value |
65 value |
55 "return my binding value, if unbound, return nil" |
66 "return my binding value, if unbound, return nil" |
114 ! ! |
125 ! ! |
115 |
126 |
116 !QualifiedName class methodsFor:'documentation'! |
127 !QualifiedName class methodsFor:'documentation'! |
117 |
128 |
118 version |
129 version |
119 ^ '$Header: /cvs/stx/stx/libbasic/QualifiedName.st,v 1.2 2000/04/12 21:38:35 cg Exp $' |
130 ^ '$Header: /cvs/stx/stx/libbasic/QualifiedName.st,v 1.3 2013-10-27 10:14:09 cg Exp $' |
|
131 ! |
|
132 |
|
133 version_CVS |
|
134 ^ '$Header: /cvs/stx/stx/libbasic/QualifiedName.st,v 1.3 2013-10-27 10:14:09 cg Exp $' |
120 ! ! |
135 ! ! |
121 |
136 |
122 |
|
123 |
|