--- a/BrowserView.st	Fri Oct 12 19:53:58 2001 +0200
+++ b/BrowserView.st	Fri Oct 12 21:41:00 2001 +0200
@@ -2391,7 +2391,7 @@
 !
 
 classCategoryFindMethod
-    |box restart matchBlock|
+    |box matchBlock|
 
     box := self 
                 listBoxForCodeSelectionTitle:'selector to find:\\(Tab for completion or use matchPattern)' withCRs 
@@ -2455,11 +2455,10 @@
 !
 
 classCategoryMenu
-
     <resource: #keyboard ( #Find #Cmdn) >
     <resource: #programMenu >
 
-    |specialMenu m items labels selectors shorties subMenu|
+    |specialMenu m items subMenu|
 
     currentClassCategory notNil ifTrue:[
         items :=  #(
@@ -2891,7 +2890,7 @@
     "mini-browser into the repository, showing modules & packages.
      Allows load of a containers contents"
 
-    |bindings m
+    |bindings
      moduleList packageList containerList fileNameList
      moduleSelection packageSelection containerSelection
      loadEnabled loadAction dialog|
@@ -3597,7 +3596,7 @@
 
     <resource: #programMenu >
 
-    |labels selectors args changes hist menu n nMax|
+    |labels changes hist menu n nMax|
 
     changes := ChangeSet current.
     hist := OrderedCollection new.
@@ -3639,7 +3638,7 @@
 
     <resource: #programMenu >
 
-    |labels selectors args changes hist n nMax|
+    |labels changes hist n nMax|
 
     changes := ChangeSet current.
     hist := OrderedCollection new.
@@ -4386,7 +4385,7 @@
     <resource: #keyboard ( #Cmdl #Cmdn #Cmdd) >
     <resource: #programMenu >
 
-    |specialMenu items m newClassMenu spawnMenu idx spawnItems|
+    |specialMenu items m newClassMenu spawnMenu spawnItems|
 
     currentClass isNil ifTrue:[
         items :=  #(
@@ -14921,6 +14920,6 @@
 !BrowserView class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.686 2001-10-12 17:53:58 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/BrowserView.st,v 1.687 2001-10-12 19:41:00 cg Exp $'
 ! !
 BrowserView initialize!