640 ) |
640 ) |
641 |
641 |
642 "Modified: / 19.5.1998 / 21:44:09 / cg" |
642 "Modified: / 19.5.1998 / 21:44:09 / cg" |
643 ! |
643 ! |
644 |
644 |
645 menuFont |
645 menuHelp |
646 "This resource specification was automatically generated |
646 "This resource specification was automatically generated |
647 by the MenuEditor of ST/X." |
647 by the MenuEditor of ST/X." |
648 |
648 |
649 "Do not manually edit this!! If it is corrupted, |
649 "Do not manually edit this!! If it is corrupted, |
650 the MenuEditor may not be able to read the specification." |
650 the MenuEditor may not be able to read the specification." |
651 |
651 |
652 " |
652 " |
653 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuFont |
653 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp |
654 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuFont)) startUp |
654 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp |
655 " |
655 " |
656 |
656 |
657 <resource: #menu> |
657 <resource: #menu> |
658 |
658 |
659 ^ |
659 ^ |
660 |
660 |
661 #(#Menu |
661 #(#Menu |
662 |
662 |
663 #( |
663 #( |
664 #(#MenuItem |
664 #(#MenuItem |
665 #label: 'Label...' |
665 #label: 'Documentation' |
666 #translateLabel: true |
666 #translateLabel: true |
667 #value: #chooseFont: |
667 #value: #openDocumentation |
668 #argument: 'Label Font' |
668 #activeHelpKey: #helpTutorial |
669 ) |
669 #enabled: #valueOfHavingDocumentation |
670 #(#MenuItem |
670 ) |
671 #label: 'Button...' |
671 #(#MenuItem |
|
672 #label: '-' |
|
673 ) |
|
674 #(#MenuItem |
|
675 #label: 'Show Help Texts' |
672 #translateLabel: true |
676 #translateLabel: true |
673 #value: #chooseFont: |
677 #activeHelpKey: #helpShowHelp |
674 #argument: 'Button Font' |
678 #indication: #showingHelp: |
675 ) |
|
676 #(#MenuItem |
|
677 #label: 'Edit...' |
|
678 #translateLabel: true |
|
679 #value: #chooseFont: |
|
680 #argument: 'Edit Font' |
|
681 ) |
|
682 #(#MenuItem |
|
683 #label: 'List...' |
|
684 #translateLabel: true |
|
685 #value: #chooseFont: |
|
686 #argument: 'List Font' |
|
687 ) |
|
688 #(#MenuItem |
|
689 #label: 'Tree List...' |
|
690 #translateLabel: true |
|
691 #value: #chooseFont: |
|
692 #argument: 'Tree List Font' |
|
693 ) |
|
694 #(#MenuItem |
|
695 #label: 'Note Book...' |
|
696 #translateLabel: true |
|
697 #value: #chooseFont: |
|
698 #argument: 'Note Book Font' |
|
699 ) |
|
700 #(#MenuItem |
|
701 #label: 'Framed Box...' |
|
702 #translateLabel: true |
|
703 #value: #chooseFont: |
|
704 #argument: 'Framed Box Font' |
|
705 ) |
|
706 #(#MenuItem |
|
707 #label: '-' |
|
708 ) |
|
709 #(#MenuItem |
|
710 #label: 'Reset' |
|
711 #translateLabel: true |
|
712 #value: #resetFonts |
|
713 ) |
679 ) |
714 ) nil |
680 ) nil |
715 nil |
681 nil |
716 ) |
682 ) |
717 |
683 |
718 "Modified: / 31.7.1998 / 18:55:34 / cg" |
684 "Modified: / 31.7.1998 / 18:19:42 / cg" |
719 ! |
685 ! |
720 |
686 |
721 menuHelp |
687 xxxmenuFont |
722 "This resource specification was automatically generated |
688 "This resource specification was automatically generated |
723 by the MenuEditor of ST/X." |
689 by the MenuEditor of ST/X." |
724 |
690 |
725 "Do not manually edit this!! If it is corrupted, |
691 "Do not manually edit this!! If it is corrupted, |
726 the MenuEditor may not be able to read the specification." |
692 the MenuEditor may not be able to read the specification." |
727 |
693 |
728 " |
694 " |
729 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuHelp |
695 MenuEditor new openOnClass:ToolApplicationModel andSelector:#menuFont |
730 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuHelp)) startUp |
696 (Menu new fromLiteralArrayEncoding:(ToolApplicationModel menuFont)) startUp |
731 " |
697 " |
732 |
698 |
733 <resource: #menu> |
699 <resource: #menu> |
734 |
700 |
735 ^ |
701 ^ |
736 |
702 |
737 #(#Menu |
703 #(#Menu |
738 |
704 |
739 #( |
705 #( |
740 #(#MenuItem |
706 #(#MenuItem |
741 #label: 'Documentation' |
707 #label: 'Label...' |
742 #translateLabel: true |
708 #translateLabel: true |
743 #value: #openDocumentation |
709 #value: #chooseFont: |
744 #activeHelpKey: #helpTutorial |
710 #argument: 'Label Font' |
745 #enabled: #valueOfHavingDocumentation |
711 ) |
|
712 #(#MenuItem |
|
713 #label: 'Button...' |
|
714 #translateLabel: true |
|
715 #value: #chooseFont: |
|
716 #argument: 'Button Font' |
|
717 ) |
|
718 #(#MenuItem |
|
719 #label: 'Edit...' |
|
720 #translateLabel: true |
|
721 #value: #chooseFont: |
|
722 #argument: 'Edit Font' |
|
723 ) |
|
724 #(#MenuItem |
|
725 #label: 'List...' |
|
726 #translateLabel: true |
|
727 #value: #chooseFont: |
|
728 #argument: 'List Font' |
|
729 ) |
|
730 #(#MenuItem |
|
731 #label: 'Tree List...' |
|
732 #translateLabel: true |
|
733 #value: #chooseFont: |
|
734 #argument: 'Tree List Font' |
|
735 ) |
|
736 #(#MenuItem |
|
737 #label: 'Note Book...' |
|
738 #translateLabel: true |
|
739 #value: #chooseFont: |
|
740 #argument: 'Note Book Font' |
|
741 ) |
|
742 #(#MenuItem |
|
743 #label: 'Framed Box...' |
|
744 #translateLabel: true |
|
745 #value: #chooseFont: |
|
746 #argument: 'Framed Box Font' |
746 ) |
747 ) |
747 #(#MenuItem |
748 #(#MenuItem |
748 #label: '-' |
749 #label: '-' |
749 ) |
750 ) |
750 #(#MenuItem |
751 #(#MenuItem |
751 #label: 'Show Help Texts' |
752 #label: 'Reset' |
752 #translateLabel: true |
753 #translateLabel: true |
753 #activeHelpKey: #helpShowHelp |
754 #value: #resetFonts |
754 #indication: #showingHelp: |
|
755 ) |
755 ) |
756 ) nil |
756 ) nil |
757 nil |
757 nil |
758 ) |
758 ) |
759 |
759 |
760 "Modified: / 31.7.1998 / 18:19:42 / cg" |
760 "Modified: / 31.7.1998 / 18:55:34 / cg" |
761 ! ! |
761 ! ! |
762 |
762 |
763 !ToolApplicationModel class methodsFor:'queries'! |
763 !ToolApplicationModel class methodsFor:'queries'! |
764 |
764 |
765 isVisualStartable |
765 isVisualStartable |