equal
deleted
inserted
replaced
90 "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
90 "Created: / 16-08-2009 / 10:56:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
91 "Modified: / 25-02-2010 / 23:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
91 "Modified: / 25-02-2010 / 23:26:20 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
92 ! |
92 ! |
93 |
93 |
94 named: aString |
94 named: aString |
95 ^ self |
95 ^ self named:aString ifNone:[ self error: 'No language named ' , aString ]. |
96 instancesDetect:[:each | each name = aString ] |
96 |
97 ifNone: [ self error: 'No language named ' , aString ]. |
97 " |
98 |
98 ProgrammingLanguage named: 'Smalltalk' |
99 " |
99 ProgrammingLanguage named: 'JavaScript' |
100 ProgrammingLanguage named: 'Smalltalk' |
100 ProgrammingLanguage named: 'Ruby' |
101 |
101 " |
102 ProgrammingLanguage named: 'Ruby'" |
|
103 |
102 |
104 "Created: / 15-08-2009 / 22:40:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
103 "Created: / 15-08-2009 / 22:40:26 / Jan Vrany <vranyj1@fel.cvut.cz>" |
105 "Modified: / 16-08-2009 / 10:58:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
104 "Modified: / 16-08-2009 / 10:58:01 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
105 "Modified: / 04-08-2010 / 12:06:38 / cg" |
106 ! |
106 ! |
107 |
107 |
108 named: aString ifNone: aBlock |
108 named: aString ifNone: aBlock |
109 ^ self |
109 ^ self |
110 instancesDetect:[:each | each name = aString ] |
110 instancesDetect:[:each | each name = aString ] |
411 ! ! |
411 ! ! |
412 |
412 |
413 !ProgrammingLanguage class methodsFor:'documentation'! |
413 !ProgrammingLanguage class methodsFor:'documentation'! |
414 |
414 |
415 version |
415 version |
416 ^ '$Id: ProgrammingLanguage.st 10551 2010-07-21 15:52:22Z vranyj1 $' |
416 ^ '$Id: ProgrammingLanguage.st 10564 2010-08-10 08:55:15Z vranyj1 $' |
417 ! |
417 ! |
418 |
418 |
419 version_CVS |
419 version_CVS |
420 ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.10 2009/12/04 11:21:32 cg Exp §' |
420 ^ '§Header: /cvs/stx/stx/libbasic/ProgrammingLanguage.st,v 1.12 2010/08/04 10:06:44 cg Exp §' |
421 ! |
421 ! |
422 |
422 |
423 version_SVN |
423 version_SVN |
424 ^ '$Id: ProgrammingLanguage.st 10551 2010-07-21 15:52:22Z vranyj1 $' |
424 ^ '$Id: ProgrammingLanguage.st 10564 2010-08-10 08:55:15Z vranyj1 $' |
425 ! ! |
425 ! ! |
426 |
426 |
427 ProgrammingLanguage initialize! |
427 ProgrammingLanguage initialize! |
|
428 |