equal
deleted
inserted
replaced
441 " |
441 " |
442 |
442 |
443 <resource: #menu> |
443 <resource: #menu> |
444 |
444 |
445 ^ |
445 ^ |
446 #(#Menu |
446 #(Menu |
447 #( |
447 ( |
448 #(#MenuItem |
448 (MenuItem |
449 #label: 'File' |
449 label: 'File' |
450 #translateLabel: true |
450 translateLabel: true |
451 #submenu: |
451 submenu: |
452 #(#Menu |
452 (Menu |
453 #( |
453 ( |
454 #(#MenuItem |
454 (MenuItem |
455 #activeHelpKey: #fileLoad |
455 activeHelpKey: fileLoad |
456 #label: 'Load...' |
456 label: 'Load...' |
457 #itemValue: #doLoad |
457 itemValue: doLoad |
458 #translateLabel: true |
458 translateLabel: true |
459 ) |
459 ) |
460 #(#MenuItem |
460 (MenuItem |
461 #activeHelpKey: #fileSave |
461 activeHelpKey: fileSave |
462 #label: 'Save' |
462 label: 'Save' |
463 #itemValue: #doSave |
463 itemValue: doSave |
464 #translateLabel: true |
464 translateLabel: true |
465 ) |
465 ) |
466 #(#MenuItem |
466 (MenuItem |
467 #label: 'New' |
467 label: 'New' |
468 #itemValue: #doNew |
468 itemValue: doNew |
469 #translateLabel: true |
469 translateLabel: true |
470 ) |
470 ) |
471 #(#MenuItem |
471 (MenuItem |
472 #label: '-' |
472 label: '-' |
473 ) |
473 ) |
474 #(#MenuItem |
474 (MenuItem |
475 #activeHelpKey: #fileExit |
475 activeHelpKey: fileExit |
476 #label: 'Exit' |
476 label: 'Exit' |
477 #itemValue: #closeRequest |
477 itemValue: closeRequest |
478 #translateLabel: true |
478 translateLabel: true |
479 ) |
479 ) |
480 ) |
480 ) |
481 nil |
481 nil |
482 nil |
482 nil |
483 ) |
483 ) |
484 ) |
484 ) |
485 #(#MenuItem |
485 (MenuItem |
486 #activeHelpKey: #history |
486 label: 'History' |
487 #label: 'History' |
487 translateLabel: true |
488 #translateLabel: true |
488 submenuChannel: menuHistory |
489 #submenuChannel: #menuHistory |
489 ) |
490 ) |
490 (MenuItem |
491 #(#MenuItem |
491 label: 'Edit' |
492 #label: 'Edit' |
492 translateLabel: true |
493 #translateLabel: true |
493 submenuChannel: keyItemMenu |
494 #submenuChannel: #keyItemMenu |
494 keepLinkedMenu: true |
495 #keepLinkedMenu: true |
495 ) |
496 ) |
496 (MenuItem |
497 #(#MenuItem |
497 label: 'Help' |
498 #activeHelpKey: #help |
498 translateLabel: true |
499 #label: 'Help' |
499 startGroup: right |
500 #translateLabel: true |
500 submenuChannel: menuHelp |
501 #startGroup: #right |
501 ) |
502 #submenuChannel: #menuHelp |
502 ) |
503 ) |
503 nil |
504 ) |
504 nil |
505 nil |
|
506 nil |
|
507 ) |
505 ) |
508 ! ! |
506 ! ! |
509 |
507 |
510 !UIHelpTool methodsFor:'accessing'! |
508 !UIHelpTool methodsFor:'accessing'! |
511 |
509 |