--- a/Tools__NewSystemBrowser.st	Wed Jul 18 19:12:58 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Jul 18 19:30:52 2012 +0200
@@ -6112,6 +6112,12 @@
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
+                  label: 'With Annotation'
+                  itemValue: browseMenuMethodsWithAnnotation
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
                   label: '-'
                 )
                (MenuItem
@@ -16323,7 +16329,6 @@
     "Modified: / 29-09-2006 / 16:11:08 / cg"
 ! !
 
-
 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 categoryPopUpMenu
@@ -23533,6 +23538,32 @@
     ^ self browseMenuMethodsInChangeSets:(Array with:ChangeSet current) openAs:openHow
 !
 
+browseMenuMethodsWithAnnotation
+    "launch an enterBox for area to search in"
+
+    ^ self
+        askForMethodAndSpawnSearchTitle:'Search for Annotated Methods:)'
+        browserLabel:'Annotated Methods'
+        searchWith:[:resourceOrEmpty :classes :ignoreCase :doMatch |
+            self class findResource:resourceOrEmpty match:doMatch ignoreCase:ignoreCase in:classes.
+            self class 
+                findMethodsIn:classes 
+                where:[:c :m :sel | 
+                    m hasAnnotation
+                    and:[ m annotations contains:[:a | a isArray not and:[ a isResource not ] ]]
+                ]
+        ]
+        searchWhat:#annotation
+        searchArea:(self defaultSearchArea)
+        withCaseIgnore:false
+        withTextEntry:false
+        withMatch:false
+        withMethodList:false
+        setSearchPattern:nil
+
+    "Created: / 18-07-2012 / 19:26:56 / cg"
+!
+
 browseMenuMethodsWithCode
     "launch an enterBox for code to search for"
 
@@ -36050,7 +36081,6 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
-
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -56972,11 +57002,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1752 2012-06-13 12:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1753 2012-07-18 17:30:52 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1752 2012-06-13 12:08:32 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1753 2012-07-18 17:30:52 cg Exp $'
 !
 
 version_SVN