equal
deleted
inserted
replaced
1908 self readResourceFile:langFile asLanguage:lang asSymbol |
1908 self readResourceFile:langFile asLanguage:lang asSymbol |
1909 ]. |
1909 ]. |
1910 ! |
1910 ! |
1911 |
1911 |
1912 removeLanguage |
1912 removeLanguage |
1913 |lang| |
1913 |languagesToRemove| |
1914 |
1914 |
1915 lang := Dialog choose:'Which language do you want to remove?' fromList:languagesList lines:10. |
1915 languagesToRemove := Dialog chooseMultiple:'Which language(s) do you want to remove?' fromList:languagesList lines:10. |
1916 lang isNil ifTrue:[^ self ]. |
1916 languagesToRemove isEmptyOrNil ifTrue:[^ self ]. |
1917 (Dialog confirm: 'Are you sure to remove the language ', lang ) ifTrue:[ |
1917 (Dialog confirm: 'Are you sure to remove the languages: ', languagesToRemove printString) ifTrue:[ |
1918 self languagesList remove:lang. |
1918 self languagesList removeAll:languagesToRemove. |
1919 self shownLanguages remove:lang. |
1919 self shownLanguages removeAll:languagesToRemove. |
1920 ]. |
1920 ]. |
1921 ! |
1921 ! |
1922 |
1922 |
1923 removeTranslation |
1923 removeTranslation |
1924 |rowSelectionIndex selectedKey| |
1924 |rowSelectionIndex selectedKey| |
2119 |
2119 |
2120 newTranslationKeys := newTranslations select:[:k | k notEmptyOrNil and:[k isString not or:[k isBlank not]]]. |
2120 newTranslationKeys := newTranslations select:[:k | k notEmptyOrNil and:[k isString not or:[k isBlank not]]]. |
2121 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not]. |
2121 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not]. |
2122 newTranslationKeys := newTranslationKeys |
2122 newTranslationKeys := newTranslationKeys |
2123 collect:[:k | |
2123 collect:[:k | |
2124 (k endsWith:'...') ifTrue:[ |
2124 (k endsWith:' ...') ifTrue:[ |
|
2125 k copyButLast:4. |
|
2126 ] ifFalse:[(k endsWith:'...') ifTrue:[ |
2125 k copyButLast:3. |
2127 k copyButLast:3. |
2126 ] ifFalse:[ |
2128 ] ifFalse:[ |
2127 ('.:?' includes:k last) ifTrue:[ |
2129 ('\.:?=,!! ' includes:k last) ifTrue:[ |
2128 k copyButLast:1. |
2130 k copyButLast:1. |
2129 ] ifFalse:[ |
2131 ] ifFalse:[ |
2130 k |
2132 k |
2131 ]]]. |
2133 ]]]]. |
2132 newTranslationKeys := newTranslationKeys asSet. |
2134 newTranslationKeys := newTranslationKeys asSet. |
|
2135 newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not]. |
2133 |
2136 |
2134 newTranslationKeys notEmpty ifTrue:[ |
2137 newTranslationKeys notEmpty ifTrue:[ |
2135 stringKeys := newTranslationKeys select:[:k | k isString]. |
2138 stringKeys := newTranslationKeys select:[:k | k isString]. |
2136 nonStringKeys := newTranslationKeys select:[:k | k isString not]. |
2139 nonStringKeys := newTranslationKeys select:[:k | k isString not]. |
2137 |
2140 |
3246 |
3249 |
3247 !InternationalLanguageTranslationEditor class methodsFor:'documentation'! |
3250 !InternationalLanguageTranslationEditor class methodsFor:'documentation'! |
3248 |
3251 |
3249 version |
3252 version |
3250 ^ '$Header$' |
3253 ^ '$Header$' |
3251 ! ! |
3254 ! |
3252 |
3255 |
|
3256 version_CVS |
|
3257 ^ '$Header$' |
|
3258 ! ! |
|
3259 |