658 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor mainMenu)) startUp |
658 (Menu new fromLiteralArrayEncoding:(Tools::InternationalLanguageTranslationEditor mainMenu)) startUp |
659 " |
659 " |
660 |
660 |
661 <resource: #menu> |
661 <resource: #menu> |
662 |
662 |
663 ^ |
663 ^ |
664 #(Menu |
664 #(Menu |
665 ( |
665 ( |
666 (MenuItem |
666 (MenuItem |
667 label: 'File' |
667 label: 'File' |
668 submenu: |
668 submenu: |
669 (Menu |
669 (Menu |
670 ( |
670 ( |
671 (MenuItem |
671 (MenuItem |
672 label: 'New' |
672 label: 'New' |
673 itemValue: menuNew |
673 itemValue: menuNew |
674 ) |
674 ) |
675 (MenuItem |
675 (MenuItem |
676 label: '-' |
676 label: '-' |
677 ) |
677 ) |
678 (MenuItem |
678 (MenuItem |
679 label: 'Open Resources for Package or Project...' |
679 label: 'Open Resources for Package or Project...' |
680 itemValue: menuOpenByPackage |
680 itemValue: menuOpenByPackage |
681 ) |
681 ) |
682 (MenuItem |
682 (MenuItem |
683 label: 'Open Resource File...' |
683 label: 'Open Resource File...' |
684 itemValue: menuOpen |
684 itemValue: menuOpen |
685 ) |
685 ) |
686 (MenuItem |
686 (MenuItem |
687 label: '-' |
687 label: '-' |
688 ) |
688 ) |
689 (MenuItem |
689 (MenuItem |
690 label: 'Save All Resource Files' |
690 label: 'Save All Resource Files' |
691 itemValue: menuSaveAll |
691 itemValue: menuSaveAll |
692 ) |
692 ) |
693 (MenuItem |
693 (MenuItem |
694 label: 'Save Resource File' |
694 label: 'Save Resource File' |
695 itemValue: menuSave |
695 itemValue: menuSave |
696 ) |
696 ) |
697 (MenuItem |
697 (MenuItem |
698 label: 'Save Resource File As...' |
698 label: 'Save Resource File As...' |
699 itemValue: menuSaveAs |
699 itemValue: menuSaveAs |
700 ) |
700 ) |
701 (MenuItem |
701 (MenuItem |
702 label: '-' |
702 label: '-' |
703 ) |
703 ) |
704 (MenuItem |
704 (MenuItem |
705 label: 'Import existing translations from file...' |
705 label: 'Import existing translations from file...' |
706 itemValue: importExistingTranslationsFromFile |
706 itemValue: importExistingTranslationsFromFile |
707 ) |
707 ) |
708 (MenuItem |
708 (MenuItem |
709 label: '-' |
709 label: '-' |
710 ) |
710 ) |
711 (MenuItem |
711 (MenuItem |
712 label: 'Set Current NameSpace' |
712 label: 'Set Current NameSpace' |
713 itemValue: changeLastNameSpace |
713 itemValue: changeLastNameSpace |
714 ) |
714 ) |
715 (MenuItem |
715 (MenuItem |
716 label: 'Set Current Package' |
716 label: 'Set Current Package' |
717 itemValue: changeLastPackage |
717 itemValue: changeLastPackage |
718 isVisible: false |
718 isVisible: false |
719 ) |
719 ) |
720 (MenuItem |
720 (MenuItem |
721 label: '-' |
721 label: '-' |
722 ) |
722 ) |
723 (MenuItem |
723 (MenuItem |
724 label: 'Exit' |
724 label: 'Exit' |
725 itemValue: closeRequest |
725 itemValue: closeRequest |
726 ) |
726 ) |
727 ) |
727 ) |
728 nil |
728 nil |
729 nil |
729 nil |
730 ) |
730 ) |
731 ) |
731 ) |
732 (MenuItem |
732 (MenuItem |
733 label: 'View' |
733 label: 'View' |
734 submenu: |
734 submenu: |
735 (Menu |
735 (Menu |
736 ( |
736 ( |
737 (MenuItem |
737 (MenuItem |
738 label: 'Show Missing Translations Only' |
738 label: 'Show Missing Translations Only' |
739 indication: showMissingTranslationsOnly |
739 indication: showMissingTranslationsOnly |
740 ) |
740 ) |
741 (MenuItem |
741 (MenuItem |
742 label: 'Show Search Box' |
742 label: 'Show Search Box' |
743 indication: searchBoxVisible |
743 indication: searchBoxVisible |
744 ) |
744 ) |
745 (MenuItem |
745 (MenuItem |
746 label: '-' |
746 label: '-' |
747 ) |
747 ) |
748 (MenuItem |
748 (MenuItem |
749 label: 'Shown Languages' |
749 label: 'Shown Languages' |
750 submenuChannel: shownLanguagesMenu |
750 submenuChannel: shownLanguagesMenu |
751 ) |
751 ) |
752 ) |
752 ) |
753 nil |
753 nil |
754 nil |
754 nil |
755 ) |
755 ) |
756 ) |
756 ) |
757 (MenuItem |
757 (MenuItem |
758 label: 'Languages' |
758 label: 'Languages' |
759 submenu: |
759 submenu: |
760 (Menu |
760 (Menu |
761 ( |
761 ( |
762 (MenuItem |
762 (MenuItem |
763 label: 'Add Language...' |
763 label: 'Add Language...' |
764 itemValue: addLanguage |
764 itemValue: addLanguage |
765 ) |
765 ) |
766 (MenuItem |
766 (MenuItem |
767 label: 'Remove Language...' |
767 label: 'Remove Language...' |
768 itemValue: removeLanguage |
768 itemValue: removeLanguage |
769 ) |
769 ) |
770 ) |
770 (MenuItem |
771 nil |
771 label: '-' |
772 nil |
772 ) |
773 ) |
773 (MenuItem |
774 ) |
774 label: 'Merge...' |
775 (MenuItem |
775 itemValue: mergeLanguages |
776 label: 'Translations' |
776 ) |
777 submenuChannel: translationsMenuSpec |
777 ) |
778 ) |
778 nil |
779 (MenuItem |
779 nil |
780 label: 'Preferences' |
780 ) |
781 submenu: |
781 ) |
782 (Menu |
782 (MenuItem |
783 ( |
783 label: 'Translations' |
784 (MenuItem |
784 submenuChannel: translationsMenuSpec |
785 label: 'Auto Accept Changes' |
785 ) |
786 indication: autoAcceptHolder |
786 (MenuItem |
787 ) |
787 label: 'Preferences' |
788 (MenuItem |
788 submenu: |
789 label: 'Search For Similar Translations' |
789 (Menu |
790 indication: searchForSimilarTranslationEnableHolder |
790 ( |
791 ) |
791 (MenuItem |
792 (MenuItem |
792 label: 'Auto Accept Changes' |
793 label: 'Always Write UTF8' |
793 indication: autoAcceptHolder |
794 indication: alwaysWriteUTF8Holder |
794 ) |
795 ) |
795 (MenuItem |
796 ) |
796 label: 'Search For Similar Translations' |
797 nil |
797 indication: searchForSimilarTranslationEnableHolder |
798 nil |
798 ) |
799 ) |
799 (MenuItem |
800 ) |
800 label: 'Always Write UTF8' |
801 (MenuItem |
801 indication: alwaysWriteUTF8Holder |
802 label: 'Help' |
802 ) |
803 startGroup: right |
803 ) |
804 submenu: |
804 nil |
805 (Menu |
805 nil |
806 ( |
806 ) |
807 (MenuItem |
807 ) |
808 label: 'Documentation' |
808 (MenuItem |
809 itemValue: openDocumentation |
809 label: 'Help' |
810 ) |
810 startGroup: right |
811 (MenuItem |
811 submenu: |
812 label: '-' |
812 (Menu |
813 ) |
813 ( |
814 (MenuItem |
814 (MenuItem |
815 label: 'About this Application...' |
815 label: 'Documentation' |
816 itemValue: openAboutThisApplication |
816 itemValue: openDocumentation |
817 ) |
817 ) |
818 ) |
818 (MenuItem |
819 nil |
819 label: '-' |
820 nil |
820 ) |
821 ) |
821 (MenuItem |
822 ) |
822 label: 'About this Application...' |
823 ) |
823 itemValue: openAboutThisApplication |
824 nil |
824 ) |
825 nil |
825 ) |
|
826 nil |
|
827 nil |
|
828 ) |
|
829 ) |
|
830 ) |
|
831 nil |
|
832 nil |
826 ) |
833 ) |
827 ! |
834 ! |
828 |
835 |
829 menuItemsEditLanguage |
836 menuItemsEditLanguage |
830 "This resource specification was automatically generated |
837 "This resource specification was automatically generated |
1946 lang := self requestLanguageToSave. |
1954 lang := self requestLanguageToSave. |
1947 lang isNil ifTrue:[^ self]. |
1955 lang isNil ifTrue:[^ self]. |
1948 aFilename := self requestFilenameFor:lang. |
1956 aFilename := self requestFilenameFor:lang. |
1949 aFilename isNil ifTrue:[^ self]. |
1957 aFilename isNil ifTrue:[^ self]. |
1950 self saveResourceFile:aFilename for:lang asSymbol |
1958 self saveResourceFile:aFilename for:lang asSymbol |
|
1959 ! |
|
1960 |
|
1961 mergeLanguages |
|
1962 |sourceLanguage destLanguage possibleDestinationLanguages| |
|
1963 |
|
1964 sourceLanguage := Dialog |
|
1965 request:'Merge entries from:' |
|
1966 initialAnswer:nil |
|
1967 list:(self languagesList) |
|
1968 title:'Source language'. |
|
1969 sourceLanguage isEmptyOrNil ifTrue:[^ self]. |
|
1970 |
|
1971 possibleDestinationLanguages := self languagesList copyWithout:sourceLanguage. |
|
1972 |
|
1973 destLanguage := Dialog |
|
1974 request:'Destination language:\(Missing entries in destination are filled in from source)' withCRs |
|
1975 initialAnswer:(possibleDestinationLanguages size == 1 |
|
1976 ifTrue:[possibleDestinationLanguages first] |
|
1977 ifFalse:[nil]) |
|
1978 list:possibleDestinationLanguages |
|
1979 title:'Destination language'. |
|
1980 destLanguage isEmptyOrNil ifTrue:[^ self]. |
|
1981 |
|
1982 "/ all empty entries of dest are filled in from source |
|
1983 keyStringsToLanguageMappings keys do:[:eachKey | |
|
1984 |newXlation| |
|
1985 |
|
1986 (keyStringsToLanguageMappings at:eachKey language:destLanguage) isEmptyOrNil ifTrue:[ |
|
1987 newXlation := keyStringsToLanguageMappings at:eachKey language:sourceLanguage. |
|
1988 newXlation notNil ifTrue:[ |
|
1989 self halt. |
|
1990 keyStringsToLanguageMappings at:eachKey language:destLanguage put:newXlation. |
|
1991 ] |
|
1992 ] |
|
1993 ] |
1951 ! |
1994 ! |
1952 |
1995 |
1953 openAboutThisApplication |
1996 openAboutThisApplication |
1954 "This method was generated by the Browser. |
1997 "This method was generated by the Browser. |
1955 It will be invoked when the menu-item 'help-about' is selected." |
1998 It will be invoked when the menu-item 'help-about' is selected." |