#FEATURE by cg expeccoALM_1_13 expecco_18_2_0 expecco_18_2_1
authorClaus Gittinger <cg@exept.de>
Tue, 30 Oct 2018 16:46:41 +0100
changeset 36293b7a40bf90cb
parent 3628 dae68c3b50a6
child 3631 b7ed78d91bbb
#FEATURE by cg
class: Tools::InternationalLanguageTranslationEditor
added: #openFileBrowserOnResourceDirectory
comment/format in: #menuSaveAs

class: Tools::InternationalLanguageTranslationEditor class
changed: #mainMenu
Tools__InternationalLanguageTranslationEditor.st
     1.1 --- a/Tools__InternationalLanguageTranslationEditor.st	Tue Oct 30 16:30:12 2018 +0100
     1.2 +++ b/Tools__InternationalLanguageTranslationEditor.st	Tue Oct 30 16:46:41 2018 +0100
     1.3 @@ -709,6 +709,13 @@
     1.4                    label: '-'
     1.5                  )
     1.6                 (MenuItem
     1.7 +                  label: 'File Browser on Resource Directory'
     1.8 +                  itemValue: openFileBrowserOnResourceDirectory
     1.9 +                )
    1.10 +               (MenuItem
    1.11 +                  label: '-'
    1.12 +                )
    1.13 +               (MenuItem
    1.14                    label: 'Set Current NameSpace'
    1.15                    itemValue: changeLastNameSpace
    1.16                  )
    1.17 @@ -831,6 +838,8 @@
    1.18          nil
    1.19          nil
    1.20        )
    1.21 +
    1.22 +    "Modified: / 30-10-2018 / 16:31:32 / Claus Gittinger"
    1.23  !
    1.24  
    1.25  menuItemsEditLanguage
    1.26 @@ -1975,9 +1984,12 @@
    1.27  
    1.28      lang := self requestLanguageToSave.
    1.29      lang isNil ifTrue:[^ self].
    1.30 +    
    1.31      aFilename := self requestFilenameFor:lang.
    1.32      aFilename isNil ifTrue:[^ self].
    1.33      self saveResourceFile:aFilename for:lang asSymbol
    1.34 +
    1.35 +    "Modified (format): / 30-10-2018 / 16:33:04 / Claus Gittinger"
    1.36  !
    1.37  
    1.38  mergeLanguages
    1.39 @@ -2037,6 +2049,22 @@
    1.40      "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
    1.41  !
    1.42  
    1.43 +openFileBrowserOnResourceDirectory
    1.44 +    |files dirs|
    1.45 +
    1.46 +    files := keyStringsToLanguageMappings perLanguageInfo 
    1.47 +                keysAndValuesCollect:[:lang :eachInfo |
    1.48 +                    eachInfo at:#filename ifAbsent:nil
    1.49 +                ].
    1.50 +    files := files reject:[:f | f isNil].
    1.51 +    dirs := files collect:[:fn | fn asFilename directoryName] as:Set.
    1.52 +    dirs do:[:eachDir |
    1.53 +        UserPreferences current fileBrowserClass openOn:eachDir
    1.54 +    ]
    1.55 +
    1.56 +    "Created: / 30-10-2018 / 16:32:21 / Claus Gittinger"
    1.57 +!
    1.58 +
    1.59  readResourceFile:aFilename
    1.60      |lang|
    1.61