equal
deleted
inserted
replaced
1133 directory == file ifFalse:[ |
1133 directory == file ifFalse:[ |
1134 item := item detect:[:el| el fileName = file ] ifNone:item. |
1134 item := item detect:[:el| el fileName = file ] ifNone:item. |
1135 ]. |
1135 ]. |
1136 ]. |
1136 ]. |
1137 "if it is a directory it should be expanded" |
1137 "if it is a directory it should be expanded" |
1138 item enforcedExpand. |
1138 "/ item enforcedExpand. |
1139 items add:item. |
1139 items add:item. |
1140 ]. |
1140 ]. |
1141 ]. |
1141 ]. |
1142 self selectItems:items |
1142 self selectItems:items |
1143 ! |
1143 ! |
1145 selectItems:aColOfItems |
1145 selectItems:aColOfItems |
1146 |
1146 |
1147 |currentSelection newSelection| |
1147 |currentSelection newSelection| |
1148 |
1148 |
1149 currentSelection := self selectedItems. |
1149 currentSelection := self selectedItems. |
1150 aColOfItems do:[:anItem| anItem isDirectory ifTrue:[ anItem expand ]]. |
1150 "/ aColOfItems do:[:anItem| anItem isDirectory ifTrue:[ anItem expand ]]. |
|
1151 |
1151 self multipleSelect ifTrue:[ |
1152 self multipleSelect ifTrue:[ |
1152 currentSelection notNil ifTrue:[ |
1153 currentSelection notNil ifTrue:[ |
1153 aColOfItems size == currentSelection size ifTrue:[ |
1154 aColOfItems size == currentSelection size ifTrue:[ |
1154 (aColOfItems findFirst:[:item | (currentSelection includesIdentical:item) not ]) ~~ 0 ifFalse:[ |
1155 (aColOfItems findFirst:[:item | (currentSelection includesIdentical:item) not ]) ~~ 0 ifFalse:[ |
1155 ^ self |
1156 ^ self |
1339 ! ! |
1340 ! ! |
1340 |
1341 |
1341 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1342 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1342 |
1343 |
1343 version |
1344 version |
1344 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.109 2008-10-07 07:56:01 sr Exp $' |
1345 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.110 2008-12-17 07:48:16 ca Exp $' |
1345 ! ! |
1346 ! ! |