equal
deleted
inserted
replaced
1099 items := OrderedCollection new. |
1099 items := OrderedCollection new. |
1100 aColOfFileOrDirectory do:[:file| |
1100 aColOfFileOrDirectory do:[:file| |
1101 file exists ifTrue:[ |
1101 file exists ifTrue:[ |
1102 item := self fileList findLastForFile:file. |
1102 item := self fileList findLastForFile:file. |
1103 item isNil ifTrue:[ |
1103 item isNil ifTrue:[ |
|
1104 "/ set a new root directory |
1104 newRoot := self commonPrefixOfSelectedFiles. |
1105 newRoot := self commonPrefixOfSelectedFiles. |
1105 newRoot := self getDirWithoutFileName:newRoot. |
1106 newRoot := self getDirWithoutFileName:newRoot. |
1106 self rootHolder value:newRoot asAbsoluteFilename. |
1107 self rootHolder value:newRoot asAbsoluteFilename. |
1107 item := self fileList root. |
1108 item := self fileList root. |
1108 |
1109 |
1111 . |
1112 . |
1112 directory == file ifFalse:[ |
1113 directory == file ifFalse:[ |
1113 item := item detect:[:el| el fileName = file ] ifNone:item. |
1114 item := item detect:[:el| el fileName = file ] ifNone:item. |
1114 ]. |
1115 ]. |
1115 ]. |
1116 ]. |
1116 "/ set a new root directory |
1117 "if it is a directory it should be expanded" |
|
1118 item enforcedExpand. |
1117 items add:item. |
1119 items add:item. |
1118 ]. |
1120 ]. |
1119 ]. |
1121 ]. |
1120 self selectItems:items |
1122 self selectItems:items |
1121 ! |
1123 ! |
1314 ! ! |
1316 ! ! |
1315 |
1317 |
1316 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1318 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1317 |
1319 |
1318 version |
1320 version |
1319 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.92 2004-12-10 15:53:54 penk Exp $' |
1321 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.93 2004-12-30 12:58:25 penk Exp $' |
1320 ! ! |
1322 ! ! |