equal
deleted
inserted
replaced
707 ) |
707 ) |
708 (MenuItem |
708 (MenuItem |
709 label: '-' |
709 label: '-' |
710 ) |
710 ) |
711 (MenuItem |
711 (MenuItem |
|
712 label: 'File Browser on Resource Directory' |
|
713 itemValue: openFileBrowserOnResourceDirectory |
|
714 ) |
|
715 (MenuItem |
|
716 label: '-' |
|
717 ) |
|
718 (MenuItem |
712 label: 'Set Current NameSpace' |
719 label: 'Set Current NameSpace' |
713 itemValue: changeLastNameSpace |
720 itemValue: changeLastNameSpace |
714 ) |
721 ) |
715 (MenuItem |
722 (MenuItem |
716 label: 'Set Current Package' |
723 label: 'Set Current Package' |
829 ) |
836 ) |
830 ) |
837 ) |
831 nil |
838 nil |
832 nil |
839 nil |
833 ) |
840 ) |
|
841 |
|
842 "Modified: / 30-10-2018 / 16:31:32 / Claus Gittinger" |
834 ! |
843 ! |
835 |
844 |
836 menuItemsEditLanguage |
845 menuItemsEditLanguage |
837 "This resource specification was automatically generated |
846 "This resource specification was automatically generated |
838 by the MenuEditor of ST/X." |
847 by the MenuEditor of ST/X." |
1973 "Saves the language selected in the specified fileName." |
1982 "Saves the language selected in the specified fileName." |
1974 |lang aFilename| |
1983 |lang aFilename| |
1975 |
1984 |
1976 lang := self requestLanguageToSave. |
1985 lang := self requestLanguageToSave. |
1977 lang isNil ifTrue:[^ self]. |
1986 lang isNil ifTrue:[^ self]. |
|
1987 |
1978 aFilename := self requestFilenameFor:lang. |
1988 aFilename := self requestFilenameFor:lang. |
1979 aFilename isNil ifTrue:[^ self]. |
1989 aFilename isNil ifTrue:[^ self]. |
1980 self saveResourceFile:aFilename for:lang asSymbol |
1990 self saveResourceFile:aFilename for:lang asSymbol |
|
1991 |
|
1992 "Modified (format): / 30-10-2018 / 16:33:04 / Claus Gittinger" |
1981 ! |
1993 ! |
1982 |
1994 |
1983 mergeLanguages |
1995 mergeLanguages |
1984 |sourceLanguage destLanguage possibleDestinationLanguages| |
1996 |sourceLanguage destLanguage possibleDestinationLanguages| |
1985 |
1997 |
2033 HTMLDocumentView openFullOnDocumentationFile:'tools/languageEditor/TOP.html'. |
2045 HTMLDocumentView openFullOnDocumentationFile:'tools/languageEditor/TOP.html'. |
2034 |
2046 |
2035 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
2047 "/ add application-specific help files under the 'doc/online/<language>/help/appName' |
2036 "/ directory, and open a viewer with: |
2048 "/ directory, and open a viewer with: |
2037 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
2049 "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'. |
|
2050 ! |
|
2051 |
|
2052 openFileBrowserOnResourceDirectory |
|
2053 |files dirs| |
|
2054 |
|
2055 files := keyStringsToLanguageMappings perLanguageInfo |
|
2056 keysAndValuesCollect:[:lang :eachInfo | |
|
2057 eachInfo at:#filename ifAbsent:nil |
|
2058 ]. |
|
2059 files := files reject:[:f | f isNil]. |
|
2060 dirs := files collect:[:fn | fn asFilename directoryName] as:Set. |
|
2061 dirs do:[:eachDir | |
|
2062 UserPreferences current fileBrowserClass openOn:eachDir |
|
2063 ] |
|
2064 |
|
2065 "Created: / 30-10-2018 / 16:32:21 / Claus Gittinger" |
2038 ! |
2066 ! |
2039 |
2067 |
2040 readResourceFile:aFilename |
2068 readResourceFile:aFilename |
2041 |lang| |
2069 |lang| |
2042 |
2070 |