equal
deleted
inserted
replaced
953 linkName := info path. |
953 linkName := info path. |
954 ] ifFalse:[ |
954 ] ifFalse:[ |
955 linkName := fileName name. |
955 linkName := fileName name. |
956 ]. |
956 ]. |
957 |
957 |
958 (OperatingSystem mountPoints contains:[:mp | mp mountPointPath = linkName]) ifTrue:[ |
958 (OperatingSystem mountPoints contains:[:mp | mp mountPointPath = linkName and:[mp isRemote]]) ifTrue:[ |
959 "do not follow mounted directories automatically (could be an NFS hardlink)" |
959 "do not follow mounted directories automatically (could be an NFS hardlink)" |
960 ^ self. |
960 ^ self. |
961 ]. |
961 ]. |
962 |
962 |
963 hasChildren := DirectoryContents directoryNamed:fileName detect:(self model matchBlock). |
963 hasChildren := DirectoryContents directoryNamed:fileName detect:(self model matchBlock). |
1253 ! ! |
1253 ! ! |
1254 |
1254 |
1255 !HierarchicalFileList class methodsFor:'documentation'! |
1255 !HierarchicalFileList class methodsFor:'documentation'! |
1256 |
1256 |
1257 version |
1257 version |
1258 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.52 2004-08-13 19:30:55 stefan Exp $' |
1258 ^ '$Header: /cvs/stx/stx/libwidg2/HierarchicalFileList.st,v 1.53 2004-10-26 08:51:33 mb Exp $' |
1259 ! ! |
1259 ! ! |
1260 |
1260 |
1261 HierarchicalFileList::Directory initialize! |
1261 HierarchicalFileList::Directory initialize! |