--- a/BrowserView.st	Thu Dec 09 12:19:35 1999 +0100
+++ b/BrowserView.st	Thu Dec 09 13:40:38 1999 +0100
@@ -196,7 +196,7 @@
         i := resources at:'SYSTEMBROWSER_ICON' default:nil.
         i isNil ifTrue:[
             nm := resources at:'SYSTEMBROWSER_ICON_FILE' default:'SBrowser.xbm'.
-            i := Smalltalk bitmapFromFileNamed:nm inPackage:#'stx:libtool'.
+            i := Smalltalk imageFromFileNamed:nm inPackage:#'stx:libtool'.
             i isNil ifTrue:[
                 i := StandardSystemView defaultIcon
             ]
@@ -8359,39 +8359,39 @@
     |t box sels count answer|
 
     currentMethodCategory notNil ifTrue:[
-	sels := OrderedCollection new.
-	actualClass methodDictionary keysAndValuesDo:[:selector :aMethod |
-	    (aMethod category = currentMethodCategory) ifTrue:[
-		sels add:selector
-	    ]
-	].
-	count := sels size.
-	(count ~~ 0) ifTrue:[
-	    (count == 1) ifTrue:[
-		t := 'remove %1\(with 1 method) ?'
-	    ] ifFalse:[
-		t := 'remove %1\(with %2 methods) ?'
-	    ].
-	    t := resources string:t with:currentMethodCategory with:count printString.
-	    t := t withCRs.
-
-	    box := YesNoBox 
-		       title:t
-		       yesText:(resources at:'remove')
-		       noText:(resources at:'abort').
-	    answer := box confirm.
-	    box destroy.
-	    answer ifFalse:[
-		^ self.
-	    ].
-	    sels do:[:selector|
-		actualClass removeSelector:selector.
-	    ].
-	].
-	currentMethodCategory := nil.
-	self releaseMethod.
-	self updateMethodCategoryListWithScroll:false.
-	self updateMethodList
+        sels := OrderedCollection new.
+        actualClass methodDictionary keysAndValuesDo:[:selector :aMethod |
+            (aMethod category = currentMethodCategory) ifTrue:[
+                sels add:selector
+            ]
+        ].
+        count := sels size.
+        (count ~~ 0) ifTrue:[
+            (count == 1) ifTrue:[
+                t := 'remove the method in category ''%1'' ?'
+            ] ifFalse:[
+                t := 'remove all %2 methods in category ''%1'' ?'
+            ].
+            t := resources string:t with:currentMethodCategory with:count printString.
+            t := t withCRs.
+
+            box := YesNoBox 
+                       title:t
+                       yesText:(resources at:'remove')
+                       noText:(resources at:'abort').
+            answer := box confirm.
+            box destroy.
+            answer ifFalse:[
+                ^ self.
+            ].
+            sels do:[:selector|
+                actualClass removeSelector:selector.
+            ].
+        ].
+        currentMethodCategory := nil.
+        self releaseMethod.
+        self updateMethodCategoryListWithScroll:false.
+        self updateMethodList
     ]
 
     "Modified: / 7.6.1996 / 09:13:15 / stefan"
@@ -14016,6 +14016,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.575 1999-12-08 20:43:01 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.576 1999-12-09 12:40:38 cg Exp $'
 ! !
 BrowserView initialize!