--- a/BrowserView.st	Tue Apr 21 00:39:08 1998 +0200
+++ b/BrowserView.st	Tue Apr 21 02:37:47 1998 +0200
@@ -2477,7 +2477,7 @@
      ask for the owners class, check if a private class with the same name exists,
      before doing this."
 
-    |ownerName owner sel newClass|
+    |ownerName owner|
 
     ownerName := Dialog request:(resources string:'name of owner class:').
     ownerName size == 0 ifTrue:[
@@ -4455,7 +4455,7 @@
 classSelection:lineNr
     "user clicked on a class line - show method categories"
 
-    |cls nm oldSelector sel classes key msg globlName|
+    |cls nm oldSelector sel classes msg globlName|
 
     (currentClassHierarchy notNil
      and:[fullProtocol]) ifTrue:[
@@ -4654,7 +4654,7 @@
 classTemplateFor:aSuperClass in:categoryString namespace:isNameSpace private:isPrivate
     "return a class definition template - be smart in what is offered initially"
 
-    |cat aString name nameProto namePrefix i existingNames withNameSpaceDirective
+    |cat name nameProto namePrefix i existingNames withNameSpaceDirective
      className ownerName s|
 
     s := TextStream on:''.
@@ -4786,7 +4786,7 @@
      from the currently selected set of nameSpaces."
 
     |nameSpaces listOfClassNames listOfClasses classesPresent namesPresent searchCategory 
-     match anyCategory nm owner allNameSpaces|
+     match anyCategory nm allNameSpaces|
 
     allNameSpaces := (currentNamespace = '* all *').
 
@@ -5052,7 +5052,7 @@
 !
 
 switchToClassNamed:aString
-    |meta str classSymbol theClass newCat element idx l|
+    |meta str theClass newCat element idx l|
 
     meta := false.
 
@@ -6429,7 +6429,7 @@
 methodCategoryCreateDocumentationMethods
     "create empty documentation methods"
 
-    |cls histStream fn txt|
+    |cls fn txt|
 
     self checkClassSelected ifFalse:[^ self].
 
@@ -8499,7 +8499,7 @@
      of the argument, aClass and its superclasses.
      Used with fullProtocol browsing."
 
-    |methodList newList otherSelectors allCategories|
+    |methodList newList|
 
     methodList := self listOfAllMethodsInCategory:aCategory inFullProtocolHierarchyOfClass:aClass.
     (methodList size == 0) ifTrue:[^ nil].
@@ -8740,7 +8740,7 @@
     "switch (in the current classes hierarchy) to a method named matchString.
      If there are more than one matches, switch to the first."
 
-    |aSelector classToStartSearch classToSearch aClass nm idx|
+    |aSelector classToStartSearch classToSearch aClass nm|
 
     actualClass isNil ifTrue:[
 	currentClassHierarchy notNil ifTrue:[
@@ -11597,6 +11597,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.393 1998-04-19 19:07:17 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.394 1998-04-21 00:37:47 cg Exp $'
 ! !
 BrowserView initialize!