--- a/BrowserView.st	Thu Jun 18 14:59:42 1998 +0200
+++ b/BrowserView.st	Thu Jun 18 15:11:17 1998 +0200
@@ -1402,7 +1402,7 @@
 
     box confirm ifTrue:[
         "after querying user - do really remove classes in list1 and list2"
-        |keep idx|
+        |keep idx oldPosition|
 
         keep := false.
         (subclassesRemoved asOrderedCollection
@@ -1418,7 +1418,9 @@
             ]
         ].
 
-        self updateClassCategoryList.
+        "/ self updateClassCategoryList.
+        self updateClassCategoryListWithScroll:false.
+
         (classCategoryListView list includes:currentClassCategory) ifFalse:[
             currentClassCategory := nil.
         ].
@@ -1437,7 +1439,7 @@
     box destroy
 
     "Modified: / 19.8.1996 / 23:22:35 / stefan"
-    "Modified: / 10.4.1998 / 12:25:32 / cg"
+    "Modified: / 18.6.1998 / 15:08:42 / cg"
 !
 
 classCategoryRename
@@ -4438,17 +4440,22 @@
 allClassesInSelectedNamespacesDo:aBlock
     |nameSpacesConsidered|
 
+    currentNamespace = '* all *' ifTrue:[
+        Smalltalk allBehaviorsDo:aBlock.
+        ^ self
+    ].
+
     nameSpacesConsidered := self listOfNamespaces asIdentitySet.
 
     Smalltalk allBehaviorsDo:[:aClass |
-	(nameSpacesConsidered includes:aClass nameSpace)
-	ifTrue:[
-	    aBlock value:aClass
-	]
-    ]
-
-    "Created: 16.1.1997 / 20:18:47 / cg"
-    "Modified: 16.1.1997 / 20:20:24 / cg"
+        (nameSpacesConsidered includes:aClass nameSpace)
+        ifTrue:[
+            aBlock value:aClass
+        ]
+    ]
+
+    "Created: / 16.1.1997 / 20:18:47 / cg"
+    "Modified: / 18.6.1998 / 15:06:23 / cg"
 !
 
 changeCurrentClass:newClass
@@ -11718,6 +11725,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.419 1998-06-18 12:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.420 1998-06-18 13:11:17 cg Exp $'
 ! !
 BrowserView initialize!

--- a/BrwsrView.st	Thu Jun 18 14:59:42 1998 +0200
+++ b/BrwsrView.st	Thu Jun 18 15:11:17 1998 +0200
@@ -1402,7 +1402,7 @@
 
     box confirm ifTrue:[
         "after querying user - do really remove classes in list1 and list2"
-        |keep idx|
+        |keep idx oldPosition|
 
         keep := false.
         (subclassesRemoved asOrderedCollection
@@ -1418,7 +1418,9 @@
             ]
         ].
 
-        self updateClassCategoryList.
+        "/ self updateClassCategoryList.
+        self updateClassCategoryListWithScroll:false.
+
         (classCategoryListView list includes:currentClassCategory) ifFalse:[
             currentClassCategory := nil.
         ].
@@ -1437,7 +1439,7 @@
     box destroy
 
     "Modified: / 19.8.1996 / 23:22:35 / stefan"
-    "Modified: / 10.4.1998 / 12:25:32 / cg"
+    "Modified: / 18.6.1998 / 15:08:42 / cg"
 !
 
 classCategoryRename
@@ -4438,17 +4440,22 @@
 allClassesInSelectedNamespacesDo:aBlock
     |nameSpacesConsidered|
 
+    currentNamespace = '* all *' ifTrue:[
+        Smalltalk allBehaviorsDo:aBlock.
+        ^ self
+    ].
+
     nameSpacesConsidered := self listOfNamespaces asIdentitySet.
 
     Smalltalk allBehaviorsDo:[:aClass |
-	(nameSpacesConsidered includes:aClass nameSpace)
-	ifTrue:[
-	    aBlock value:aClass
-	]
-    ]
-
-    "Created: 16.1.1997 / 20:18:47 / cg"
-    "Modified: 16.1.1997 / 20:20:24 / cg"
+        (nameSpacesConsidered includes:aClass nameSpace)
+        ifTrue:[
+            aBlock value:aClass
+        ]
+    ]
+
+    "Created: / 16.1.1997 / 20:18:47 / cg"
+    "Modified: / 18.6.1998 / 15:06:23 / cg"
 !
 
 changeCurrentClass:newClass
@@ -11718,6 +11725,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.419 1998-06-18 12:32:50 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/Attic/BrwsrView.st,v 1.420 1998-06-18 13:11:17 cg Exp $'
 ! !
 BrowserView initialize!