DirectoryContentsBrowser.st
branchjv
changeset 16869 2ecababdd4c0
parent 16572 ab23beb4bba6
parent 16856 838e11dd3ff8
child 17133 f9f20407fbf9
--- a/DirectoryContentsBrowser.st	Mon Sep 19 08:48:45 2016 +0100
+++ b/DirectoryContentsBrowser.st	Wed Sep 28 07:09:57 2016 +0200
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1535,6 +1537,17 @@
         ^ self.
     ].             
     changedObject == self selectionInFileList ifTrue:[
+        (changedObject value ? #()) do:[:eachSelectedItem |
+            (eachSelectedItem modificationTime notNil
+              and:[ eachSelectedItem fileName notNil
+              and:[ eachSelectedItem fileName modificationTime > eachSelectedItem modificationTime ]]
+            ) ifTrue:[
+                "/ the file was modified in the meantime.
+                "/ flush its info.
+                eachSelectedItem resetItem
+            ].    
+        ].
+
         self updateToExternFileHolderLock doIfUnLocked:[
             self updateContentsSelection doLocked:[
                 self selectionChanged.
@@ -3213,7 +3226,7 @@
 !
 
 resetItem
-    " dont know what someone else is doing with the file - read all item properties new "
+    " don't know what someone else is doing with the file - read all item properties new "
 
     fileInfo := nil.
     icon := nil.