equal
deleted
inserted
replaced
120 theMetaClass |
120 theMetaClass |
121 |
121 |
122 self subclassResponsibility |
122 self subclassResponsibility |
123 ! |
123 ! |
124 |
124 |
|
125 theMetaclass |
|
126 ^ self theMetaClass |
|
127 |
|
128 "Created: / 29-08-2015 / 11:40:10 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
129 ! |
|
130 |
125 theNonMetaClass |
131 theNonMetaClass |
126 |
132 |
127 self subclassResponsibility |
133 self subclassResponsibility |
|
134 ! |
|
135 |
|
136 theNonMetaclass |
|
137 ^ self theNonMetaClass |
|
138 |
|
139 "Created: / 29-08-2015 / 11:40:54 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
128 ! |
140 ! |
129 |
141 |
130 traitNames |
142 traitNames |
131 "Assuming that traits in a composition can be identified by |
143 "Assuming that traits in a composition can be identified by |
132 testing for the first character being an uppercase character |
144 testing for the first character being an uppercase character |
201 |
213 |
202 methodDict |
214 methodDict |
203 ^ methods |
215 ^ methods |
204 ! |
216 ! |
205 |
217 |
|
218 methodDictionary |
|
219 ^ methods |
|
220 |
|
221 "Created: / 29-08-2015 / 18:07:37 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
222 ! |
|
223 |
206 withAllSubclasses |
224 withAllSubclasses |
207 "if allSubclasses is stored should not affect the collection" |
225 "if allSubclasses is stored should not affect the collection" |
208 |
226 |
209 ^self allSubclasses, {self} |
227 ^self allSubclasses, {self} |
210 ! |
228 ! |