1090 !DirectoryContentsBrowser methodsFor:'change & update'! |
1090 !DirectoryContentsBrowser methodsFor:'change & update'! |
1091 |
1091 |
1092 currentFileNameHolderChanged |
1092 currentFileNameHolderChanged |
1093 "filename changed |
1093 "filename changed |
1094 " |
1094 " |
1095 |newDir currentDir aColOfFiles| |
1095 |newDir currentDir aColOfFiles parents| |
1096 |
1096 |
1097 aColOfFiles := self currentFileNameHolder value. |
1097 aColOfFiles := self currentFileNameHolder value. |
1098 (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[ |
1098 (aColOfFiles isEmpty or:[self currentFilesAreInSameDirectory not]) ifTrue:[ |
1099 self directory:nil. |
1099 self directory:nil. |
1100 ^ self |
1100 ^ self |
1101 ]. |
1101 ]. |
1102 aColOfFiles size == 1 ifTrue:[ |
1102 aColOfFiles size == 1 ifTrue:[ |
1103 self startDiskUsageInfoProcess. |
1103 self startDiskUsageInfoProcess. |
1104 ]. |
1104 ]. |
1105 |
1105 parents := self parentDirectoriesOfCurrentFiles. |
1106 newDir := self currentDirectories value first. |
1106 parents size ~= 1 ifTrue:[ ^ self]. |
|
1107 ((aColOfFiles size = 1) and:[aColOfFiles first isDirectory]) ifTrue:[ |
|
1108 "/ only one directory is selected newDir is this directory |
|
1109 newDir := aColOfFiles first. |
|
1110 ] ifFalse:[ |
|
1111 "/ set newDir to the parents dir |
|
1112 newDir := parents first. |
|
1113 ]. |
1107 currentDir := self directory. |
1114 currentDir := self directory. |
1108 newDir = currentDir ifTrue:[ |
1115 newDir = currentDir ifTrue:[ |
1109 self selectFiles:aColOfFiles. |
1116 self selectFiles:aColOfFiles. |
1110 ^ self. |
1117 ^ self. |
1111 ]. |
1118 ]. |