equal
deleted
inserted
replaced
524 listOfFiles := self listOfFiles. |
524 listOfFiles := self listOfFiles. |
525 |
525 |
526 oldListOfFiles := listOfFiles copy. |
526 oldListOfFiles := listOfFiles copy. |
527 (currentFilenames asSortedCollection: [:f1 :f2| f1 baseName < f2 baseName]) asSet |
527 (currentFilenames asSortedCollection: [:f1 :f2| f1 baseName < f2 baseName]) asSet |
528 do: [:fileName| |
528 do: [:fileName| |
529 (oldListOfFiles detect: [:fileRow| fileRow fileName = fileName] ifNone: nil) isNil |
529 (oldListOfFiles contains:[:fileRow | fileRow fileName = fileName ]) |
530 ifTrue: [ |
530 ifFalse: [ |
531 |nearestFileRow newRow r| |
531 |nearestFileRow newRow r| |
532 |
532 |
533 newRow := FileRow new fileName: fileName asFilename. |
533 newRow := FileRow new fileName: fileName asFilename. |
534 "/ cg: how stupid is that? |
534 "/ cg: how stupid is that? |
535 nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil). |
535 nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil). |
552 readTask := readBlock forkAt: Processor userBackgroundPriority. |
552 readTask := readBlock forkAt: Processor userBackgroundPriority. |
553 Processor addTimedBlock: monitoringTimeBlock afterSeconds: 1 |
553 Processor addTimedBlock: monitoringTimeBlock afterSeconds: 1 |
554 ] ifFalse: [ |
554 ] ifFalse: [ |
555 Cursor wait showWhile: [readBlock value] |
555 Cursor wait showWhile: [readBlock value] |
556 ] |
556 ] |
|
557 |
|
558 "Modified: / 19-11-2016 / 20:34:14 / cg" |
557 ! ! |
559 ! ! |
558 |
560 |
559 !DirectoryView methodsFor:'selection'! |
561 !DirectoryView methodsFor:'selection'! |
560 |
562 |
561 selectedFileFilter |
563 selectedFileFilter |