equal
deleted
inserted
replaced
74 |
74 |
75 !Enum class methodsFor:'instance creation'! |
75 !Enum class methodsFor:'instance creation'! |
76 |
76 |
77 withName: aString |
77 withName: aString |
78 |
78 |
79 self allSubclasses |
79 self allSubclasses do:[:cls| |
80 do:[:cls|cls instance name = aString ifTrue:[^cls instance]]. |
80 cls instance name = aString ifTrue:[^ cls instance] |
81 self flushSubclasses."/stupid workaround... |
81 ]. |
82 self allSubclasses |
82 self flushSubclasses. "/stupid workaround... |
83 do:[:cls|cls instance name = aString ifTrue:[^cls instance]]. |
83 self allSubclasses do:[:cls| |
|
84 cls instance name = aString ifTrue:[^ cls instance] |
|
85 ]. |
84 |
86 |
85 ^self error: 'No ',(self name copyFrom: 6),' with name ', aString. |
87 ^self error: 'No ',(self name copyFrom: 6),' with name ', aString. |
86 |
88 |
87 "Created: / 18-08-2009 / 12:52:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
89 "Created: / 18-08-2009 / 12:52:38 / Jan Vrany <vranyj1@fel.cvut.cz>" |
88 "Modified: / 19-08-2009 / 08:58:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
90 "Modified: / 19-08-2009 / 08:58:25 / Jan Vrany <vranyj1@fel.cvut.cz>" |
89 "Modified: / 15-06-2010 / 22:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
91 "Modified: / 15-06-2010 / 22:20:36 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
92 "Modified (format): / 06-12-2011 / 16:07:26 / cg" |
90 ! ! |
93 ! ! |
91 |
94 |
92 !Enum class methodsFor:'accessing'! |
95 !Enum class methodsFor:'accessing'! |
93 |
96 |
94 instance |
97 instance |