DirectoryContentsBrowser.st
changeset 8372 c83a3ec5e7e3
parent 8255 da5e4e208cc9
child 8375 fd8d9e2fe62a
--- 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 $'
 ! !