--- a/BrowserView.st Tue Oct 08 23:21:46 1996 +0200
+++ b/BrowserView.st Thu Oct 10 22:23:00 1996 +0200
@@ -7571,7 +7571,7 @@
"search for methods which access the selected
variable, and highlight them"
- |name redefinedSelectors|
+ |name redefinedSelectors methodList methodCategoryList|
variableListView isNil ifTrue:[^ self].
@@ -7599,7 +7599,15 @@
filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false.
+ methodListView notNil ifTrue:[
+ methodList := methodListView list.
+ ].
+ methodCategoryListView notNil ifTrue:[
+ methodCategoryList := methodCategoryListView list.
+ ].
+
any := false.
+
"
highlight the method that ref this variable
"
@@ -7608,8 +7616,8 @@
and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
someClass methodDictionary keysAndValuesDo:[:selector :method |
(inCat
- or:[methodListView list notNil
- and:[methodListView list includes:selector]])
+ or:[methodList notNil
+ and:[methodList includes:selector]])
ifTrue:[
(redefinedSelectors isNil
or:[(redefinedSelectors includes:selector) not])
@@ -7618,8 +7626,7 @@
|idx cat|
(inCat
- and:[methodCategoryListView notNil
- and:[methodCategoryListView list notNil]]) ifTrue:[
+ and:[methodCategoryList notNil]) ifTrue:[
cat := method category.
"
highlight the methodCategory
@@ -7631,8 +7638,7 @@
].
(inMethods
- and:[methodListView notNil
- and:[methodListView list notNil]]) ifTrue:[
+ and:[methodList notNil]) ifTrue:[
"
highlight the method
"
@@ -7657,8 +7663,8 @@
]
"Created: 23.11.1995 / 14:12:08 / cg"
- "Modified: 20.2.1996 / 00:30:26 / cg"
"Modified: 5.6.1996 / 11:38:19 / stefan"
+ "Modified: 10.10.1996 / 21:14:37 / cg"
!
hilightMethodsInMethodList
@@ -7767,6 +7773,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.173 1996-10-08 21:21:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.174 1996-10-10 20:23:00 cg Exp $'
! !
BrowserView initialize!
--- a/BrwsrView.st Tue Oct 08 23:21:46 1996 +0200
+++ b/BrwsrView.st Thu Oct 10 22:23:00 1996 +0200
@@ -7571,7 +7571,7 @@
"search for methods which access the selected
variable, and highlight them"
- |name redefinedSelectors|
+ |name redefinedSelectors methodList methodCategoryList|
variableListView isNil ifTrue:[^ self].
@@ -7599,7 +7599,15 @@
filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false.
+ methodListView notNil ifTrue:[
+ methodList := methodListView list.
+ ].
+ methodCategoryListView notNil ifTrue:[
+ methodCategoryList := methodCategoryListView list.
+ ].
+
any := false.
+
"
highlight the method that ref this variable
"
@@ -7608,8 +7616,8 @@
and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
someClass methodDictionary keysAndValuesDo:[:selector :method |
(inCat
- or:[methodListView list notNil
- and:[methodListView list includes:selector]])
+ or:[methodList notNil
+ and:[methodList includes:selector]])
ifTrue:[
(redefinedSelectors isNil
or:[(redefinedSelectors includes:selector) not])
@@ -7618,8 +7626,7 @@
|idx cat|
(inCat
- and:[methodCategoryListView notNil
- and:[methodCategoryListView list notNil]]) ifTrue:[
+ and:[methodCategoryList notNil]) ifTrue:[
cat := method category.
"
highlight the methodCategory
@@ -7631,8 +7638,7 @@
].
(inMethods
- and:[methodListView notNil
- and:[methodListView list notNil]]) ifTrue:[
+ and:[methodList notNil]) ifTrue:[
"
highlight the method
"
@@ -7657,8 +7663,8 @@
]
"Created: 23.11.1995 / 14:12:08 / cg"
- "Modified: 20.2.1996 / 00:30:26 / cg"
"Modified: 5.6.1996 / 11:38:19 / stefan"
+ "Modified: 10.10.1996 / 21:14:37 / cg"
!
hilightMethodsInMethodList
@@ -7767,6 +7773,6 @@
!BrowserView class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.173 1996-10-08 21:21:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.174 1996-10-10 20:23:00 cg Exp $'
! !
BrowserView initialize!