--- a/FileBrowser.st	Wed Dec 19 15:32:58 2001 +0100
+++ b/FileBrowser.st	Wed Dec 19 15:44:08 2001 +0100
@@ -2841,7 +2841,7 @@
 
     <resource: #programMenu>
 
-    |items m sel ns subMenu subItems|
+    |items m sel ns|
 
     items := #(
                  ('spawn'            fileSpawn        )
@@ -3006,7 +3006,7 @@
                             values:#(true #confirm false)
                             default:true.
             doRemove == #confirm ifTrue:[
-                self halt.
+                self halt:'Confirm each not yet implemented'.
             ].
         ] ifFalse:[
             q := resources string:'Remove ''%1'' ?' with:(fileNames first allBold).
@@ -3173,7 +3173,7 @@
 newHardLink
     "ask for and create a hard link (unix only)"
 
-    |sel box orgName1 name1 name2 f1 f2 f d err nm here l1 if1 if2|
+    |sel box orgName1 name1 name2 f1 f2 err here if1 if2|
 
     sel := self getSelectedFileName.
 
@@ -3243,7 +3243,7 @@
 newSoftLink
     "ask for and create a soft link (unix only)"
 
-    |sel box orgName1 name1 name2 f1 f2 f d err nm here l1 if1 if2|
+    |sel box orgName1 name1 name2 f1 f2 err here if1 if2|
 
     sel := self getSelectedFileName.
     here := currentDirectory pathName.
@@ -3778,7 +3778,7 @@
 
 initialize
     |frame spacing halfSpacing v topFrame labelFrame filterModel
-     buttonPanel img mH lowerFrame|
+     mH lowerFrame|
 
     super initialize.
 
@@ -4587,7 +4587,7 @@
 !
 
 entryCompletion:contents
-    |newString words lastWord expandedWord idx onlyOne addSpace fn|
+    |newString lastWord expandedWord idx onlyOne addSpace fn|
 
     "/ find the last word.
     "/ used to be 'contents asCollectionOfWords last',
@@ -5237,7 +5237,7 @@
      If replace is true, all text is replaced by the commands output;
      otherwise, its inserted as selected text at the cursor position."
 
-    |command stream line lnr myProcess myPriority startLine startCol stopSignal
+    |command stream line lnr myProcess startLine startCol stopSignal
      pauseSignal access stillReplacing pauseHolder lowerFrameView
      buttonWindowGroup|
 
@@ -6827,7 +6827,7 @@
 showFile:fileNameString insert:insert encoding:encoding doubleClick:viaDoubleClick
     "show/insert contents of fileName in subView"
 
-    |path buffer s n i ok convert text msg eol guess action enc 
+    |path buffer s n ok convert text msg eol guess action enc 
      fontsEncoding pref failWarning f answer fileName|
 
     fileName := fileNameString asFilename.
@@ -7701,5 +7701,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.453 2001-12-18 18:54:26 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.454 2001-12-19 14:44:08 stefan Exp $'
 ! !