--- a/BrowserView.st	Thu Dec 07 15:18:37 2000 +0100
+++ b/BrowserView.st	Thu Dec 07 17:22:34 2000 +0100
@@ -2591,39 +2591,43 @@
     oldMethodCategory := currentMethodCategory.
     oldMethod := currentMethod.
     oldMethod notNil ifTrue:[
-	oldSelector := currentSelector
+        oldSelector := currentSelector
     ].
 
     classCategoryListView notNil ifTrue:[
-	newCategoryList := self listOfAllClassCategories.
-	newCategoryList = classCategoryListView list ifFalse:[
-	    scroll ifTrue:[
-		classCategoryListView contents:newCategoryList
-	    ] ifFalse:[
-		classCategoryListView setContents:newCategoryList
-	    ]
-	]
+        newCategoryList := self listOfAllClassCategories.
+        newCategoryList = classCategoryListView list ifFalse:[
+            scroll ifTrue:[
+                classCategoryListView contents:newCategoryList
+            ] ifFalse:[
+                classCategoryListView setContents:newCategoryList
+            ]
+        ]
     ].
 
     oldClassCategory notNil ifTrue:[
-	classCategoryListView notNil ifTrue:[
-	    classCategoryListView setSelectElement:oldClassCategory
-	]
+        classCategoryListView notNil ifTrue:[
+            classCategoryListView setSelectElement:oldClassCategory
+        ]
     ].
     classListView notNil ifTrue:[
-	oldClass notNil ifTrue:[
-	    classListView setSelectElement:(oldClass name)
-	]
+        oldClass notNil ifTrue:[
+            classListView multipleSelectOk ifTrue:[
+                classListView setSelectElement:(Array with:oldClass name)
+            ] ifFalse:[
+                classListView setSelectElement:(oldClass name)
+            ]
+        ]
     ].
     oldMethodCategory notNil ifTrue:[
-	methodCategoryListView notNil ifTrue:[
-	    methodCategoryListView setSelectElement:oldMethodCategory
-	].
+        methodCategoryListView notNil ifTrue:[
+            methodCategoryListView setSelectElement:oldMethodCategory
+        ].
     ].
     oldSelector notNil ifTrue:[
-	methodListView notNil ifTrue:[
-	    methodListView setSelectElement:oldSelector
-	].
+        methodListView notNil ifTrue:[
+            methodListView setSelectElement:oldSelector
+        ].
     ]
 
     "Modified: / 27.7.1998 / 10:56:50 / cg"
@@ -13773,6 +13777,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.655 2000-12-07 14:14:01 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.656 2000-12-07 16:22:34 ps Exp $'
 ! !
 BrowserView initialize!