--- a/Tools__NewSystemBrowser.st	Fri Apr 06 16:00:08 2012 +0200
+++ b/Tools__NewSystemBrowser.st	Wed Apr 18 16:22:17 2012 +0200
@@ -5767,6 +5767,12 @@
                   showBusyCursorWhilePerforming: true
                 )
                (MenuItem
+                  label: 'All Shared Pools'
+                  itemValue: browseMenuSharedPoolClasses
+                  translateLabel: true
+                  showBusyCursorWhilePerforming: true
+                )
+               (MenuItem
                   label: '-'
                 )
                (MenuItem
@@ -6074,8 +6080,6 @@
         nil
         nil
       )
-
-    "Modified: / 29-09-2011 / 10:40:06 / cg"
 !
 
 bufferBaseMenu
@@ -16034,6 +16038,7 @@
     "Modified: / 29-09-2006 / 16:11:08 / cg"
 ! !
 
+
 !NewSystemBrowser class methodsFor:'menu specs-popup'!
 
 categoryPopUpMenu
@@ -22409,21 +22414,11 @@
 browseMenuApplicationClasses
     "add a new buffer on all application classes"
 
-    |searchBlock|
-
-    searchBlock :=
-        [
-            Smalltalk allClassesForWhich:[:eachClass | eachClass isBrowserStartable].
-        ].
-
-    self
-        spawnClassBrowserForSearch:searchBlock
-        spec:#multipleClassBrowserSpec
-        sortBy:nil in:#newBuffer label:'Applications'
-        autoSelectIfOne:true
-        callBack:[:brwsr | brwsr classListApp markApplications:true ].
-
-    "Modified: / 06-10-2006 / 11:42:02 / cg"
+    self 
+        browseMenuClassesForWhich:[:cls | cls isBrowserStartable] 
+        label: 'Applications'
+
+    "Modified: / 18-04-2012 / 16:20:54 / cg"
 !
 
 browseMenuAutoloadedClasses
@@ -22629,6 +22624,35 @@
     "Modified: / 1.3.2000 / 12:01:06 / cg"
 !
 
+browseMenuClassesForWhich: aFilter label: label
+    "add a new buffer on all shared pools"
+
+    |searchBlock|
+
+    searchBlock := [
+                        |classes|
+
+                        classes := OrderedCollection new.
+
+                        Smalltalk allClassesDo:[:eachClass |
+                            (aFilter value: eachClass) ifTrue:[
+                                classes add:eachClass
+                            ]
+                        ].
+                        classes
+                  ].
+
+    self
+        spawnClassBrowserForSearch:searchBlock
+        spec:#multipleClassBrowserSpec
+        sortBy:nil in:#newBuffer label:label
+        autoSelectIfOne:true
+        callBack:[:brwsr | brwsr classListApp markApplications:true ].
+
+    "Modified: / 06-07-2011 / 14:05:37 / cg"
+    "Created: / 18-04-2012 / 16:15:09 / cg"
+!
+
 browseMenuClassesInAllChangeSets
     "add a new buffer on all classes in the all changeSets
      (i.e. that have been changed, but not yet checked into the source repository)"
@@ -23058,20 +23082,10 @@
 browseMenuHTTPServiceClasses
     "add a new buffer on all web service classes"
 
-    |searchBlock|
-
-    searchBlock :=
-        [
-            Smalltalk allClassesForWhich:[:eachClass | eachClass isBrowserStartable
-                                                       and:[eachClass inheritsFrom:HTTPService] ].
-        ].
-
-    self
-        spawnClassBrowserForSearch:searchBlock
-        spec:#multipleClassBrowserSpec
-        sortBy:nil in:#newBuffer label:'Web Services'
-        autoSelectIfOne:true
-        callBack:[:brwsr | brwsr classListApp markApplications:true ].
+    self 
+        browseMenuClassesForWhich:[:cls | cls isBrowserStartable
+                                          and:[cls inheritsFrom:HTTPService]] 
+        label: 'Web Services'
 
     "Created: / 20-07-2007 / 10:02:14 / cg"
 !
@@ -23881,6 +23895,14 @@
     "Modified: / 25-11-2010 / 11:41:10 / cg"
 !
 
+browseMenuSharedPoolClasses
+    "add a new buffer on all shared pools"
+
+    self browseMenuClassesForWhich:[:cls | cls isSharedPool] label: 'Shared Pools'
+
+    "Created: / 18-04-2012 / 16:14:18 / cg"
+!
+
 browseMenuSpawnFullClassSource
     "open a browser showing full classes (file-like)"
 
@@ -23937,29 +23959,9 @@
 browseMenuTestCaseClasses
     "add a new buffer on all testcases"
 
-    |searchBlock|
-
-    searchBlock := [
-                        |classes|
-
-                        classes := OrderedCollection new.
-
-                        Smalltalk allClassesDo:[:eachClass |
-                            (eachClass isTestCaseLike) ifTrue:[
-                                classes add:eachClass
-                            ]
-                        ].
-                        classes
-                  ].
-
-    self
-        spawnClassBrowserForSearch:searchBlock
-        spec:#multipleClassBrowserSpec
-        sortBy:nil in:#newBuffer label:'TestCases'
-        autoSelectIfOne:true
-        callBack:[:brwsr | brwsr classListApp markApplications:true ].
-
-    "Modified: / 06-07-2011 / 14:05:37 / cg"
+    self browseMenuClassesForWhich:[:cls | cls isTestCaseLike] label: 'TestCases'
+
+    "Modified: / 18-04-2012 / 16:16:33 / cg"
 !
 
 browseMenuUnassignedMethods:openHow
@@ -35506,6 +35508,7 @@
     "Modified: / 28-02-2012 / 16:27:44 / cg"
 ! !
 
+
 !NewSystemBrowser methodsFor:'menu actions-namespace'!
 
 nameSpaceMenuCheckOut
@@ -56235,11 +56238,11 @@
 !NewSystemBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1738 2012-04-06 14:00:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1739 2012-04-18 14:22:17 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1738 2012-04-06 14:00:08 stefan Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Tools__NewSystemBrowser.st,v 1.1739 2012-04-18 14:22:17 cg Exp $'
 !
 
 version_SVN