# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1540914401 -3600
# Node ID 3b7a40bf90cb410c022fd092f0bbd546052c660d
# Parent  dae68c3b50a6976527a106e699c3e406200a1eb1
#FEATURE by cg
class: Tools::InternationalLanguageTranslationEditor
added: #openFileBrowserOnResourceDirectory
comment/format in: #menuSaveAs

class: Tools::InternationalLanguageTranslationEditor class
changed: #mainMenu

diff -r dae68c3b50a6 -r 3b7a40bf90cb Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Tue Oct 30 16:30:12 2018 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Tue Oct 30 16:46:41 2018 +0100
@@ -709,6 +709,13 @@
                   label: '-'
                 )
                (MenuItem
+                  label: 'File Browser on Resource Directory'
+                  itemValue: openFileBrowserOnResourceDirectory
+                )
+               (MenuItem
+                  label: '-'
+                )
+               (MenuItem
                   label: 'Set Current NameSpace'
                   itemValue: changeLastNameSpace
                 )
@@ -831,6 +838,8 @@
         nil
         nil
       )
+
+    "Modified: / 30-10-2018 / 16:31:32 / Claus Gittinger"
 !
 
 menuItemsEditLanguage
@@ -1975,9 +1984,12 @@
 
     lang := self requestLanguageToSave.
     lang isNil ifTrue:[^ self].
+    
     aFilename := self requestFilenameFor:lang.
     aFilename isNil ifTrue:[^ self].
     self saveResourceFile:aFilename for:lang asSymbol
+
+    "Modified (format): / 30-10-2018 / 16:33:04 / Claus Gittinger"
 !
 
 mergeLanguages
@@ -2037,6 +2049,22 @@
     "/ HTMLDocumentView openFullOnDocumentationFile:'help/<MyApplication>/TOP.html'.
 !
 
+openFileBrowserOnResourceDirectory
+    |files dirs|
+
+    files := keyStringsToLanguageMappings perLanguageInfo 
+                keysAndValuesCollect:[:lang :eachInfo |
+                    eachInfo at:#filename ifAbsent:nil
+                ].
+    files := files reject:[:f | f isNil].
+    dirs := files collect:[:fn | fn asFilename directoryName] as:Set.
+    dirs do:[:eachDir |
+        UserPreferences current fileBrowserClass openOn:eachDir
+    ]
+
+    "Created: / 30-10-2018 / 16:32:21 / Claus Gittinger"
+!
+
 readResourceFile:aFilename
     |lang|