class: Tools::InternationalLanguageTranslationEditor
added: #openOnPackage:
changed:
#addAllTranslations: (send #copyButLast: instead of #copyWithoutLast:)
#openOnFile:
--- 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$'
! !
+