#FEATURE by cg draft 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 3629 3b7a40bf90cb
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
--- 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|