# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 897983129 -7200
# Node ID 748fd8e6cf64afd2347bbe38e1e2ca36722c42f1
# Parent  1889219f83e44bb1a82f8b70d289272520b103fa
added #inspect to varList menu

diff -r 1889219f83e4 -r 748fd8e6cf64 BrowserView.st
--- a/BrowserView.st	Mon Jun 15 17:26:06 1998 +0200
+++ b/BrowserView.st	Tue Jun 16 09:45:29 1998 +0200
@@ -10939,6 +10939,24 @@
     "Modified: / 25.10.1997 / 19:43:35 / cg"
 !
 
+varInspect
+    "open an inspector on the value of a classVar / classInstVar"
+
+    |name searchClass |
+
+    name := variableListView selectionValue.
+    name isNil ifTrue:[^ self].
+
+    (classInstVarsInVarList) ifFalse:[
+        searchClass := currentClass whichClassDefinesClassVar:name.
+        (searchClass classVarAt:(name asSymbol)) inspect
+    ] ifTrue:[        
+        (currentClass instVarNamed:name) inspect.
+    ].
+
+    "Modified: / 16.6.1998 / 09:42:40 / cg"
+!
+
 varRefsOrModsTitle:title access:accessor mods:mods
     "show an enterbox for instvar to search for"
 
@@ -11144,6 +11162,12 @@
                            ).
     ].
 
+    (showInstance not and:[variableListView hasSelection]) ifTrue:[
+        items := items , #(
+                                ('inspect' varInspect)
+                           ).
+    ].
+
     m := PopUpMenu itemList:items resources:resources.
 
     currentClass instSize == 0 ifTrue:[
@@ -11158,7 +11182,7 @@
     ].
     ^ m
 
-    "Modified: / 21.5.1998 / 15:36:00 / cg"
+    "Modified: / 16.6.1998 / 09:39:40 / cg"
 !
 
 variableSelection:lineNr
@@ -11503,6 +11527,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.414 1998-06-15 15:26:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.415 1998-06-16 07:45:29 cg Exp $'
 ! !
 BrowserView initialize!
diff -r 1889219f83e4 -r 748fd8e6cf64 BrwsrView.st
--- a/BrwsrView.st	Mon Jun 15 17:26:06 1998 +0200
+++ b/BrwsrView.st	Tue Jun 16 09:45:29 1998 +0200
@@ -10939,6 +10939,24 @@
     "Modified: / 25.10.1997 / 19:43:35 / cg"
 !
 
+varInspect
+    "open an inspector on the value of a classVar / classInstVar"
+
+    |name searchClass |
+
+    name := variableListView selectionValue.
+    name isNil ifTrue:[^ self].
+
+    (classInstVarsInVarList) ifFalse:[
+        searchClass := currentClass whichClassDefinesClassVar:name.
+        (searchClass classVarAt:(name asSymbol)) inspect
+    ] ifTrue:[        
+        (currentClass instVarNamed:name) inspect.
+    ].
+
+    "Modified: / 16.6.1998 / 09:42:40 / cg"
+!
+
 varRefsOrModsTitle:title access:accessor mods:mods
     "show an enterbox for instvar to search for"
 
@@ -11144,6 +11162,12 @@
                            ).
     ].
 
+    (showInstance not and:[variableListView hasSelection]) ifTrue:[
+        items := items , #(
+                                ('inspect' varInspect)
+                           ).
+    ].
+
     m := PopUpMenu itemList:items resources:resources.
 
     currentClass instSize == 0 ifTrue:[
@@ -11158,7 +11182,7 @@
     ].
     ^ m
 
-    "Modified: / 21.5.1998 / 15:36:00 / cg"
+    "Modified: / 16.6.1998 / 09:39:40 / cg"
 !
 
 variableSelection:lineNr
@@ -11503,6 +11527,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.414 1998-06-15 15:26:06 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.415 1998-06-16 07:45:29 cg Exp $'
 ! !
 BrowserView initialize!