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 |root items directory item newRoot rootDir| |
1164 |
1164 |
1165 aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()]. |
1165 aColOfFileOrDirectory isEmpty ifTrue:[ self selectItems:#()]. |
|
1166 |
|
1167 root := self fileList root. |
|
1168 root notNil ifTrue:[ rootDir := root fileName asAbsoluteFilename ]. |
1166 |
1169 |
1167 items := OrderedCollection new. |
1170 items := OrderedCollection new. |
1168 aColOfFileOrDirectory do:[:file| |
1171 aColOfFileOrDirectory do:[:file| |
1169 file exists ifTrue:[ |
1172 file exists ifTrue:[ |
1170 item := self fileList findLastForFile:file. |
1173 item := self fileList findLastForFile:file inRoot:root directory:rootDir. |
1171 item isNil ifTrue:[ |
1174 item isNil ifTrue:[ |
1172 "/ set a new root directory |
1175 "/ set a new root directory |
1173 newRoot := self commonPrefixOfSelectedFiles. |
1176 newRoot := self commonPrefixOfSelectedFiles. |
1174 newRoot := self getDirWithoutFileName:newRoot. |
1177 newRoot := self getDirWithoutFileName:newRoot. |
1175 newRoot := newRoot asAbsoluteFilename pathName. |
1178 newRoot := newRoot asAbsoluteFilename pathName. |