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