--- a/InspectorView.st	Thu Jun 20 13:23:51 2013 +0200
+++ b/InspectorView.st	Thu Jun 20 13:24:06 2013 +0200
@@ -1286,6 +1286,11 @@
                        ('Browse Value'                 #browseValue            )
              ).
     ].
+    (sel isSymbol) ifTrue:[
+        items := items , #(
+                       ('Browse Implementors'           #browseImplementorsOfSymbolValue)
+              ).
+    ].
 
     items := items , (self optionalToolItems).
     items := items , (self optionalViewSelectionItems).
@@ -1374,6 +1379,7 @@
     (self theSingleSelectionIndex isNil) ifTrue:[
         m disableAll:#(doFollow doInspect doBasicInspect doNewInspect
                        browse browseClassHierarchy browseFullClassProtocol
+                       browseValue browseImplementorsOfSymbolValue
                        doStartMonitor doCopyKey doCopyKey)
     ].
     (self hasSelfEntry and:[selectionIndex == 1]) ifTrue:[
@@ -1680,6 +1686,14 @@
     "Modified: / 27-07-2012 / 22:42:55 / cg"
 !
 
+browseImplementorsOfSymbolValue
+    |symbol|
+
+    symbol := self selection.
+    inspectedObject class  browserClass 
+        browseImplementorsOf:symbol
+!
+
 browseMethodsClass
     |mthd|
 
@@ -3507,10 +3521,10 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.314 2013-06-14 14:35:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.315 2013-06-20 11:24:06 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.314 2013-06-14 14:35:18 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.315 2013-06-20 11:24:06 cg Exp $'
 ! !