--- a/BrowserView.st	Mon Feb 19 17:27:29 1996 +0100
+++ b/BrowserView.st	Tue Feb 20 00:33:24 1996 +0100
@@ -2480,7 +2480,6 @@
         currentMethod := nil.
         currentSelector := nil.
 
-        self updateVariableList.
         self updateMethodCategoryList.
 
         oldMethodCategory notNil ifTrue:[
@@ -2492,6 +2491,7 @@
         ].
         self updateMethodList.
         self updateCodeView.
+        self updateVariableList.
 
         fullClass ifTrue:[
             codeView acceptAction:[:theCode |
@@ -2531,7 +2531,7 @@
     ]
 
     "Created: 23.11.1995 / 11:32:03 / cg"
-    "Modified: 11.2.1996 / 15:45:10 / cg"
+    "Modified: 20.2.1996 / 00:26:30 / cg"
 !
 
 classTemplateFor:className in:cat
@@ -6621,76 +6621,80 @@
     name isNil ifTrue:[^ self].
 
     self withSearchCursorDo:[
-	|classes filter any|
-
-	classes := Array with:actualClass.
-	currentClassHierarchy notNil ifTrue:[
-	    classes := classes , actualClass allSuperclasses.
-	    redefinedSelectors := IdentitySet new.
-	].
-
-	filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false. 
-
-	any := false.
-	"
-	 highlight the method that ref this variable
-	"
-	classes do:[:someClass |
-	    (fullProtocol
-	    and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
-		someClass methodArray with:someClass selectorArray 
-		do:[:method :selector |
-
-		    (inCat
-		    or:[methodListView list notNil
-			and:[methodListView list includes:selector]])
-		    ifTrue:[
-			(redefinedSelectors isNil
-			or:[(redefinedSelectors includes:selector) not])
-		       ifTrue:[
-			   (filter value:someClass value:method value:selector) ifTrue:[
-			       |idx cat|
-
-			       (inCat
-			       and:[methodCategoryListView notNil 
-			       and:[methodCategoryListView list notNil]]) ifTrue:[
-				   cat := method category.
-				   "
-				    highlight the methodCategory
-				   "
-				   idx := methodCategoryListView list indexOf:cat.
-				   idx ~~ 0 ifTrue:[
-				       methodCategoryListView attributeAt:idx put:#bold.
-				   ].
-			       ].
-
-			       (inMethods
-			       and:[methodListView notNil 
-			       and:[methodListView list notNil]]) ifTrue:[
-				   "
-				    highlight the method
-				   "
-				   idx := methodListView list indexOf:selector.
-				   idx ~~ 0 ifTrue:[
-				       methodListView attributeAt:idx put:#bold.
-				   ].
-				   any := true
-			       ].
-			   ].
-			   redefinedSelectors notNil ifTrue:[
-			       redefinedSelectors add:selector
-			   ]
-			]
-		    ]
-		]
-	    ]
-	].
-	any ifTrue:[
-	    self setSearchPattern:name
-	]
+        |classes filter any supers|
+
+        classes := Array with:actualClass.
+        (currentClassHierarchy notNil and:[fullProtocol]) ifTrue:[
+            supers := actualClass allSuperclasses.
+            supers notNil ifTrue:[    
+                classes := classes , supers.
+            ].
+            redefinedSelectors := IdentitySet new.
+        ].
+
+        filter := SystemBrowser filterToSearchRefsTo:name classVars:showInstance not modificationsOnly:false. 
+
+        any := false.
+        "
+         highlight the method that ref this variable
+        "
+        classes do:[:someClass |
+            (fullProtocol
+            and:[classListView valueIsInSelection:(someClass name)]) ifFalse:[
+                someClass methodArray with:someClass selectorArray 
+                do:[:method :selector |
+
+                    (inCat
+                    or:[methodListView list notNil
+                        and:[methodListView list includes:selector]])
+                    ifTrue:[
+                        (redefinedSelectors isNil
+                        or:[(redefinedSelectors includes:selector) not])
+                       ifTrue:[
+                           (filter value:someClass value:method value:selector) ifTrue:[
+                               |idx cat|
+
+                               (inCat
+                               and:[methodCategoryListView notNil 
+                               and:[methodCategoryListView list notNil]]) ifTrue:[
+                                   cat := method category.
+                                   "
+                                    highlight the methodCategory
+                                   "
+                                   idx := methodCategoryListView list indexOf:cat.
+                                   idx ~~ 0 ifTrue:[
+                                       methodCategoryListView attributeAt:idx put:#bold.
+                                   ].
+                               ].
+
+                               (inMethods
+                               and:[methodListView notNil 
+                               and:[methodListView list notNil]]) ifTrue:[
+                                   "
+                                    highlight the method
+                                   "
+                                   idx := methodListView list indexOf:selector.
+                                   idx ~~ 0 ifTrue:[
+                                       methodListView attributeAt:idx put:#bold.
+                                   ].
+                                   any := true
+                               ].
+                           ].
+                           redefinedSelectors notNil ifTrue:[
+                               redefinedSelectors add:selector
+                           ]
+                        ]
+                    ]
+                ]
+            ]
+        ].
+        any ifTrue:[
+            self setSearchPattern:name
+        ]
     ]
 
     "Created: 23.11.1995 / 14:12:08 / cg"
+    "Modified: 20.2.1996 / 00:30:26 / cg"
 !
 
 hilightMethodsInMethodList
@@ -6784,6 +6788,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.102 1996-02-19 16:27:29 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.103 1996-02-19 23:33:24 cg Exp $'
 ! !
 BrowserView initialize!