--- a/DirectoryView.st Fri May 13 01:59:52 2016 +0200
+++ b/DirectoryView.st Sat May 14 15:41:12 2016 +0200
@@ -497,6 +497,10 @@
!
readMonitoringDirectory
+ "this is a very ugly piece of code -
+ left in as a bad example of how to make ST look slow...
+ DO NOT USE IT, but read to learn"
+
|readBlock|
readTask notNil ifTrue: [readTask terminate].
@@ -528,8 +532,8 @@
newRow := FileRow new fileName: fileName asFilename.
"/ cg: how stupid is that?
- "/ nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil).
- nearestFileRow := listOfFiles findFirst:[:fileRow | fileRow baseName > fileName baseName].
+ nearestFileRow := listOfFiles indexOf: (listOfFiles detect: [:fileRow| fileRow baseName > fileName baseName] ifNone: nil).
+ "/ nearestFileRow := listOfFiles findFirst:[:fileRow | fileRow baseName > fileName baseName].
nearestFileRow = 0
ifTrue: [listOfFiles add: newRow]
ifFalse: [listOfFiles add: newRow beforeIndex: nearestFileRow].