--- a/HierarchicalFileList.st	Fri Nov 15 12:30:19 2002 +0100
+++ b/HierarchicalFileList.st	Sat Nov 16 12:30:52 2002 +0100
@@ -278,11 +278,7 @@
      otherwise we have not to evaluate the directory contents.
      think about remote file-systems
     "
-    |index item mountInfo|
-
-"/    mountPoints isNil ifTrue:[
-"/        mountPoints := OperatingSystem mountPoints.
-"/    ].
+    |index item|
 
     item  := root.
     index := showRoot ifTrue:[1] ifFalse:[0].
@@ -292,27 +288,11 @@
     ].
 
     [item notNil] whileTrue:[
+        dependents size == 0 ifTrue:[ ^ self ].
+
         item isDirectory ifTrue:[
             item monitoringCycle
         ].
-
-"/        item isDirectory ifTrue:[
-"/            (item getChildren isNil) ifTrue:[
-"/                "/ care for auto-mount points - we dont want to look into those automatically
-"/                "/ i.e. user must explicitely click into them
-"/                mountInfo := mountPoints detect:[:mInfo | mInfo mountPointPath = item fileName name] ifNone:nil.
-"/                (mountInfo notNil and:[mountInfo isRemote]) ifTrue:[
-"/                    "/ type := #remoteFileSystem.
-"/                    item readChildren
-"/                ] ifFalse:[
-"/                    "/ must read children info
-"/                    item readChildren
-"/                ].
-"/            ] ifFalse:[
-"/                "/ children already initialized; thus we can update the contents
-"/                item monitoringCycle
-"/            ].
-"/        ].
         Processor yield.
         index := index + 1.
         item  := self at:index ifAbsent:nil.
@@ -1109,5 +1089,5 @@
 !HierarchicalFileList class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.36 2002-10-17 11:19:47 ca Exp $'
+    ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.37 2002-11-16 11:30:52 ca Exp $'
 ! !