# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1463233272 -7200
# Node ID d3836d28d2c07ad452b0cc985ce56c23b0d550fe
# Parent  413a225308d1caa3440990614c05d18d86814e9e
#DOCUMENTATION by cg
class: DirectoryView
changed: #readMonitoringDirectory

diff -r 413a225308d1 -r d3836d28d2c0 DirectoryView.st
--- 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].