--- a/BrowserView.st	Wed Jul 15 13:31:57 1998 +0200
+++ b/BrowserView.st	Thu Jul 16 18:25:18 1998 +0200
@@ -9491,7 +9491,7 @@
     box := self listBoxTitle:'accept in which method category ?' okText:'accept' list:someCategories.
 
     lastMethodCategory isNil ifTrue:[
-        txt := 'new methods'
+        txt := 'as yet undefined' "/ 'new methods'
     ] ifFalse:[
         txt := lastMethodCategory
     ].
@@ -9500,7 +9500,7 @@
     box showAtPointer.
     ^ retVal
 
-    "Modified: / 18.6.1998 / 16:41:03 / cg"
+    "Modified: / 16.7.1998 / 18:19:08 / cg"
 !
 
 askForSearchSelectorTitle:title openWith:aSelector
@@ -10529,6 +10529,9 @@
                     codeView modified:false.
                     codeModified := false.
                     currentMethod := actualClass compiledMethodAt:currentSelector.
+                    (methodCategoryListView list includes:cat) ifFalse:[
+                        self updateMethodCategoryListWithScroll:false.
+                    ].
                     self updateMethodListWithScroll:false keepSelection:(rslt == currentMethod).
                     self normalLabel.
                 ]
@@ -10545,7 +10548,7 @@
                                 forClass:actualClass)
     ].
 
-    "Modified: / 17.6.1998 / 11:38:35 / cg"
+    "Modified: / 16.7.1998 / 18:21:41 / cg"
 !
 
 setDoitActionForClass
@@ -11786,6 +11789,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.425 1998-07-15 11:31:57 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.426 1998-07-16 16:25:18 cg Exp $'
 ! !
 BrowserView initialize!