Tools__InternationalLanguageTranslationEditor.st
changeset 3639 e8a2e6f41121
parent 3638 0b8614c96523
child 3640 278e1952a646
equal deleted inserted replaced
3638:0b8614c96523 3639:e8a2e6f41121
  1022 ! !
  1022 ! !
  1023 
  1023 
  1024 !InternationalLanguageTranslationEditor class methodsFor:'startup'!
  1024 !InternationalLanguageTranslationEditor class methodsFor:'startup'!
  1025 
  1025 
  1026 openOnFile:aFilename
  1026 openOnFile:aFilename
  1027     |fn|
  1027     |fn editor|
  1028 
  1028 
  1029     fn := aFilename asFilename.
  1029     fn := aFilename asFilename.
  1030 
  1030 
  1031     ^ self new
  1031     ^ (editor := self new)
  1032 	allButOpen;
  1032         allButOpen;
  1033 	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
  1033         readResourceFile:fn asLanguage:(fn withoutSuffix baseName);
  1034 	openWindow;
  1034         openWindow;
  1035 	yourself.
  1035         yourself.
       
  1036 
       
  1037     "Modified: / 20-02-2019 / 12:06:24 / Claus Gittinger"
  1036 !
  1038 !
  1037 
  1039 
  1038 openOnPackage:aPackageId
  1040 openOnPackage:aPackageId
  1039     ^ self new
  1041     |editor|
  1040 	allButOpen;
  1042     
  1041 	readResourceFileForPackage:aPackageId;
  1043     ^ (editor := self new)
  1042 	openWindow;
  1044         allButOpen;
  1043 	yourself.
  1045         readResourceFileForPackage:aPackageId;
       
  1046         openWindow;
       
  1047         yourself.
       
  1048 
       
  1049     "Modified: / 20-02-2019 / 12:06:33 / Claus Gittinger"
  1044 ! !
  1050 ! !
  1045 
  1051 
  1046 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
  1052 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
  1047 
  1053 
  1048 keyTableColumn
  1054 keyTableColumn
  2071     |lang|
  2077     |lang|
  2072 
  2078 
  2073     lang := self requestLanguage.
  2079     lang := self requestLanguage.
  2074     lang isNil ifTrue:[^ self ].
  2080     lang isNil ifTrue:[^ self ].
  2075 
  2081 
  2076     self readResourceFile:aFilename asLanguage:lang asSymbol
  2082     self readResourceFile:aFilename asLanguage:(lang asSymbol)
       
  2083 
       
  2084     "Modified (format): / 20-02-2019 / 11:52:39 / Claus Gittinger"
  2077 !
  2085 !
  2078 
  2086 
  2079 readResourceFileForPackage:aPackage
  2087 readResourceFileForPackage:aPackage
  2080     |allLanguages lang packageDir resourceDir langFile|
  2088     |allLanguages lang packageDir resourceDir langFile|
  2081 
  2089