equal
deleted
inserted
replaced
1105 ]. |
1105 ]. |
1106 aColOfFiles size == 1 ifTrue:[ |
1106 aColOfFiles size == 1 ifTrue:[ |
1107 self startDiskUsageInfoProcess. |
1107 self startDiskUsageInfoProcess. |
1108 ]. |
1108 ]. |
1109 newDir := (self directoriesForFiles:aColOfFiles) first asCanonicalizedFilename. |
1109 newDir := (self directoriesForFiles:aColOfFiles) first asCanonicalizedFilename. |
1110 currentDir := self directory asCanonicalizedFilename. |
1110 currentDir := self directory. |
1111 newDir = currentDir ifTrue:[ |
1111 (currentDir notNil and:[newDir = currentDir asCanonicalizedFilename]) ifTrue:[ |
1112 self selectFiles:aColOfFiles. |
1112 self selectFiles:aColOfFiles. |
1113 ^ self. |
1113 ^ self. |
1114 ]. |
1114 ]. |
1115 "/ change of the directory filename |
1115 "/ change of the directory filename |
1116 self directory:newDir. |
1116 self directory:newDir. |
2820 ! ! |
2820 ! ! |
2821 |
2821 |
2822 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2822 !DirectoryContentsBrowser class methodsFor:'documentation'! |
2823 |
2823 |
2824 version |
2824 version |
2825 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.109 2003-05-16 08:39:41 penk Exp $' |
2825 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.110 2003-05-16 12:38:34 stefan Exp $' |
2826 ! ! |
2826 ! ! |