equal
deleted
inserted
replaced
1 "{ Encoding: utf8 }" |
|
2 |
|
3 "{ Package: 'stx:libtool2' }" |
1 "{ Package: 'stx:libtool2' }" |
4 |
2 |
5 "{ NameSpace: Tools }" |
3 "{ NameSpace: Tools }" |
6 |
4 |
7 ApplicationModel subclass:#InternationalLanguageTranslationEditor |
5 ApplicationModel subclass:#InternationalLanguageTranslationEditor |
1145 similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association | |
1143 similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association | |
1146 collection detect:[:selectedAssociation | |
1144 collection detect:[:selectedAssociation | |
1147 selectedAssociation value sameAs: association value] ifNone:[collection add: association]. |
1145 selectedAssociation value sameAs: association value] ifNone:[collection add: association]. |
1148 collection]. |
1146 collection]. |
1149 selectedTranslation := Dialog |
1147 selectedTranslation := Dialog |
1150 choose:'Choose one if you consider it´s usefull to translate: |
1148 choose:'Choose one if you consider it´s usefull to translate: |
1151 ', |
1149 ', |
1152 '<', key, '> ', (self currentExampleLanguageText ifNil:['']) |
1150 '<', key, '> ', (self currentExampleLanguageText ifNil:['']) |
1153 fromList: (similarTranslationsAssociations collect:[:each | '<', each key, '> ', each value]) |
1151 fromList: (similarTranslationsAssociations collect:[:each | '<', each key, '> ', each value]) |
1154 values: (similarTranslationsAssociations collect:[:each | each value]) |
1152 values: (similarTranslationsAssociations collect:[:each | each value]) |
1155 lines:10 |
1153 lines:10 |
1759 ]. |
1757 ]. |
1760 self addAllTranslations:newTranslations. |
1758 self addAllTranslations:newTranslations. |
1761 ! |
1759 ! |
1762 |
1760 |
1763 extractTranslationsFromProject |
1761 extractTranslationsFromProject |
1764 |projectID newTranslations| |
1762 |projectID newTranslations initialAnswer suggestions| |
1765 |
1763 |
1766 projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:(lastExtractedProject ? LastExtractedProject) suggestions:(OrderedCollection with:(lastExtractedProject ? LastExtractedProject)). |
1764 initialAnswer := lastExtractedProject ? LastExtractedProject. |
|
1765 suggestions := initialAnswer isNil ifTrue:[ |
|
1766 OrderedCollection new |
|
1767 ] ifFalse:[ |
|
1768 OrderedCollection with:initialAnswer |
|
1769 ]. |
|
1770 projectID := Dialog requestProject:(resources string:'Package to extract translations from:') initialAnswer:initialAnswer suggestions:suggestions. |
1767 projectID notNil ifTrue:[ |
1771 projectID notNil ifTrue:[ |
1768 projectID := projectID withoutSeparators asSymbol. |
1772 projectID := projectID withoutSeparators asSymbol. |
1769 ]. |
1773 ]. |
1770 projectID isEmptyOrNil ifTrue:[^ self ]. |
1774 projectID isEmptyOrNil ifTrue:[^ self ]. |
1771 |
1775 |
1783 |
1787 |
1784 self addAllTranslations:newTranslations. |
1788 self addAllTranslations:newTranslations. |
1785 ]. |
1789 ]. |
1786 |
1790 |
1787 "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1791 "Modified: / 19-02-2015 / 11:44:24 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
1788 "Modified (format): / 02-08-2017 / 17:07:55 / mawalch" |
1792 "Modified: / 16-08-2017 / 12:29:21 / mawalch" |
1789 ! |
1793 ! |
1790 |
1794 |
1791 generateMissingTranslations: keys for: languages using: translator |
1795 generateMissingTranslations: keys for: languages using: translator |
1792 keys do:[:string | |
1796 keys do:[:string | |
1793 languages do:[:lang | |
1797 languages do:[:lang | |
3303 keys add:'no'. |
3307 keys add:'no'. |
3304 |
3308 |
3305 self addLanguage:#'de'. |
3309 self addLanguage:#'de'. |
3306 self addLanguage:#'fr'. |
3310 self addLanguage:#'fr'. |
3307 |
3311 |
3308 self at:'open' language:#'de' put:'öffnen'. |
3312 self at:'open' language:#'de' put:'öffnen'. |
3309 self at:'close' language:#'de' put:'schließen'. |
3313 self at:'close' language:#'de' put:'schließen'. |
3310 self at:'yes' language:#'de' put:'ja'. |
3314 self at:'yes' language:#'de' put:'ja'. |
3311 self at:'no' language:#'de' put:'nein'. |
3315 self at:'no' language:#'de' put:'nein'. |
3312 self at:'cancel' language:#'de' put:'abbrechen'. |
3316 self at:'cancel' language:#'de' put:'abbrechen'. |
3313 |
3317 |
3314 self at:'open' language:#'fr' put:'ouvrir'. |
3318 self at:'open' language:#'fr' put:'ouvrir'. |