equal
deleted
inserted
replaced
128 "Created: / 16-08-2009 / 10:36:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
128 "Created: / 16-08-2009 / 10:36:37 / Jan Vrany <vranyj1@fel.cvut.cz>" |
129 ! ! |
129 ! ! |
130 |
130 |
131 !ProgrammingLanguage class methodsFor:'enumerating'! |
131 !ProgrammingLanguage class methodsFor:'enumerating'! |
132 |
132 |
|
133 allDetect:aBlock ifNone:exceptionValue |
|
134 self allDo:[:each | (aBlock value:each) ifTrue:[^ each]]. |
|
135 ^ exceptionValue value |
|
136 ! |
|
137 |
133 allDo: aBlock |
138 allDo: aBlock |
134 |
139 ^ self allSubclassesDo: [:each | aBlock value: each instance] |
135 ^self allSubclassesDo: |
|
136 [:each|aBlock value: each instance] |
|
137 |
140 |
138 "Created: / 16-08-2009 / 14:07:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
141 "Created: / 16-08-2009 / 14:07:40 / Jan Vrany <vranyj1@fel.cvut.cz>" |
139 ! ! |
142 ! ! |
140 |
143 |
141 !ProgrammingLanguage class methodsFor:'private'! |
144 !ProgrammingLanguage class methodsFor:'private'! |
349 ! ! |
352 ! ! |
350 |
353 |
351 !ProgrammingLanguage class methodsFor:'documentation'! |
354 !ProgrammingLanguage class methodsFor:'documentation'! |
352 |
355 |
353 version |
356 version |
354 ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.9 2009-10-08 12:00:30 fm Exp $' |
357 ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009-12-04 11:21:32 cg Exp $' |
355 ! |
358 ! |
356 |
359 |
357 version_CVS |
360 version_CVS |
358 ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.9 2009-10-08 12:00:30 fm Exp $' |
361 ^ '$Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009-12-04 11:21:32 cg Exp $' |
359 ! |
362 ! |
360 |
363 |
361 version_SVN |
364 version_SVN |
362 ^'§Id: ProgrammingLanguage.st 10468 2009-08-22 08:34:50Z vranyj1 §' |
365 ^'§Id: ProgrammingLanguage.st 10468 2009-08-22 08:34:50Z vranyj1 §' |
363 ! ! |
366 ! ! |