#UI_ENHANCEMENT by cg draft
authorClaus Gittinger <cg@exept.de>
Wed, 20 Feb 2019 11:47:16 +0100
changeset 3638 0b8614c96523
parent 3637 c8fbb7a433e5
child 3639 e8a2e6f41121
#UI_ENHANCEMENT by cg class: Tools::InternationalLanguageTranslationEditor comment/format in: #menuOpenByPackage changed: #readResourceFileForPackage:
Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Wed Feb 13 04:30:26 2019 +0000
+++ b/Tools__InternationalLanguageTranslationEditor.st	Wed Feb 20 11:47:16 2019 +0100
@@ -1955,13 +1955,15 @@
 !
 
 menuOpenByPackage
-    |package|
-
     self withWaitCursorDo:[
-	package := self requestPackage.
-	package isNil ifTrue:[^ self ].
-	self readResourceFileForPackage:package.
+        |package|
+
+        package := self requestPackage.
+        package isNil ifTrue:[^ self ].
+        self readResourceFileForPackage:package.
     ]
+
+    "Modified (format): / 20-02-2019 / 11:47:01 / Claus Gittinger"
 !
 
 menuSave
@@ -2079,6 +2081,10 @@
 
     packageDir := Smalltalk packageDirectoryForPackageId:aPackage.
     resourceDir := packageDir asFilename construct:'resources'.
+    resourceDir exists ifFalse:[
+        Dialog information:'No resource directory present for package: ',aPackage.
+        ^ self
+    ].    
 
     allLanguages := Set new.
     resourceDir directoryContentsAsFilenamesDo:[:eachFile |
@@ -2116,7 +2122,7 @@
     ].
     self window label:('%1: %2' bindWith:self class nameWithoutPrefix with:aPackage)
 
-    "Modified: / 30-10-2018 / 16:29:07 / Claus Gittinger"
+    "Modified: / 20-02-2019 / 11:45:50 / Claus Gittinger"
 !
 
 removeLanguage