--- a/InspectorView.st	Thu Jun 13 12:23:07 2013 +0100
+++ b/InspectorView.st	Fri Jun 21 19:05:40 2013 +0100
@@ -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|
 
@@ -1948,7 +1962,7 @@
         (sel perform:aSelector with:(Object readFrom:argString)) inspect.
         ^ self.
     ].
-self halt.
+self halt:'unimplemented numargs'.
 
     "Modified: / 27-07-2012 / 22:43:37 / cg"
 !
@@ -3051,7 +3065,8 @@
             ] ifFalse:[
                 'object''s class provides no evaluator'
             ]
-        ].
+        ];
+        editedMethodOrClass:(object class).
 
 "/    object class evaluatorClass isNil ifTrue:[
 "/        workspace doItAction:nil.
@@ -3506,11 +3521,11 @@
 !InspectorView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.316 2013-06-20 22:50:27 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.313 2013-06-09 14:16:54 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/InspectorView.st,v 1.316 2013-06-20 22:50:27 cg Exp $'
 !
 
 version_HG