--- a/BrowserView.st	Tue Feb 08 16:55:38 2000 +0100
+++ b/BrowserView.st	Tue Feb 08 18:46:07 2000 +0100
@@ -10129,15 +10129,14 @@
 
     "/ reselected with control ?
     ((sensor := self sensor) notNil and:[sensor ctrlDown]) ifTrue:[
-	selection = currentSelector ifTrue:[
-	    "/ if there is a trace/break, remove it.
-	    (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
-		self methodRemoveBreakOrTrace.
-		^ self
-	    ]
-	].
-    ].
-
+        selection = currentSelector ifTrue:[
+            "/ if there is a trace/break, remove it.
+            (currentMethod notNil and:[currentMethod isWrapped]) ifTrue:[
+                self methodRemoveBreakOrTrace.
+                ^ self
+            ]
+        ].
+    ].
     self switchToMethod:selection.
 
     "Modified: 30.7.1997 / 15:31:21 / cg"
@@ -10316,41 +10315,41 @@
     selectorString := aString withoutSpaces upTo:(Character space).
     selectorSymbol := selectorString asSymbolIfInterned.
     selectorSymbol isNil ifTrue:[
-	self beep.
-	^ self
+        self beep.
+        ^ self
     ].
 
     fullProtocol ifTrue:[
-	self releaseMethod.
-	"
-	 search which class implements the selector
-	"
-	self classesInFullProtocolHierarchy:actualClass do:[:c |
-	    (currentMethod isNil 
-	     and:[c includesSelector:selectorSymbol]) ifTrue:[
-		currentSelector := selectorSymbol.
-		currentMethod := c compiledMethodAt:selectorSymbol.
-		acceptClass := c
-	    ]
-	]
+        self releaseMethod.
+        "
+         search which class implements the selector
+        "
+        self classesInFullProtocolHierarchy:actualClass do:[:c |
+            (currentMethod isNil 
+             and:[c includesSelector:selectorSymbol]) ifTrue:[
+                currentSelector := selectorSymbol.
+                currentMethod := c compiledMethodAt:selectorSymbol.
+                acceptClass := c
+            ]
+        ]
     ] ifFalse:[
-	currentSelector := selectorSymbol.
-	currentMethod := actualClass compiledMethodAt:selectorSymbol.
+        currentSelector := selectorSymbol.
+        currentMethod := actualClass compiledMethodAt:selectorSymbol.
     ].
 
     methodCategoryListView notNil ifTrue:[
-	currentMethod notNil ifTrue:[
-	    cat := currentMethod category.
-	    (currentMethodCategory = cat) ifFalse:[
-		currentMethodCategory := cat.
-		methodCategoryListView setSelectElement:currentMethodCategory
-	    ]
-	]
+        currentMethod notNil ifTrue:[
+            cat := currentMethod category.
+            (currentMethodCategory ~= cat) ifTrue:[
+                currentMethodCategory := cat.
+                methodCategoryListView setSelectElement:currentMethodCategory
+            ]
+        ]
     ].
 
     self methodSelectionChanged.
     currentSelector notNil ifTrue:[
-	self addToClassHistory: actualClass name asString, ' ', currentSelector
+        self addToClassHistory: actualClass name asString, ' ', currentSelector
     ]
 
     "Modified: / 27.7.1998 / 11:01:38 / cg"
@@ -13823,6 +13822,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.594 2000-02-07 13:38:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.595 2000-02-08 17:46:07 cg Exp $'
 ! !
 BrowserView initialize!