DirectoryContentsBrowser.st
changeset 5974 509256511c65
parent 5973 0baf6c6b685f
child 5994 7ba2a06e65f8
equal deleted inserted replaced
5973:0baf6c6b685f 5974:509256511c65
  2585         ^ self
  2585         ^ self
  2586     ].
  2586     ].
  2587     aColOfFiles size == 1 ifTrue:[
  2587     aColOfFiles size == 1 ifTrue:[
  2588         selectedFile := aColOfFiles first.
  2588         selectedFile := aColOfFiles first.
  2589         info := selectedFile linkInfo.
  2589         info := selectedFile linkInfo.
  2590         info isSymbolicLink ifTrue:[
  2590         (info notNil and:[info isSymbolicLink]) ifTrue:[
  2591             self notify:'Symbolic link to: ' , (info path) allBold
  2591             self notify:'Symbolic link to: ' , (info path) allBold
  2592         ] ifFalse:[
  2592         ] ifFalse:[
  2593             self startDiskUsageInfoProcessFor:selectedFile.
  2593             self startDiskUsageInfoProcessFor:selectedFile.
  2594         ].
  2594         ].
  2595     ].
  2595     ].
  3180 ! !
  3180 ! !
  3181 
  3181 
  3182 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3182 !DirectoryContentsBrowser class methodsFor:'documentation'!
  3183 
  3183 
  3184 version
  3184 version
  3185     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.167 2004-08-13 19:27:55 stefan Exp $'
  3185     ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.168 2004-08-13 19:46:25 stefan Exp $'
  3186 ! !
  3186 ! !