--- 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|