#OTHER by cg
authorClaus Gittinger <cg@exept.de>
Thu, 06 Oct 2016 00:27:51 +0200
changeset 16909 61c7ba68f70c
parent 16908 fad3f845fc50
child 16910 83403af26b43
#OTHER by cg class: DirectoryContentsBrowser changed: #update:with:from: care for file being removed
DirectoryContentsBrowser.st
--- a/DirectoryContentsBrowser.st	Thu Oct 06 00:26:38 2016 +0200
+++ b/DirectoryContentsBrowser.st	Thu Oct 06 00:27:51 2016 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1538,9 +1536,12 @@
     ].             
     changedObject == self selectionInFileList ifTrue:[
         (changedObject value ? #()) do:[:eachSelectedItem |
+            |fn|
+            
             (eachSelectedItem modificationTime notNil
-              and:[ eachSelectedItem fileName notNil
-              and:[ eachSelectedItem fileName modificationTime > eachSelectedItem modificationTime ]]
+              and:[ (fn := eachSelectedItem fileName) notNil
+              and:[ fn exists
+              and:[ fn modificationTime > eachSelectedItem modificationTime ]]]
             ) ifTrue:[
                 "/ the file was modified in the meantime.
                 "/ flush its info.