InspectorView.st
branchjv
changeset 16833 a9b0aec8f265
parent 16828 3be43a489ae3
parent 16832 5edf4aa25bf6
child 17132 17d361c666c2
--- a/InspectorView.st	Wed Sep 07 06:47:48 2016 +0200
+++ b/InspectorView.st	Thu Sep 08 06:46:12 2016 +0200
@@ -1886,7 +1886,13 @@
                        ('Browse Implementors'           #browseImplementorsOfSymbolValue)
               ).
     ].
-
+    
+    (inspectedObject class allInstVarNames includes:(self selectedKeyName)) ifTrue:[
+        items := items , #(
+                       ('Browse References to Instvar'           #browseReferencesToInstvar)
+              ).
+    ].
+    
     items := items , (self optionalToolItems).
     items := items , (self optionalViewSelectionItems).
     items := items , #(
@@ -2321,6 +2327,14 @@
     ].
 !
 
+browseReferencesToInstvar
+    SystemBrowser default
+        browseRefsTo:(self selectedKeyName) 
+        classVars:false
+        in:(inspectedObject class withAllSuperclasses)
+        modificationsOnly:false
+!
+
 browseUpdateMethods
     |deps methods|