#REFACTORING by cg
authorClaus Gittinger <cg@exept.de>
Sat, 19 Nov 2016 20:34:25 +0100
changeset 3354 05ab9a73a9a6
parent 3353 3022947965d6
child 3355 47dfcea38127
#REFACTORING by cg class: DirectoryView changed: #readMonitoringDirectory
DirectoryView.st
--- a/DirectoryView.st	Sat Nov 19 20:19:48 2016 +0100
+++ b/DirectoryView.st	Sat Nov 19 20:34:25 2016 +0100
@@ -526,8 +526,8 @@
             oldListOfFiles := listOfFiles copy.
             (currentFilenames asSortedCollection: [:f1 :f2| f1 baseName < f2 baseName]) asSet 
                 do: [:fileName| 
-                    (oldListOfFiles detect: [:fileRow| fileRow fileName = fileName] ifNone: nil) isNil
-                    ifTrue: [
+                    (oldListOfFiles contains:[:fileRow | fileRow fileName = fileName ])
+                    ifFalse: [
                         |nearestFileRow newRow r|
                         
                         newRow := FileRow new fileName: fileName asFilename.
@@ -554,6 +554,8 @@
     ] ifFalse: [
         Cursor wait showWhile: [readBlock value]
     ]
+
+    "Modified: / 19-11-2016 / 20:34:14 / cg"
 ! !
 
 !DirectoryView methodsFor:'selection'!