732 |
732 |
733 #(#Menu |
733 #(#Menu |
734 |
734 |
735 #( |
735 #( |
736 #(#MenuItem |
736 #(#MenuItem |
737 #'label:' 'About' |
737 #label: 'About' |
738 #'labelImage:' #(#ResourceRetriever nil #menuIcon) |
738 #labelImage: #(#ResourceRetriever nil #menuIcon) |
739 #'submenuChannel:' #menuAbout |
739 #submenuChannel: #menuAbout |
740 ) |
740 ) |
741 #(#MenuItem |
741 #(#MenuItem |
742 #'label:' 'File' |
742 #label: 'File' |
743 #'value:' #file |
743 #value: #file |
744 #'enabled:' #enableChannel |
744 #enabled: #enableChannel |
745 #'submenu:' |
745 #submenu: |
746 #(#Menu |
746 #(#Menu |
747 |
747 |
748 #( |
748 #( |
749 #(#MenuItem |
749 #(#MenuItem |
750 #'label:' 'New' |
750 #label: 'New' |
751 #'value:' #doNew |
751 #value: #doNew |
752 #'activeHelpKey:' #fileNew |
752 #activeHelpKey: #fileNew |
753 ) |
753 ) |
754 #(#MenuItem |
754 #(#MenuItem |
755 #'label:' '-' |
755 #label: '-' |
756 ) |
756 ) |
757 #(#MenuItem |
757 #(#MenuItem |
758 #'label:' 'Load...' |
758 #label: 'Load...' |
759 #'value:' #doFromClass |
759 #value: #doFromClass |
760 #'activeHelpKey:' #fileLoad |
760 #activeHelpKey: #fileLoad |
761 ) |
761 ) |
762 #(#MenuItem |
762 #(#MenuItem |
763 #'label:' 'Load Subspec...' |
763 #label: 'Load Subspec...' |
764 #'value:' #loadSubspec |
764 #value: #loadSubspec |
765 #'activeHelpKey:' #fileLoadSubspec |
765 #activeHelpKey: #fileLoadSubspec |
766 ) |
766 ) |
767 #(#MenuItem |
767 #(#MenuItem |
768 #'label:' '-' |
768 #label: '-' |
769 ) |
769 ) |
770 #(#MenuItem |
770 #(#MenuItem |
771 #'label:' 'Save' |
771 #label: 'Save' |
772 #'value:' #doInstallSpec |
772 #value: #doInstallSpec |
773 #'activeHelpKey:' #fileSave |
773 #activeHelpKey: #fileSave |
774 ) |
774 ) |
775 #(#MenuItem |
775 #(#MenuItem |
776 #'label:' '-' |
776 #label: '-' |
777 ) |
777 ) |
778 #(#MenuItem |
778 #(#MenuItem |
779 #'label:' 'Define Class And Selector...' |
779 #label: 'Define Class And Selector...' |
780 #'value:' #defineClassAndSelector |
780 #value: #defineClassAndSelector |
781 ) |
781 ) |
782 #(#MenuItem |
782 #(#MenuItem |
783 #'label:' '-' |
783 #label: '-' |
784 ) |
784 ) |
785 #(#MenuItem |
785 #(#MenuItem |
786 #'label:' 'Create Aspect Methods' |
786 #label: 'Create Aspect Methods' |
787 #'value:' #doInstallAspects |
787 #value: #doInstallAspects |
788 #'enabled:' #hasSpecClass |
788 #enabled: #hasSpecClass |
789 ) |
789 ) |
790 #(#MenuItem |
790 #(#MenuItem |
791 #'label:' 'Create Hook Methods' |
791 #label: 'Create Hook Methods' |
792 #'value:' #doInstallHooks |
792 #value: #doInstallHooks |
793 #'enabled:' #hasSpecClass |
793 #enabled: #hasSpecClass |
794 ) |
794 ) |
795 #(#MenuItem |
795 #(#MenuItem |
796 #'label:' '-' |
796 #label: '-' |
797 ) |
797 ) |
798 #(#MenuItem |
798 #(#MenuItem |
799 #'label:' 'Pick An Interface' |
799 #label: 'Pick An Interface' |
800 #'value:' #doPickAView |
800 #value: #doPickAView |
801 #'activeHelpKey:' #filePickAnInterface |
801 #activeHelpKey: #filePickAnInterface |
802 ) |
802 ) |
803 #(#MenuItem |
803 #(#MenuItem |
804 #'label:' '-' |
804 #label: '-' |
805 ) |
805 ) |
806 #(#MenuItem |
806 #(#MenuItem |
807 #'label:' 'Show Interface Spec' |
807 #label: 'Show Interface Spec' |
808 #'value:' #doWindowSpec |
808 #value: #doWindowSpec |
809 ) |
809 ) |
810 #(#MenuItem |
810 #(#MenuItem |
811 #'label:' 'Browse Interface Class' |
811 #label: 'Browse Interface Class' |
812 #'value:' #doBrowseAppClass |
812 #value: #doBrowseAppClass |
813 #'enabled:' #hasSpecClass |
813 #enabled: #hasSpecClass |
814 ) |
814 ) |
815 #(#MenuItem |
815 #(#MenuItem |
816 #'label:' 'Browse Aspect Methods' |
816 #label: 'Browse Aspect Methods' |
817 #'value:' #doBrowseAspectMethods |
817 #value: #doBrowseAspectMethods |
818 #'enabled:' #hasSpecClass |
818 #enabled: #hasSpecClass |
819 ) |
819 ) |
820 #(#MenuItem |
820 #(#MenuItem |
821 #'label:' '-' |
821 #label: '-' |
822 ) |
822 ) |
823 #(#MenuItem |
823 #(#MenuItem |
824 #'label:' 'Exit' |
824 #label: 'Exit' |
825 #'value:' #closeRequest |
825 #value: #closeRequest |
826 #'activeHelpKey:' #fileExit |
826 #activeHelpKey: #fileExit |
827 ) |
827 ) |
828 ) nil |
828 ) nil |
829 nil |
829 nil |
830 ) |
830 ) |
831 ) |
831 ) |
832 #(#MenuItem |
832 #(#MenuItem |
833 #'label:' 'Edit' |
833 #label: 'Edit' |
834 #'submenuChannel:' #menuEdit |
834 #submenuChannel: #menuEdit |
835 ) |
835 ) |
836 #(#MenuItem |
836 #(#MenuItem |
837 #'label:' 'Add' |
837 #label: 'Align' |
838 #'submenuChannel:' #menuAdd |
838 #submenuChannel: #menuAlign |
839 ) |
839 ) |
840 #(#MenuItem |
840 #(#MenuItem |
841 #'label:' 'Align' |
841 #label: 'Test' |
842 #'submenuChannel:' #menuAlign |
842 #submenu: |
843 ) |
|
844 #(#MenuItem |
|
845 #'label:' 'Test' |
|
846 #'submenu:' |
|
847 #(#Menu |
843 #(#Menu |
848 |
844 |
849 #( |
845 #( |
850 #(#MenuItem |
846 #(#MenuItem |
851 #'label:' 'Start Application' |
847 #label: 'Start Application' |
852 #'value:' #doStartApplication |
848 #value: #doStartApplication |
853 #'activeHelpKey:' #testStartApplication |
849 #activeHelpKey: #testStartApplication |
854 ) |
850 ) |
855 #(#MenuItem |
851 #(#MenuItem |
856 #'label:' '-' |
852 #label: '-' |
857 ) |
853 ) |
858 #(#MenuItem |
854 #(#MenuItem |
859 #'label:' 'Geometry Test Mode' |
855 #label: 'Geometry Test Mode' |
860 #'indication:' #'testMode:' |
856 #indication: #testMode: |
861 ) |
857 ) |
862 ) nil |
858 ) nil |
863 nil |
859 nil |
864 ) |
860 ) |
865 ) |
861 ) |
866 #(#MenuItem |
862 #(#MenuItem |
867 #'label:' 'Settings' |
863 #label: 'Settings' |
868 #'submenu:' |
864 #submenu: |
869 #(#Menu |
865 #(#Menu |
870 |
866 |
871 #( |
867 #( |
872 #(#MenuItem |
868 #(#MenuItem |
873 #'label:' 'Undo Manager...' |
869 #label: 'Undo Manager...' |
874 #'value:' #openUndoMenu |
870 #value: #openUndoMenu |
875 ) |
871 ) |
876 #(#MenuItem |
872 #(#MenuItem |
877 #'label:' '-' |
873 #label: '-' |
878 ) |
874 ) |
879 #(#MenuItem |
875 #(#MenuItem |
880 #'label:' 'Grid Manager...' |
876 #label: 'Grid Manager...' |
881 #'value:' #gridMenu |
877 #value: #gridMenu |
882 ) |
878 ) |
883 ) nil |
879 ) nil |
884 nil |
880 nil |
885 ) |
881 ) |
886 ) |
882 ) |
887 #(#MenuItem |
883 #(#MenuItem |
888 #'label:' 'History' |
884 #label: 'History' |
889 #'submenuChannel:' #menuHistory |
885 #submenuChannel: #menuHistory |
890 ) |
886 ) |
891 #(#MenuItem |
887 #(#MenuItem |
892 #'label:' 'Help' |
888 #label: 'Help' |
893 #'startGroup:' #right |
889 #startGroup: #right |
894 #'submenuChannel:' #menuHelp |
890 #submenuChannel: #menuHelp |
895 ) |
891 ) |
896 ) nil |
892 ) nil |
897 nil |
893 nil |
898 ) |
894 ) |
|
895 |
|
896 "Modified: / 27.2.1998 / 16:15:24 / cg" |
899 ! |
897 ! |
900 |
898 |
901 menuAdd |
899 menuAdd |
902 "this window spec was automatically generated by the ST/X MenuEditor" |
900 "this window spec was automatically generated by the ST/X MenuEditor" |
903 |
901 |
3578 ( aName size ~~ 0 |
3577 ( aName size ~~ 0 |
3579 and:[(name := aName string withoutSeparators) size ~~ 0 |
3578 and:[(name := aName string withoutSeparators) size ~~ 0 |
3580 and:[(self propertyDetect:[:p| p name = name]) isNil |
3579 and:[(self propertyDetect:[:p| p name = name]) isNil |
3581 and:[node name ~= name]]] |
3580 and:[node name ~= name]]] |
3582 ) ifTrue:[ |
3581 ) ifTrue:[ |
3583 node name: self class defaultNameOfCanvas asBoldText , ': [', name, ']'. |
3582 node name: (name asBoldText , ': [', self class defaultNameOfCanvas , ']'). |
3584 self redrawLine:1. |
3583 self redrawLine:1. |
3585 ]. |
3584 ]. |
|
3585 |
|
3586 "Modified: / 27.2.1998 / 16:13:31 / cg" |
3586 ! |
3587 ! |
3587 |
3588 |
3588 layoutChanged |
3589 layoutChanged |
3589 "layout of any component changed; in case of single selection, the |
3590 "layout of any component changed; in case of single selection, the |
3590 application will be informed to update its layout |
3591 application will be informed to update its layout |