--- a/Annotation.st	Tue Feb 25 11:37:05 2014 +0100
+++ b/Annotation.st	Tue Feb 25 13:23:59 2014 +0100
@@ -194,9 +194,21 @@
     "Created: / 16-07-2010 / 11:31:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
-
+!Annotation class methodsFor:'finding'!
 
-!Annotation class methodsFor:'finding'!
+allNamed:aSymbol
+    "Answer a collection of all pragmas found in all methods of all classes whose keyword is aSymbol."
+        
+    ^ Array streamContents: [ :stream |
+        Smalltalk allClassesDo:[:eachClass |
+            self withPragmasIn: eachClass do: [ :pragma |
+                    pragma keyword = aSymbol
+                        ifTrue: [ stream nextPut: pragma ] ] ] ].
+
+    "
+     Annotation allNamed:'worldMenu'
+    "
+!
 
 allNamed: aSymbol from: aSubClass to: aSuperClass
 	"Answer a collection of all pragmas found in methods of all classes between aSubClass and aSuperClass (inclusive) whose keyword is aSymbol."
@@ -258,7 +270,6 @@
     "Modified: / 20-08-2011 / 21:31:49 / cg"
 ! !
 
-
 !Annotation methodsFor:'accessing'!
 
 arguments
@@ -646,15 +657,16 @@
 !Annotation class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.14 2012-11-05 23:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.14 2012-11-05 23:56:53 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
 !
 
 version_SVN
-    ^ '§Id: Annotation.st,v 1.1 2011/06/28 11:04:04 vrany Exp §'
+    ^ '$Id: Annotation.st,v 1.15 2014-02-25 12:23:59 cg Exp $'
 ! !
 
+
 Annotation initialize!