1221 "Created: / 20-03-2012 / 12:08:57 / cg" |
1221 "Created: / 20-03-2012 / 12:08:57 / cg" |
1222 ! |
1222 ! |
1223 |
1223 |
1224 setBrowserItemList:aFilteredItems |
1224 setBrowserItemList:aFilteredItems |
1225 |
1225 |
1226 |showDir directoryUpItem locItems browserList| |
1226 |showDir showDirsOnTop directoryUpItem locItems browserList| |
1227 |
1227 |
1228 showDir := self viewDirsInContentsBrowser value. |
1228 showDir := self viewDirsInContentsBrowser value. |
|
1229 showDirsOnTop := self showDirectoriesOnTop value. |
1229 |
1230 |
1230 (showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[ |
1231 (showDir and:[self directory notNil and:[self directory isRootDirectory not]]) ifTrue:[ |
1231 locItems := OrderedCollection new. |
1232 locItems := OrderedCollection new. |
1232 directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..'). |
1233 directoryUpItem := DirectoryContentsBrowser itemClass fileName:(self directory construct:'..'). |
1233 directoryUpItem notNil ifTrue:[ |
1234 directoryUpItem notNil ifTrue:[ |
1234 locItems add:directoryUpItem. |
1235 locItems add:directoryUpItem. |
1235 ]. |
1236 ]. |
1236 locItems addAll:(aFilteredItems ? #()). |
1237 locItems addAll:(aFilteredItems ? #()). |
1237 ] ifFalse:[ |
1238 ] ifFalse:[ |
1238 locItems := aFilteredItems. |
1239 locItems := aFilteredItems. |
|
1240 ]. |
|
1241 (showDir and:[showDirsOnTop]) ifTrue:[ |
|
1242 locItems := (locItems select:[ :e | e isDirectory ]) , (locItems reject:[ :e | e isDirectory]) |
1239 ]. |
1243 ]. |
1240 self updateToExternFileHolderLock doLocked:[ |
1244 self updateToExternFileHolderLock doLocked:[ |
1241 browserList := self browserItemList. |
1245 browserList := self browserItemList. |
1242 |
1246 |
1243 (browserList sameContentsAs: locItems) ifTrue:[ |
1247 (browserList sameContentsAs: locItems) ifTrue:[ |