equal
deleted
inserted
replaced
280 #translateLabel: true |
280 #translateLabel: true |
281 #submenu: |
281 #submenu: |
282 #(#Menu |
282 #(#Menu |
283 #( |
283 #( |
284 #(#MenuItem |
284 #(#MenuItem |
285 #label: 'View Files' |
285 #enabled: #sortInTreeVisibilityHolder |
286 #translateLabel: true |
|
287 #indication: #viewFilesInDirectoryTree |
|
288 ) |
|
289 #(#MenuItem |
|
290 #label: 'Sort' |
286 #label: 'Sort' |
291 #nameKey: #Sort |
287 #nameKey: #Sort |
292 #translateLabel: true |
288 #translateLabel: true |
293 #enabled: #sortInTreeVisibilityHolder |
|
294 #submenuChannel: #sortInTreeMenu |
289 #submenuChannel: #sortInTreeMenu |
|
290 ) |
|
291 #(#MenuItem |
|
292 #label: 'Show' |
|
293 #translateLabel: true |
|
294 #submenu: |
|
295 #(#Menu |
|
296 #( |
|
297 #(#MenuItem |
|
298 #label: 'Files' |
|
299 #translateLabel: true |
|
300 #indication: #viewFilesInDirectoryTree |
|
301 ) |
|
302 ) |
|
303 nil |
|
304 nil |
|
305 ) |
295 ) |
306 ) |
296 ) |
307 ) |
297 nil |
308 nil |
298 nil |
309 nil |
299 ) |
310 ) |
477 self currentFileNameHolder value:(OrderedCollection with:selDir). |
488 self currentFileNameHolder value:(OrderedCollection with:selDir). |
478 ]. |
489 ]. |
479 ! |
490 ! |
480 |
491 |
481 doUpdate |
492 doUpdate |
482 |
493 DirectoryContents flushCache. |
483 self fileList monitoringCycle. |
494 self fileList monitoringCycle. |
484 "/ self updateSelectedItem |
495 "/ self updateSelectedItem |
485 ! |
496 ! |
486 |
497 |
487 evaluateSortBlockWith:aBlock |
498 evaluateSortBlockWith:aBlock |
1348 ! ! |
1359 ! ! |
1349 |
1360 |
1350 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1361 !DirectoryTreeBrowser class methodsFor:'documentation'! |
1351 |
1362 |
1352 version |
1363 version |
1353 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.37 2002-12-15 13:45:38 cg Exp $' |
1364 ^ '$Header: /cvs/stx/stx/libtool/DirectoryTreeBrowser.st,v 1.38 2002-12-28 14:52:14 cg Exp $' |
1354 ! ! |
1365 ! ! |