# HG changeset patch
# User Claus Gittinger <cg@exept.de>
# Date 1550659636 -3600
# Node ID 0b8614c965236af496838b990bca05641b681040
# Parent  c8fbb7a433e5fcad9dda2a67eeb982670cc724a8
#UI_ENHANCEMENT by cg
class: Tools::InternationalLanguageTranslationEditor
comment/format in: #menuOpenByPackage
changed: #readResourceFileForPackage:

diff -r c8fbb7a433e5 -r 0b8614c96523 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