#FEATURE by cg
class: Tools::InternationalLanguageTranslationEditor
added: #openFileBrowserOnResourceDirectory
comment/format in: #menuSaveAs
class: Tools::InternationalLanguageTranslationEditor class
changed: #mainMenu
--- 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|