--- 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'!