609 by the MenuEditor of ST/X." |
607 by the MenuEditor of ST/X." |
610 |
608 |
611 "Do not manually edit this!! If it is corrupted, |
609 "Do not manually edit this!! If it is corrupted, |
612 the MenuEditor may not be able to read the specification." |
610 the MenuEditor may not be able to read the specification." |
613 |
611 |
614 " |
612 |
615 MenuEditor new openOnClass:ViewTreeApplication andSelector:#middleButtonMenu |
613 " |
616 (Menu new fromLiteralArrayEncoding:(ViewTreeApplication middleButtonMenu)) startUp |
614 MenuEditor new openOnClass:Tools::ViewTreeInspectorApplication andSelector:#middleButtonMenu |
|
615 (Menu new fromLiteralArrayEncoding:(Tools::ViewTreeInspectorApplication middleButtonMenu)) startUp |
617 " |
616 " |
618 |
617 |
619 <resource: #menu> |
618 <resource: #menu> |
620 |
619 |
621 ^ |
620 ^ |
622 #(Menu |
621 #(Menu |
623 ( |
622 ( |
624 (MenuItem |
623 (MenuItem |
625 label: 'Geometry' |
|
626 translateLabel: true |
|
627 submenuChannel: submenuGeometry: |
|
628 keepLinkedMenu: true |
|
629 ) |
|
630 (MenuItem |
|
631 label: 'Interface' |
|
632 translateLabel: true |
|
633 submenuChannel: submenuInterface: |
|
634 keepLinkedMenu: true |
|
635 ) |
|
636 (MenuItem |
|
637 label: 'Visibility' |
|
638 translateLabel: true |
|
639 submenuChannel: submenuVisibility: |
|
640 keepLinkedMenu: true |
|
641 ) |
|
642 (MenuItem |
|
643 label: '-' |
|
644 ) |
|
645 (MenuItem |
|
646 label: 'Browse View Class' |
624 label: 'Browse View Class' |
647 itemValue: doBrowse: |
625 itemValue: doBrowse: |
648 translateLabel: true |
626 argument: view |
649 argument: #view |
|
650 ) |
627 ) |
651 (MenuItem |
628 (MenuItem |
652 label: 'Browse Model Class' |
629 label: 'Browse Model Class' |
653 itemValue: doBrowse: |
630 itemValue: doBrowse: |
654 translateLabel: true |
|
655 isVisible: hasModel |
631 isVisible: hasModel |
656 argument: #model |
632 argument: model |
657 ) |
633 ) |
658 (MenuItem |
634 (MenuItem |
659 label: 'Browse Application Class' |
635 label: 'Browse Application Class' |
660 itemValue: doBrowse: |
636 itemValue: doBrowse: |
661 translateLabel: true |
|
662 isVisible: hasApplication |
637 isVisible: hasApplication |
663 argument: #application |
638 argument: application |
664 ) |
639 ) |
665 (MenuItem |
640 (MenuItem |
666 label: 'Browse Controller Class' |
641 label: 'Browse Controller Class' |
667 itemValue: doBrowse: |
642 itemValue: doBrowse: |
668 translateLabel: true |
|
669 isVisible: hasController |
643 isVisible: hasController |
670 argument: #controller |
644 argument: controller |
671 ) |
645 ) |
672 (MenuItem |
646 (MenuItem |
673 label: '-' |
647 label: '-' |
674 ) |
648 ) |
675 (MenuItem |
649 (MenuItem |
676 label: 'Inspect View' |
650 label: 'Inspect View' |
677 itemValue: doInspect: |
651 itemValue: doInspect: |
678 translateLabel: true |
652 argument: view |
679 argument: #view |
|
680 ) |
653 ) |
681 (MenuItem |
654 (MenuItem |
682 label: 'Inspect Window Group' |
655 label: 'Inspect Window Group' |
683 itemValue: doInspect: |
656 itemValue: doInspect: |
684 translateLabel: true |
657 argument: group |
685 argument: #group |
|
686 ) |
658 ) |
687 (MenuItem |
659 (MenuItem |
688 label: 'Inspect Model' |
660 label: 'Inspect Model' |
689 itemValue: doInspect: |
661 itemValue: doInspect: |
690 translateLabel: true |
|
691 isVisible: hasModel |
662 isVisible: hasModel |
692 argument: #model |
663 argument: model |
693 ) |
664 ) |
694 (MenuItem |
665 (MenuItem |
695 label: 'Inspect Application' |
666 label: 'Inspect Application' |
696 itemValue: doInspect: |
667 itemValue: doInspect: |
697 translateLabel: true |
|
698 isVisible: hasApplication |
668 isVisible: hasApplication |
699 argument: #application |
669 argument: application |
700 ) |
670 ) |
701 (MenuItem |
671 (MenuItem |
702 label: 'Inspect Controller' |
672 label: 'Inspect Controller' |
703 itemValue: doInspect: |
673 itemValue: doInspect: |
704 translateLabel: true |
|
705 isVisible: hasController |
674 isVisible: hasController |
706 argument: #controller |
675 argument: controller |
707 ) |
676 ) |
708 (MenuItem |
677 (MenuItem |
709 label: '-' |
678 label: '-' |
710 ) |
679 ) |
711 (MenuItem |
680 (MenuItem |
712 label: 'Flash' |
681 label: 'Flash' |
713 itemValue: doFlash |
682 itemValue: doFlash |
714 translateLabel: true |
|
715 ) |
683 ) |
716 (MenuItem |
684 (MenuItem |
717 label: '-' |
685 label: '-' |
718 ) |
686 ) |
719 (MenuItem |
687 (MenuItem |
720 label: 'Destroy' |
688 label: 'Destroy' |
721 itemValue: doDestroy |
689 itemValue: doDestroy |
722 translateLabel: true |
690 labelImage: (ResourceRetriever ToolbarIconLibrary erase16x16Icon 'Destroy') |
723 ) |
691 ) |
724 (MenuItem |
692 (MenuItem |
725 label: '-' |
693 label: '-' |
726 ) |
694 ) |
727 (MenuItem |
695 (MenuItem |
|
696 label: 'Geometry' |
|
697 submenuChannel: submenuGeometry: |
|
698 keepLinkedMenu: true |
|
699 ) |
|
700 (MenuItem |
|
701 label: 'Interface' |
|
702 submenuChannel: submenuInterface: |
|
703 keepLinkedMenu: true |
|
704 ) |
|
705 (MenuItem |
|
706 label: 'Visibility' |
|
707 submenuChannel: submenuVisibility: |
|
708 keepLinkedMenu: true |
|
709 ) |
|
710 (MenuItem |
728 label: 'Instance Variables' |
711 label: 'Instance Variables' |
729 translateLabel: true |
|
730 submenuChannel: submenuInspector: |
712 submenuChannel: submenuInspector: |
731 keepLinkedMenu: true |
713 keepLinkedMenu: true |
732 ) |
714 ) |
733 (MenuItem |
715 (MenuItem |
734 label: '=' |
716 label: '=' |