--- a/HierarchicalFileList.st Tue Oct 01 10:33:52 2002 +0200
+++ b/HierarchicalFileList.st Tue Oct 01 15:53:37 2002 +0200
@@ -193,6 +193,7 @@
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
@@ -680,5 +681,5 @@
!HierarchicalFileList class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.19 2002-09-26 18:49:10 penk Exp $'
+ ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.20 2002-10-01 13:53:37 penk Exp $'
! !