DirectoryContentsBrowser.st
changeset 18378 038d4cd9135f
parent 18309 f141abb7f243
child 18454 b4bea4fece8a
--- a/DirectoryContentsBrowser.st	Thu Sep 13 14:36:55 2018 +0200
+++ b/DirectoryContentsBrowser.st	Thu Sep 13 14:37:20 2018 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
 "
  COPYRIGHT (c) 2002 by eXept Software AG
               All Rights Reserved
@@ -1560,15 +1558,17 @@
         (changedObject value ? #()) do:[:eachSelectedItem |
             |fn|
             
-            (eachSelectedItem modificationTime notNil
-              and:[ (fn := eachSelectedItem fileName) notNil
-              and:[ fn exists
-              and:[ fn modificationTime > eachSelectedItem modificationTime ]]]
-            ) ifTrue:[
-                "/ the file was modified in the meantime.
-                "/ flush its info.
-                eachSelectedItem resetItem
-            ].    
+            eachSelectedItem notNil ifTrue:[
+                (eachSelectedItem modificationTime notNil
+                  and:[ (fn := eachSelectedItem fileName) notNil
+                  and:[ fn exists
+                  and:[ fn modificationTime > eachSelectedItem modificationTime ]]]
+                ) ifTrue:[
+                    "/ the file was modified in the meantime.
+                    "/ flush its info.
+                    eachSelectedItem resetItem
+                ].    
+            ].
         ].
 
         self updateToExternFileHolderLock doIfUnLocked:[
@@ -1610,6 +1610,8 @@
     ].
 
     super update:something with:aParameter from:changedObject
+
+    "Modified: / 13-09-2018 / 12:05:02 / Claus Gittinger"
 !
 
 updateListAfterDelete:collectionOfFiles