equal
deleted
inserted
replaced
192 type: type value: value |
192 type: type value: value |
193 |
193 |
194 "Created: / 16-07-2010 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
194 "Created: / 16-07-2010 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
195 ! ! |
195 ! ! |
196 |
196 |
197 |
|
198 |
|
199 !Annotation class methodsFor:'finding'! |
197 !Annotation class methodsFor:'finding'! |
|
198 |
|
199 allNamed:aSymbol |
|
200 "Answer a collection of all pragmas found in all methods of all classes whose keyword is aSymbol." |
|
201 |
|
202 ^ Array streamContents: [ :stream | |
|
203 Smalltalk allClassesDo:[:eachClass | |
|
204 self withPragmasIn: eachClass do: [ :pragma | |
|
205 pragma keyword = aSymbol |
|
206 ifTrue: [ stream nextPut: pragma ] ] ] ]. |
|
207 |
|
208 " |
|
209 Annotation allNamed:'worldMenu' |
|
210 " |
|
211 ! |
200 |
212 |
201 allNamed: aSymbol from: aSubClass to: aSuperClass |
213 allNamed: aSymbol from: aSubClass to: aSuperClass |
202 "Answer a collection of all pragmas found in methods of all classes between aSubClass and aSuperClass (inclusive) whose keyword is aSymbol." |
214 "Answer a collection of all pragmas found in methods of all classes between aSubClass and aSuperClass (inclusive) whose keyword is aSymbol." |
203 |
215 |
204 ^ Array streamContents: [ :stream | |
216 ^ Array streamContents: [ :stream | |
255 withPragmasIn: aClass do: aBlock |
267 withPragmasIn: aClass do: aBlock |
256 aClass selectorsAndMethodsDo: [ :selector :method | method annotationsDo: aBlock ]. |
268 aClass selectorsAndMethodsDo: [ :selector :method | method annotationsDo: aBlock ]. |
257 |
269 |
258 "Modified: / 20-08-2011 / 21:31:49 / cg" |
270 "Modified: / 20-08-2011 / 21:31:49 / cg" |
259 ! ! |
271 ! ! |
260 |
|
261 |
272 |
262 !Annotation methodsFor:'accessing'! |
273 !Annotation methodsFor:'accessing'! |
263 |
274 |
264 arguments |
275 arguments |
265 ^ arguments |
276 ^ arguments |
644 ! ! |
655 ! ! |
645 |
656 |
646 !Annotation class methodsFor:'documentation'! |
657 !Annotation class methodsFor:'documentation'! |
647 |
658 |
648 version |
659 version |
649 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.14 2012-11-05 23:56:53 cg Exp $' |
660 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
650 ! |
661 ! |
651 |
662 |
652 version_CVS |
663 version_CVS |
653 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.14 2012-11-05 23:56:53 cg Exp $' |
664 ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
654 ! |
665 ! |
655 |
666 |
656 version_SVN |
667 version_SVN |
657 ^ '§Id: Annotation.st,v 1.1 2011/06/28 11:04:04 vrany Exp §' |
668 ^ '$Id: Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $' |
658 ! ! |
669 ! ! |
|
670 |
659 |
671 |
660 Annotation initialize! |
672 Annotation initialize! |