785 ) nil |
785 ) nil |
786 nil |
786 nil |
787 ) |
787 ) |
788 ! |
788 ! |
789 |
789 |
790 menuColorAssignment |
790 menuToolbar |
791 "this window spec was automatically generated by the ST/X MenuEditor" |
791 "this window spec was automatically generated by the ST/X MenuEditor" |
792 |
792 |
793 "do not manually edit this - the builder may not be able to |
793 "do not manually edit this - the builder may not be able to |
794 handle the specification if its corrupted." |
794 handle the specification if its corrupted." |
795 |
795 |
796 " |
796 " |
797 MenuEditor new openOnClass:ImageEditor andSelector:#menuColorAssignment |
797 MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar |
798 (Menu new fromLiteralArrayEncoding:(ImageEditor menuColorAssignment)) startUp |
798 (Menu new fromLiteralArrayEncoding:(ImageEditor menuToolbar)) startUp |
799 " |
799 " |
800 |
800 |
801 <resource: #menu> |
801 <resource: #menu> |
802 |
802 |
803 ^ |
803 ^ |
804 |
804 |
805 #(#Menu |
805 #(#Menu |
806 |
806 |
807 #( |
807 #( |
808 #(#MenuItem |
808 #(#MenuItem |
809 #'label:' 'left' |
|
810 #'nameKey:' #leftMouseKeyButton |
|
811 #'argument:' '1' |
|
812 #'labelImage:' #(#ResourceRetriever nil #leftMouseKeyIcon) |
|
813 #'indication:' #'mouseKeyColorMode:value:' |
|
814 ) |
|
815 #(#MenuItem |
|
816 #'label:' 'right' |
|
817 #'nameKey:' #rightMouseKeyButton |
|
818 #'argument:' '2' |
|
819 #'labelImage:' #(#ResourceRetriever nil #rightMouseKeyIcon) |
|
820 #'indication:' #'mouseKeyColorMode:value:' |
|
821 ) |
|
822 ) nil |
|
823 nil |
|
824 ) |
|
825 ! |
|
826 |
|
827 menuToolbar |
|
828 "this window spec was automatically generated by the ST/X MenuEditor" |
|
829 |
|
830 "do not manually edit this - the builder may not be able to |
|
831 handle the specification if its corrupted." |
|
832 |
|
833 " |
|
834 MenuEditor new openOnClass:ImageEditor andSelector:#menuToolbar |
|
835 (Menu new fromLiteralArrayEncoding:(ImageEditor menuToolbar)) startUp |
|
836 " |
|
837 |
|
838 <resource: #menu> |
|
839 |
|
840 ^ |
|
841 |
|
842 #(#Menu |
|
843 |
|
844 #( |
|
845 #(#MenuItem |
|
846 #label: 'newImage' |
809 #label: 'newImage' |
847 #isButton: true |
810 #isButton: true |
848 #value: #newImage |
811 #value: #newImage |
849 #activeHelpKey: #fileNewImage |
812 #activeHelpKey: #fileNewImage |
850 #labelImage: #(#ResourceRetriever nil #newIcon) |
813 #labelImage: #(#ResourceRetriever nil #newIcon) |