+openOnFile
authorClaus Gittinger <cg@exept.de>
Fri, 14 Nov 2008 14:35:11 +0100
changeset 2433 88fbe1703c31
parent 2432 294274f5e342
child 2434 6ad1f853d2e9
+openOnFile
Tools__InternationalLanguageTranslationEditor.st
--- a/Tools__InternationalLanguageTranslationEditor.st	Thu Nov 13 11:28:10 2008 +0100
+++ b/Tools__InternationalLanguageTranslationEditor.st	Fri Nov 14 14:35:11 2008 +0100
@@ -930,6 +930,19 @@
       )
 ! !
 
+!InternationalLanguageTranslationEditor class methodsFor:'startup'!
+
+openOnFile:aFilename
+    |fn|
+
+    fn := aFilename asFilename.
+
+    self new
+        allButOpen;
+        readResourceFile:fn asLanguage:fn withoutSuffix baseName;
+        openWindow.
+! !
+
 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
 
 keyTableColumn