2784 " |
2784 " |
2785 self addAndSelectValueOf:[ SeparatorItem new ]. |
2785 self addAndSelectValueOf:[ SeparatorItem new ]. |
2786 ! |
2786 ! |
2787 |
2787 |
2788 doCreateStandardEditMenu |
2788 doCreateStandardEditMenu |
2789 "create a standart edit menu |
2789 "create a standard edit menu |
2790 " |
2790 " |
2791 self addAndSelectValueOf:[ |
2791 self addAndSelectValueOf:[ |
2792 RegularMenuItem menu:(self class standardEditMenu) labeled:'Edit' translateLabel:true |
2792 RegularMenuItem menu:(self class standardEditMenu) labeled:'Edit' translateLabel:true |
2793 ]. |
2793 ]. |
2794 ! |
2794 ! |
2795 |
2795 |
2796 doCreateStandardFileMenu |
2796 doCreateStandardFileMenu |
2797 "create a standart file menu |
2797 "create a standard file menu |
2798 " |
2798 " |
2799 self addAndSelectValueOf:[ |
2799 self addAndSelectValueOf:[ |
2800 RegularMenuItem menu:(self class standardFileMenu) labeled:'File' translateLabel:true |
2800 RegularMenuItem menu:(self class standardFileMenu) labeled:'File' translateLabel:true |
2801 ]. |
2801 ]. |
2802 ! |
2802 ! |
2803 |
2803 |
2804 doCreateStandardHelpMenu |
2804 doCreateStandardHelpMenu |
2805 "create a standart help menu |
2805 "create a standard help menu |
2806 " |
2806 " |
2807 |item| |
2807 |item| |
2808 |
2808 |
2809 self addAndSelectValueOf:[ |
2809 self addAndSelectValueOf:[ |
2810 item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true. |
2810 item := RegularMenuItem menu:(self class standardHelpMenu) labeled:'Help' translateLabel:true. |
2811 item aspectAt:#startGroup put:#conditionalRight. |
2811 item aspectAt:#startGroup put:#conditionalRight. |
2812 item |
2812 item |
2813 ]. |
2813 ]. |
2814 |
2814 |
2815 "Modified: / 16-10-2006 / 12:49:27 / cg" |
2815 "Modified: / 16-10-2006 / 12:49:27 / cg" |
2816 ! ! |
2816 ! ! |
2817 |
2817 |