1158 |
1158 |
1159 selectFiles:aColOfFileOrDirectory |
1159 selectFiles:aColOfFileOrDirectory |
1160 "selects a file; if the file is not included in my |
1160 "selects a file; if the file is not included in my |
1161 root directory, the root will be changed" |
1161 root directory, the root will be changed" |
1162 |
1162 |
1163 |items directory item newRoot| |
1163 |items directory item newRoot rootDir| |
1164 |
1164 |
1165 aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()]. |
1165 aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()]. |
|
1166 |
|
1167 rootDir := self fileList root fileName asAbsoluteFilename. |
1166 |
1168 |
1167 items := OrderedCollection new. |
1169 items := OrderedCollection new. |
1168 aColOfFileOrDirectory do:[:file| |
1170 aColOfFileOrDirectory do:[:file| |
1169 file exists ifTrue:[ |
1171 file exists ifTrue:[ |
1170 item := self fileList findLastForFile:file. |
1172 item := self fileList findLastForFile:file inRoot:rootDir. |
1171 item isNil ifTrue:[ |
1173 item isNil ifTrue:[ |
1172 "/ set a new root directory |
1174 "/ set a new root directory |
1173 newRoot := self commonPrefixOfSelectedFiles. |
1175 newRoot := self commonPrefixOfSelectedFiles. |
1174 newRoot := self getDirWithoutFileName:newRoot. |
1176 newRoot := self getDirWithoutFileName:newRoot. |
1175 newRoot := newRoot asAbsoluteFilename pathName. |
1177 newRoot := newRoot asAbsoluteFilename pathName. |