460 acceptCallBack: languageTextAccepted |
460 acceptCallBack: languageTextAccepted |
461 hasKeyboardFocusInitially: false |
461 hasKeyboardFocusInitially: false |
462 postBuildCallback: languageEditorBuilt: |
462 postBuildCallback: languageEditorBuilt: |
463 ) |
463 ) |
464 (ActionButtonSpec |
464 (ActionButtonSpec |
|
465 label: 'Add' |
|
466 name: 'Button2' |
|
467 layout: (LayoutFrame -344 0.83085250338295003 0 0 -255 0.83085250338295003 27 0) |
|
468 uuid: '37d809fa-b8d0-11e8-aeef-b8f6b1108e05' |
|
469 translateLabel: true |
|
470 model: addTranslationEntry |
|
471 ) |
|
472 (ActionButtonSpec |
465 label: 'Paste Original' |
473 label: 'Paste Original' |
466 name: 'Button1' |
474 name: 'Button1' |
467 layout: (LayoutFrame -186 0.83085250338295003 0 0 -64 0.83085250338295003 27 0) |
475 layout: (LayoutFrame -202 0.83085250338295003 0 0 -71 0.83085250338295003 27 0) |
468 uuid: '37d809fa-b8d0-11e8-aeef-b8f6b1108e05' |
476 uuid: '37d809fa-b8d0-11e8-aeef-b8f6b1108e05' |
469 translateLabel: true |
477 translateLabel: true |
470 model: pasteOriginalInLanguageText |
478 model: pasteOriginalInLanguageText |
471 enableChannel: pasteOriginalEnableHolder |
479 enableChannel: pasteOriginalEnableHolder |
472 disabledLogo: 'Paste Original' |
480 disabledLogo: 'Paste Original' |
473 ) |
481 ) |
474 (ActionButtonSpec |
482 (ActionButtonSpec |
475 label: 'Paste Previous' |
483 label: 'Paste Previous' |
476 name: 'pastePreviousTranslation' |
484 name: 'pastePreviousTranslation' |
477 layout: (LayoutFrame -42 0.83085250338295003 0 0 118 0.83085250338295003 27 0) |
485 layout: (LayoutFrame -66 0.83085250338295003 0 0 127 0.83085250338295003 27 0) |
478 uuid: '37d80b80-b8d0-11e8-aeef-b8f6b1108e05' |
486 uuid: '37d80b80-b8d0-11e8-aeef-b8f6b1108e05' |
479 translateLabel: true |
487 translateLabel: true |
480 model: pastePreviousTranslationInLanguageText |
488 model: pastePreviousTranslationInLanguageText |
481 enableChannel: pastePreviousTranslationEnableHolder |
489 enableChannel: pastePreviousTranslationEnableHolder |
482 disabledLogo: 'Paste Previous' |
490 disabledLogo: 'Paste Previous' |
1171 |
1179 |
1172 "Created: / 16-06-2007 / 09:06:46 / Administrador" |
1180 "Created: / 16-06-2007 / 09:06:46 / Administrador" |
1173 "Modified: / 22-06-2007 / 13:45:54 / Administrador" |
1181 "Modified: / 22-06-2007 / 13:45:54 / Administrador" |
1174 ! |
1182 ! |
1175 |
1183 |
|
1184 selectOrAddKey:aKey |
|
1185 "selects aKey if there is a corresponding row, |
|
1186 otherwise fills in the fields for editing" |
|
1187 |
|
1188 (self selectKey:aKey) ifFalse:[ |
|
1189 self addTranslationForKey:aKey. |
|
1190 self languageTextHolder value:aKey. |
|
1191 ]. |
|
1192 |
|
1193 "Created: / 21-02-2019 / 17:09:36 / Claus Gittinger" |
|
1194 "Modified: / 22-02-2019 / 09:25:43 / Claus Gittinger" |
|
1195 ! |
|
1196 |
1176 selectedKey |
1197 selectedKey |
1177 "Returns the current selected key if there is one row seleted. Otherwise, returns nil" |
1198 "Returns the current selected key if there is one row seleted. Otherwise, returns nil" |
1178 |
1199 |
1179 | rowSelectionIndex | |
1200 | rowSelectionIndex | |
1180 |
1201 |
1743 self shownLanguages add:lang. |
1764 self shownLanguages add:lang. |
1744 modified := true. |
1765 modified := true. |
1745 ! |
1766 ! |
1746 |
1767 |
1747 addTranslation |
1768 addTranslation |
1748 |key index| |
1769 |key| |
1749 |
1770 |
1750 key := Dialog request:'New Key:'. |
1771 key := Dialog request:'New Key:'. |
1751 key isEmptyOrNil ifTrue:[^self]. |
1772 key isEmptyOrNil ifTrue:[^self]. |
1752 |
1773 |
1753 (self includesKey:key) ifFalse:[ |
1774 self addTranslationForKey:key |
1754 keyStringsToLanguageMappings addKey:key. |
1775 |
|
1776 "Modified: / 22-02-2019 / 09:25:17 / Claus Gittinger" |
|
1777 ! |
|
1778 |
|
1779 addTranslationForKey:newKey |
|
1780 |index| |
|
1781 |
|
1782 newKey isEmptyOrNil ifTrue:[^self]. |
|
1783 |
|
1784 (self includesKey:newKey) ifFalse:[ |
|
1785 keyStringsToLanguageMappings addKey:newKey. |
1755 modified := true. |
1786 modified := true. |
1756 ]. |
1787 ]. |
1757 index := keyStringsToLanguageMappings indexOfKey:key. |
1788 index := keyStringsToLanguageMappings indexOfKey:newKey. |
1758 self selectedKeyRow value:index |
1789 self selectedKeyRow value:index. |
1759 |
1790 |
1760 "Modified: / 25-10-2018 / 16:16:21 / Claus Gittinger" |
1791 "Created: / 22-02-2019 / 09:24:59 / Claus Gittinger" |
1761 ! |
1792 ! |
1762 |
1793 |
1763 browseReferringMethods |
1794 browseReferringMethods |
1764 |selectedKey methods browser| |
1795 |selectedKey methods browser| |
1765 |
1796 |