time check fix
authorClaus Gittinger <cg@exept.de>
Thu, 02 Mar 2000 01:32:43 +0100
changeset 2636 51946a32c09e
parent 2635 4ac62d4f2346
child 2637 2df524da9f63
time check fix
FileBrowser.st
--- a/FileBrowser.st	Wed Mar 01 21:43:17 2000 +0100
+++ b/FileBrowser.st	Thu Mar 02 01:32:43 2000 +0100
@@ -5325,14 +5325,14 @@
     |t|
 
     OperatingSystem isMSDOSlike ifTrue:[
-	"/ workaround: DOS has no diretory modifiation time ...
-	self updateCurrentDirectory.
-	^ self
+        "/ workaround: DOS has no directory modifiation time ...
+        self updateCurrentDirectory.
+        ^ self
     ].
 
     ((t := currentDirectory modificationTime) isNil
     or:[t > timeOfLastCheck]) ifTrue:[
-	self updateCurrentDirectory
+        self updateCurrentDirectory
     ]
 
     "Modified: / 16.9.1997 / 15:35:52 / stefan"
@@ -6596,7 +6596,7 @@
 
         self stopUpdateProcess.
 
-        timeOfLastCheck := AbsoluteTime now.
+        timeOfLastCheck := currentDirectory modificationTime.
 
         files := currentDirectory asFilename fullDirectoryContents.
 
@@ -7066,5 +7066,5 @@
 !FileBrowser class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.365 2000-02-14 12:51:59 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libtool/FileBrowser.st,v 1.366 2000-03-02 00:32:43 cg Exp $'
 ! !