--- a/Tools__InternationalLanguageTranslationEditor.st	Tue Jan 28 21:59:18 2014 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Mon Feb 03 11:43:14 2014 +0100
@@ -943,10 +943,19 @@
 
     fn := aFilename asFilename.
 
-    self new
-	allButOpen;
-	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
-	openWindow.
+    ^ self new
+        allButOpen;
+        readResourceFile:fn asLanguage:fn withoutSuffix baseName;
+        openWindow;
+        yourself.
+!
+
+openOnPackage:aPackageId
+    ^ self new
+        allButOpen;
+        readResourceFileForPackage:aPackageId;
+        openWindow;
+        yourself.
 ! !
 
 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
@@ -2064,25 +2073,25 @@
     newTranslationKeys := newTranslations select:[:k | k notEmpty and:[k isString not or:[k isBlank not]]].
     newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
     newTranslationKeys := newTranslationKeys
-				collect:[:k |
-					(k endsWith:'...') ifTrue:[
-					    k copyWithoutLast:3.
-					] ifFalse:[
-					    ('.:?' includes:k last) ifTrue:[
-						k copyWithoutLast:1.
-					    ] ifFalse:[
-						k
-					]]].
+                                collect:[:k |
+                                        (k endsWith:'...') ifTrue:[
+                                            k copyButLast:3.
+                                        ] ifFalse:[
+                                            ('.:?' includes:k last) ifTrue:[
+                                                k copyButLast:1.
+                                            ] ifFalse:[
+                                                k
+                                        ]]].
     newTranslationKeys := newTranslationKeys asSet.
 
     newTranslationKeys notEmpty ifTrue:[
-	stringKeys := newTranslationKeys select:[:k | k isString].
-	nonStringKeys := newTranslationKeys select:[:k | k isString not].
-
-	stringKeys := stringKeys asSortedCollection.
-	keyStringsToLanguageMappings addKeys:stringKeys.
-	keyStringsToLanguageMappings addKeys:nonStringKeys.
-	modified := true.
+        stringKeys := newTranslationKeys select:[:k | k isString].
+        nonStringKeys := newTranslationKeys select:[:k | k isString not].
+
+        stringKeys := stringKeys asSortedCollection.
+        keyStringsToLanguageMappings addKeys:stringKeys.
+        keyStringsToLanguageMappings addKeys:nonStringKeys.
+        modified := true.
     ].
 !
 
@@ -3036,6 +3045,8 @@
 
     self addLanguage:#'de'.
     self addLanguage:#'fr'.
+    self addLanguage:#'en'.
+    self addLanguage:#'it'.
     self addLanguage:#'es'.
     self addLanguage:(Smalltalk language).
 
@@ -3183,3 +3194,4 @@
 version
     ^ '$Header$'
 ! !
+