#OTHER by cg
class: DirectoryContentsBrowser
changed: #update:with:from:
care for file being removed
--- 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.