equal
deleted
inserted
replaced
346 |
346 |
347 ^ |
347 ^ |
348 #(#Menu |
348 #(#Menu |
349 #( |
349 #( |
350 #(#MenuItem |
350 #(#MenuItem |
|
351 #label: 'Goto Home Directory' |
|
352 #translateLabel: true |
|
353 #value: #menuGotoHomeDirectory |
|
354 ) |
|
355 #(#MenuItem |
|
356 #label: 'Goto Default Directory' |
|
357 #translateLabel: true |
|
358 #value: #menuGotoDefaultDirectory |
|
359 ) |
|
360 #(#MenuItem |
|
361 #label: '-' |
|
362 ) |
|
363 #(#MenuItem |
351 #label: 'Create directory...' |
364 #label: 'Create directory...' |
352 #translateLabel: true |
365 #translateLabel: true |
353 #value: #menuCreateDirectory |
366 #value: #menuCreateDirectory |
354 ) |
367 ) |
355 #(#MenuItem |
368 #(#MenuItem |
504 ^ self |
517 ^ self |
505 ]. |
518 ]. |
506 newSubDirName := Dialog request:'Create new directory named:'. |
519 newSubDirName := Dialog request:'Create new directory named:'. |
507 (currentDir asFilename construct:newSubDirName) makeDirectory. |
520 (currentDir asFilename construct:newSubDirName) makeDirectory. |
508 self menuUpdate |
521 self menuUpdate |
|
522 ! |
|
523 |
|
524 menuGotoDefaultDirectory |
|
525 self selectionOfDirectory value:(Filename defaultDirectory pathName) |
|
526 ! |
|
527 |
|
528 menuGotoHomeDirectory |
|
529 self selectionOfDirectory value:(Filename homeDirectory pathName) |
509 ! |
530 ! |
510 |
531 |
511 menuUpdate |
532 menuUpdate |
512 (self builder componentAt:#directoryTreeView) monitorCycle. |
533 (self builder componentAt:#directoryTreeView) monitorCycle. |
513 ! |
534 ! |