# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 951957163 -3600
# Node ID 51946a32c09e4ae956ca57fb9093b9664f9915db
# Parent  4ac62d4f2346b6559f287b5897997086a1476808
time check fix

diff -r 4ac62d4f2346 -r 51946a32c09e 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 $'
 ! !