equal
deleted
inserted
replaced
420 |
420 |
421 !FileSelectionBrowser methodsFor:'accessing-views'! |
421 !FileSelectionBrowser methodsFor:'accessing-views'! |
422 |
422 |
423 directoryInputField |
423 directoryInputField |
424 |
424 |
425 ^builder componentAt: #directoryInputField |
425 ^self componentAt: #directoryInputField |
426 |
|
427 ! |
426 ! |
428 |
427 |
429 directoryTreeView |
428 directoryTreeView |
430 |
429 |
431 ^builder componentAt: #directoryTreeView |
430 ^self componentAt: #directoryTreeView |
432 |
|
433 ! ! |
431 ! ! |
434 |
432 |
435 !FileSelectionBrowser methodsFor:'aspects'! |
433 !FileSelectionBrowser methodsFor:'aspects'! |
436 |
434 |
437 rootOfDirectory |
435 rootOfDirectory |
531 menuGotoHomeDirectory |
529 menuGotoHomeDirectory |
532 self selectionOfDirectory value:(Filename homeDirectory pathName) |
530 self selectionOfDirectory value:(Filename homeDirectory pathName) |
533 ! |
531 ! |
534 |
532 |
535 menuUpdate |
533 menuUpdate |
536 (self builder componentAt:#directoryTreeView) monitorCycle. |
534 (self componentAt:#directoryTreeView) monitorCycle. |
537 ! |
535 ! |
538 |
536 |
539 readDirectory |
537 readDirectory |
540 |
538 |
541 self directoryTreeView selection notNil |
539 self directoryTreeView selection notNil |