equal
deleted
inserted
replaced
2446 filteredItems := newFilteredItems. |
2446 filteredItems := newFilteredItems. |
2447 filteredItems := self sortBlockHolder value sortItemList:filteredItems. |
2447 filteredItems := self sortBlockHolder value sortItemList:filteredItems. |
2448 self |
2448 self |
2449 enqueueMessage:#value |
2449 enqueueMessage:#value |
2450 for:[ self setBrowserItemList:filteredItems ] |
2450 for:[ self setBrowserItemList:filteredItems ] |
2451 arguments:nil. |
2451 arguments:#(). |
2452 ]. |
2452 ]. |
2453 ! |
2453 ! |
2454 |
2454 |
2455 readDirectoryItems |
2455 readDirectoryItems |
2456 |list contents itemClass| |
2456 |list contents itemClass| |
2471 filteredItems isNil ifTrue:[ ^ self]. |
2471 filteredItems isNil ifTrue:[ ^ self]. |
2472 filteredItems := self sortBlockHolder value sortItemList:filteredItems. |
2472 filteredItems := self sortBlockHolder value sortItemList:filteredItems. |
2473 self |
2473 self |
2474 enqueueMessage:#value |
2474 enqueueMessage:#value |
2475 for:[ self setBrowserItemList:filteredItems ] |
2475 for:[ self setBrowserItemList:filteredItems ] |
2476 arguments:nil. |
2476 arguments:#(). |
2477 ! |
2477 ! |
2478 |
2478 |
2479 startUpdateTask |
2479 startUpdateTask |
2480 updateTask isNil ifTrue:[ |
2480 updateTask isNil ifTrue:[ |
2481 updateTask := [ |
2481 updateTask := [ |
3260 ! ! |
3260 ! ! |
3261 |
3261 |
3262 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3262 !DirectoryContentsBrowser class methodsFor:'documentation'! |
3263 |
3263 |
3264 version |
3264 version |
3265 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.212 2008-03-10 07:10:50 stefan Exp $' |
3265 ^ '$Header: /cvs/stx/stx/libtool/DirectoryContentsBrowser.st,v 1.213 2008-08-20 17:52:18 cg Exp $' |
3266 ! ! |
3266 ! ! |