FileBrowser.st
changeset 3420 a6e8d840f4bc
parent 3419 30bd78e28038
child 3421 3498107fb19f
--- a/FileBrowser.st	Fri Nov 16 00:02:28 2001 +0100
+++ b/FileBrowser.st	Fri Nov 16 00:47:24 2001 +0100
@@ -6104,7 +6104,7 @@
 doRemove:filesToRemove
     "remove the selected file(s) - no questions asked"
 
-    |msg needUpdate toRemove updateRunning yesToAll mTime x|
+    |msg needUpdate toRemove updateRunning yesToAll mTime|
 
     self withWaitCursorDo:[
         updateRunning := listUpdateProcess notNil.
@@ -6115,9 +6115,7 @@
         "/ did the directory change in the meanwhile ?
         "/
         mTime := currentDirectory modificationTime.
-"/ x := timeOfLastCheck.
         needUpdate := mTime notNil and:[mTime > timeOfLastCheck].
-"/        needUpdate := mTime notNil and:[mTime > x].
 
         yesToAll := false.
         lockUpdate := true.
@@ -6200,7 +6198,7 @@
     ]
 
     "Modified: / 20.11.1997 / 17:39:14 / stefan"
-    "Modified: / 15.11.2001 / 23:59:03 / cg"
+    "Modified: / 16.11.2001 / 00:43:40 / cg"
 !
 
 doRename:oldName to:newName
@@ -7436,5 +7434,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.438 2001-11-15 23:02:28 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.439 2001-11-15 23:47:24 cg Exp $'
 ! !