--- a/DirectoryContentsBrowser.st Wed Oct 22 18:03:52 2008 +0200
+++ b/DirectoryContentsBrowser.st Wed Oct 22 18:10:45 2008 +0200
@@ -2703,7 +2703,7 @@
selectedFile := aColOfFiles first.
info := selectedFile linkInfo.
(info notNil and:[info isSymbolicLink]) ifTrue:[
- self notify:'Symbolic link to: ' , (info path ? '') allBold
+"/ self notify:'Symbolic link to: ' , (info path ? '') allBold
] ifFalse:[
self startDiskUsageInfoProcessFor:selectedFile.
].
@@ -2987,6 +2987,11 @@
info isNil ifTrue:[ ^ false].
^ true
].
+ fileInfo isSymbolicLink ifTrue:[
+ "/ symbolic links are not verified
+ ^ false
+ ].
+
self modificationTime ~= fileName modificationTime ifTrue:[
^ true
].
@@ -3263,5 +3268,5 @@
!DirectoryContentsBrowser class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.215 2008-08-26 21:41:54 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.216 2008-10-22 16:10:45 ca Exp $'
! !