equal
deleted
inserted
replaced
2576 bindWith:(aDirectory baseName "pathName" allBold) |
2576 bindWith:(aDirectory baseName "pathName" allBold) |
2577 with:(kbString , 'b') "allBold"). |
2577 with:(kbString , 'b') "allBold"). |
2578 ! |
2578 ! |
2579 |
2579 |
2580 startDiskUsageInfoProcess |
2580 startDiskUsageInfoProcess |
2581 |aColOfFiles selectedFile| |
2581 |aColOfFiles selectedFile info| |
2582 |
2582 |
2583 aColOfFiles := self currentFileNameHolder value. |
2583 aColOfFiles := self currentFileNameHolder value. |
2584 (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[ |
2584 (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[ |
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 selectedFile isSymbolicLink ifTrue:[ |
2589 info := selectedFile linkInfo. |
2590 self notify:'Symbolic link to: ' , (selectedFile linkInfo at:#path) allBold |
2590 info isSymbolicLink ifTrue:[ |
|
2591 self notify:'Symbolic link to: ' , (info path) allBold |
2591 ] ifFalse:[ |
2592 ] ifFalse:[ |
2592 self startDiskUsageInfoProcessFor:selectedFile. |
2593 self startDiskUsageInfoProcessFor:selectedFile. |
2593 ]. |
2594 ]. |
2594 ]. |
2595 ]. |
2595 ! |
2596 ! |
3135 fileInfo isNil ifTrue:[ |
3136 fileInfo isNil ifTrue:[ |
3136 self isRemoteDirectory ifTrue:[ |
3137 self isRemoteDirectory ifTrue:[ |
3137 "/ do not access, to avoid automount |
3138 "/ do not access, to avoid automount |
3138 ] ifFalse:[ |
3139 ] ifFalse:[ |
3139 fileInfo := fileName linkInfo. |
3140 fileInfo := fileName linkInfo. |
3140 fileInfo isNil ifTrue:[ |
|
3141 fileInfo := fileName info. |
|
3142 ]. |
|
3143 ]. |
3141 ]. |
3144 ]. |
3142 ]. |
3145 ^ fileInfo |
3143 ^ fileInfo |
3146 ! ! |
3144 ! ! |
3147 |
3145 |
3182 ! ! |
3180 ! ! |
3183 |
3181 |
3184 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3182 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3185 |
3183 |
3186 version |
3184 version |
3187 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.166 2004-08-03 09:30:12 cg Exp $' |
3185 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.167 2004-08-13 19:27:55 stefan Exp $' |
3188 ! ! |
3186 ! ! |