equal
deleted
inserted
replaced
14 inSingleFileMode lastExtractedProject lastLanguage |
14 inSingleFileMode lastExtractedProject lastLanguage |
15 lastSelectedKey autoAcceptHolder languageEditor |
15 lastSelectedKey autoAcceptHolder languageEditor |
16 selectedColIndexHolder exampleLanguageSelectionHolder |
16 selectedColIndexHolder exampleLanguageSelectionHolder |
17 exampleLanguageTextHolder pastePreviousTranslationEnableHolder |
17 exampleLanguageTextHolder pastePreviousTranslationEnableHolder |
18 searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder |
18 searchForSimilarTranslationEnableHolder alwaysWriteUTF8Holder |
19 lastNameSpace' |
19 lastNameSpace pasteOriginalEnableHolder' |
20 classVariableNames:'LastExtractedClass LastExtractedApplicationClass |
20 classVariableNames:'LastExtractedClass LastExtractedApplicationClass |
21 LastExtractedProject' |
21 LastExtractedProject' |
22 poolDictionaries:'' |
22 poolDictionaries:'' |
23 category:'Interface-UIPainter' |
23 category:'Interface-UIPainter' |
24 ! |
24 ! |
240 translateLabel: true |
240 translateLabel: true |
241 model: pastePreviousTranslationInLanguageText |
241 model: pastePreviousTranslationInLanguageText |
242 enableChannel: pastePreviousTranslationEnableHolder |
242 enableChannel: pastePreviousTranslationEnableHolder |
243 disabledLogo: 'Paste Previous' |
243 disabledLogo: 'Paste Previous' |
244 ) |
244 ) |
|
245 (ActionButtonSpec |
|
246 label: 'Paste Original' |
|
247 name: 'Button1' |
|
248 layout: (LayoutOrigin -95 0.83085250338295 0 0.03448275862069) |
|
249 translateLabel: true |
|
250 model: pasteOriginalInLanguageText |
|
251 enableChannel: pasteOriginalEnableHolder |
|
252 disabledLogo: 'Paste Original' |
|
253 ) |
245 ) |
254 ) |
246 |
255 |
247 ) |
256 ) |
248 ) |
257 ) |
249 ) |
258 ) |
812 originalTextModifiedHolder := false asValue. |
821 originalTextModifiedHolder := false asValue. |
813 ]. |
822 ]. |
814 ^ originalTextModifiedHolder. |
823 ^ originalTextModifiedHolder. |
815 ! |
824 ! |
816 |
825 |
|
826 pasteOriginalEnableHolder |
|
827 pasteOriginalEnableHolder isNil ifTrue:[pasteOriginalEnableHolder := false asValue]. |
|
828 ^ pasteOriginalEnableHolder |
|
829 ! |
|
830 |
817 pastePreviousTranslationEnableHolder |
831 pastePreviousTranslationEnableHolder |
818 pastePreviousTranslationEnableHolder isNil ifTrue:[pastePreviousTranslationEnableHolder := false asValue]. |
832 pastePreviousTranslationEnableHolder isNil ifTrue:[pastePreviousTranslationEnableHolder := false asValue]. |
819 ^ pastePreviousTranslationEnableHolder |
833 ^ pastePreviousTranslationEnableHolder |
820 ! |
834 ! |
821 |
835 |
938 answer == #accept ifTrue:[ |
952 answer == #accept ifTrue:[ |
939 self halt. ]. |
953 self halt. ]. |
940 answer == #acceptAsNew ifTrue:[ |
954 answer == #acceptAsNew ifTrue:[ |
941 self halt. ]. |
955 self halt. ]. |
942 ]. |
956 ]. |
|
957 ! |
|
958 |
|
959 updatePasteOriginalButtonEnabled |
|
960 |
|
961 self pasteOriginalEnableHolder value: self shouldPasteOriginalButtonBeEnabled |
943 ! ! |
962 ! ! |
944 |
963 |
945 !InternationalLanguageTranslationEditor methodsFor:'dialogs'! |
964 !InternationalLanguageTranslationEditor methodsFor:'dialogs'! |
946 |
965 |
947 requestEncoderDialog |
966 requestEncoderDialog |
1336 ] fork. |
1355 ] fork. |
1337 ! |
1356 ! |
1338 |
1357 |
1339 searchStringInLastNameSpace |
1358 searchStringInLastNameSpace |
1340 |
1359 |
1341 |selectedKey browser| |
1360 |selectedKey browser lastSearchPatterns| |
1342 |
1361 |
1343 selectedKey := self selectedKey. |
1362 selectedKey := self selectedKey. |
1344 selectedKey isNil ifTrue:[^Dialog information: 'No selected key']. |
1363 selectedKey isNil ifTrue:[^Dialog information: 'No selected key']. |
1345 browser := NewSystemBrowser new "open". |
1364 browser := NewSystemBrowser new "open". |
1346 browser allButOpen. |
1365 browser allButOpen. |
1347 browser lastSearchPatterns first = selectedKey ifFalse:[ |
1366 lastSearchPatterns := browser lastSearchPatterns. |
|
1367 (lastSearchPatterns notNil and:[lastSearchPatterns first ~= selectedKey]) ifTrue:[ |
1348 browser lastSearchPatterns addFirst: selectedKey |
1368 browser lastSearchPatterns addFirst: selectedKey |
1349 ]. |
1369 ]. |
1350 lastNameSpace isNil ifTrue:[ |
1370 lastNameSpace isNil ifTrue:[ |
1351 self changeLastNameSpace. |
1371 self changeLastNameSpace. |
1352 ]. |
1372 ]. |
1721 shouldCopyPreviousTranslationButtonBeEnabled |
1741 shouldCopyPreviousTranslationButtonBeEnabled |
1722 ^ self hasLanguageSelection |
1742 ^ self hasLanguageSelection |
1723 and:[self hasFirstRowSelection] |
1743 and:[self hasFirstRowSelection] |
1724 ! |
1744 ! |
1725 |
1745 |
|
1746 shouldPasteOriginalButtonBeEnabled |
|
1747 ^ self hasLanguageSelection |
|
1748 and:[self hasFirstRowSelection] |
|
1749 ! |
|
1750 |
1726 shouldSearchForSimilarTranslation |
1751 shouldSearchForSimilarTranslation |
1727 |
1752 |
1728 self isSearchForSimilarTranslationEnabled ifFalse:[^false]. |
1753 self isSearchForSimilarTranslationEnabled ifFalse:[^false]. |
1729 (self languageTextHolder value notNil and:[self languageTextHolder value notEmpty]) ifTrue:[^false]. |
1754 (self languageTextHolder value notNil and:[self languageTextHolder value notEmpty]) ifTrue:[^false]. |
1730 (self hasLanguageSelection and:[self selectedKeyRow notNil]) ifFalse:[^false]. |
1755 (self hasLanguageSelection and:[self selectedKeyRow notNil]) ifFalse:[^false]. |
1916 ifFalse:[ |
1941 ifFalse:[ |
1917 nextRowIndex := self selectedKeyRow value + 1. |
1942 nextRowIndex := self selectedKeyRow value + 1. |
1918 self selectedKeyRow value: nextRowIndex]. |
1943 self selectedKeyRow value: nextRowIndex]. |
1919 ! |
1944 ! |
1920 |
1945 |
|
1946 pasteOriginalInLanguageText |
|
1947 <resource: #uiCallback> |
|
1948 |
|
1949 | originalText| |
|
1950 |
|
1951 originalText := self selectedKey. |
|
1952 languageEditor selectAll. |
|
1953 languageEditor pasteOrReplace:originalText. |
|
1954 self languageTextModifiedHolder value:true. |
|
1955 ! |
|
1956 |
1921 pastePreviousTranslationInLanguageText |
1957 pastePreviousTranslationInLanguageText |
1922 "Obtain the text from the previous translation and paste it into the languageTextEditor" |
1958 "Obtain the text from the previous translation and paste it into the languageTextEditor" |
1923 |
1959 |
1924 | previousLanguageText previousLanguageRow| |
1960 | previousLanguageText previousLanguageRow| |
1925 |
1961 |
1937 self updateLanguageTextModification. |
1973 self updateLanguageTextModification. |
1938 self updateLanguageAndKeySelection. |
1974 self updateLanguageAndKeySelection. |
1939 self updateExampleLanguageText. |
1975 self updateExampleLanguageText. |
1940 |
1976 |
1941 self updateCopyPreviousTranslationButtonEnabled. |
1977 self updateCopyPreviousTranslationButtonEnabled. |
|
1978 self updatePasteOriginalButtonEnabled. |
1942 |
1979 |
1943 self originalTextModifiedHolder value:false. |
1980 self originalTextModifiedHolder value:false. |
1944 self languageTextModifiedHolder value:false. |
1981 self languageTextModifiedHolder value:false. |
1945 |
1982 |
1946 self searchForSimilarTranslation. |
1983 self searchForSimilarTranslation. |