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 |
2061 ] |
2059 ] |
2062 ] |
2060 ] |
2063 ] |
2061 ] |
2064 ! |
2062 ! |
2065 |
2063 |
2066 openAboutThisApplication |
|
2067 "This method was generated by the Browser. |
|
2068 It will be invoked when the menu-item 'help-about' is selected." |
|
2069 |
|
2070 "/ could open a customized aboutBox here ... |
|
2071 super openAboutThisApplication |
|
2072 ! |
|
2073 |
|
2074 openDocumentation |
2064 openDocumentation |
2075 "This method was generated by the Browser. |
2065 "This method was generated by the Browser. |
2076 It will be invoked when the menu-item 'help-documentation' is selected." |
2066 It will be invoked when the menu-item 'help-documentation' is selected." |
2077 |
2067 |
2078 "/ change below as required ... |
2068 "/ change below as required ... |
3026 similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association | |
3016 similarTranslationsAssociations := similarTranslationsAssociations associations inject: OrderedCollection new into:[:collection :association | |
3027 collection detect:[:selectedAssociation | |
3017 collection detect:[:selectedAssociation | |
3028 selectedAssociation value sameAs: association value] ifNone:[collection add: association]. |
3018 selectedAssociation value sameAs: association value] ifNone:[collection add: association]. |
3029 collection]. |
3019 collection]. |
3030 selectedTranslation := Dialog |
3020 selectedTranslation := Dialog |
3031 choose:'Choose one if you consider it´s usefull to translate: |
3021 choose:'Choose one if you consider it´s usefull to translate: |
3032 ', |
3022 ', |
3033 '<', key, '> ', (self currentExampleLanguageText ifNil:['']) |
3023 '<', key, '> ', (self currentExampleLanguageText ifNil:['']) |
3034 fromList: (similarTranslationsAssociations collect:[:each | '<', each key, '> ', each value]) |
3024 fromList: (similarTranslationsAssociations collect:[:each | '<', each key, '> ', each value]) |
3035 values: (similarTranslationsAssociations collect:[:each | each value]) |
3025 values: (similarTranslationsAssociations collect:[:each | each value]) |
3036 lines:10 |
3026 lines:10 |
3588 keys add:'no'. |
3578 keys add:'no'. |
3589 |
3579 |
3590 self addLanguage:#'de'. |
3580 self addLanguage:#'de'. |
3591 self addLanguage:#'fr'. |
3581 self addLanguage:#'fr'. |
3592 |
3582 |
3593 self at:'open' language:#'de' put:'öffnen'. |
3583 self at:'open' language:#'de' put:'öffnen'. |
3594 self at:'close' language:#'de' put:'schließen'. |
3584 self at:'close' language:#'de' put:'schließen'. |
3595 self at:'yes' language:#'de' put:'ja'. |
3585 self at:'yes' language:#'de' put:'ja'. |
3596 self at:'no' language:#'de' put:'nein'. |
3586 self at:'no' language:#'de' put:'nein'. |
3597 self at:'cancel' language:#'de' put:'abbrechen'. |
3587 self at:'cancel' language:#'de' put:'abbrechen'. |
3598 |
3588 |
3599 self at:'open' language:#'fr' put:'ouvrir'. |
3589 self at:'open' language:#'fr' put:'ouvrir'. |