Mercurial Mercurial > hg > stx-libtool2 / comparison
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tools__InternationalLanguageTranslationEditor.st
changeset 3077 48211023a3c7
parent 2880 263e41303b0a
child 3187 3fcd97a56a0e
equal deleted inserted replaced
3076:b574eb0ba087 3077:48211023a3c7 
   941 openOnFile:aFilename
 
   941 openOnFile:aFilename
 
   942     |fn|
 
   942     |fn|
 
   943 
   943 
   944     fn := aFilename asFilename.
 
   944     fn := aFilename asFilename.
 
   945 
   945 
   946     self new
 
   946     ^ self new
 
   947 	allButOpen;
 
   947         allButOpen;
 
   948 	readResourceFile:fn asLanguage:fn withoutSuffix baseName;
 
   948         readResourceFile:fn asLanguage:fn withoutSuffix baseName;
 
   949 	openWindow.
 
   949         openWindow;
 
       
   950         yourself.
 
       
   951 !
 
       
   952 
       
   953 openOnPackage:aPackageId
 
       
   954     ^ self new
 
       
   955         allButOpen;
 
       
   956         readResourceFileForPackage:aPackageId;
 
       
   957         openWindow;
 
       
   958         yourself.
 
   950 ! !
 
   959 ! !
 
   951 
   960 
   952 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
 
   961 !InternationalLanguageTranslationEditor class methodsFor:'tableColumns specs'!
 
   953 
   962 
   954 keyTableColumn
 
   963 keyTableColumn
 
  2062     |newTranslationKeys stringKeys nonStringKeys|
 
  2071     |newTranslationKeys stringKeys nonStringKeys|
 
  2063 
  2072 
  2064     newTranslationKeys := newTranslations select:[:k | k notEmpty and:[k isString not or:[k isBlank not]]].
 
  2073     newTranslationKeys := newTranslations select:[:k | k notEmpty and:[k isString not or:[k isBlank not]]].
 
  2065     newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 
  2074     newTranslationKeys := newTranslationKeys select:[:k | (keyStringsToLanguageMappings includesKey:k) not].
 
  2066     newTranslationKeys := newTranslationKeys
 
  2075     newTranslationKeys := newTranslationKeys
 
  2067 				collect:[:k |
 
  2076                                 collect:[:k |
 
  2068 					(k endsWith:'...') ifTrue:[
 
  2077                                         (k endsWith:'...') ifTrue:[
 
  2069 					    k copyWithoutLast:3.
 
  2078                                             k copyButLast:3.
 
  2070 					] ifFalse:[
 
  2079                                         ] ifFalse:[
 
  2071 					    ('.:?' includes:k last) ifTrue:[
 
  2080                                             ('.:?' includes:k last) ifTrue:[
 
  2072 						k copyWithoutLast:1.
 
  2081                                                 k copyButLast:1.
 
  2073 					    ] ifFalse:[
 
  2082                                             ] ifFalse:[
 
  2074 						k
 
  2083                                                 k
 
  2075 					]]].
 
  2084                                         ]]].
 
  2076     newTranslationKeys := newTranslationKeys asSet.
 
  2085     newTranslationKeys := newTranslationKeys asSet.
 
  2077 
  2086 
  2078     newTranslationKeys notEmpty ifTrue:[
 
  2087     newTranslationKeys notEmpty ifTrue:[
 
  2079 	stringKeys := newTranslationKeys select:[:k | k isString].
 
  2088         stringKeys := newTranslationKeys select:[:k | k isString].
 
  2080 	nonStringKeys := newTranslationKeys select:[:k | k isString not].
 
  2089         nonStringKeys := newTranslationKeys select:[:k | k isString not].
 
  2081 
  2090 
  2082 	stringKeys := stringKeys asSortedCollection.
 
  2091         stringKeys := stringKeys asSortedCollection.
 
  2083 	keyStringsToLanguageMappings addKeys:stringKeys.
 
  2092         keyStringsToLanguageMappings addKeys:stringKeys.
 
  2084 	keyStringsToLanguageMappings addKeys:nonStringKeys.
 
  2093         keyStringsToLanguageMappings addKeys:nonStringKeys.
 
  2085 	modified := true.
 
  2094         modified := true.
 
  2086     ].
 
  2095     ].
 
  2087 !
 
  2096 !
 
  2088 
  2097 
  2089 extractTranslationsFromClass:aClass
 
  2098 extractTranslationsFromClass:aClass
 
  2090     |newTranslations|
 
  2099     |newTranslations|
 
  3034     perLanguageInfo := Dictionary new.
 
  3043     perLanguageInfo := Dictionary new.
 
  3035     rowPerKey := Dictionary new.
 
  3044     rowPerKey := Dictionary new.
 
  3036 
  3045 
  3037     self addLanguage:#'de'.
 
  3046     self addLanguage:#'de'.
 
  3038     self addLanguage:#'fr'.
 
  3047     self addLanguage:#'fr'.
 
       
  3048     self addLanguage:#'en'.
 
       
  3049     self addLanguage:#'it'.
 
  3039     self addLanguage:#'es'.
 
  3050     self addLanguage:#'es'.
 
  3040     self addLanguage:(Smalltalk language).
 
  3051     self addLanguage:(Smalltalk language).
 
  3041 
  3052 
  3042     "/ self initializeDemoMappings.
 
  3053     "/ self initializeDemoMappings.
 
  3043 !
 
  3054 !
 
  3181 !InternationalLanguageTranslationEditor class methodsFor:'documentation'!
 
  3192 !InternationalLanguageTranslationEditor class methodsFor:'documentation'!
 
  3182 
  3193 
  3183 version
 
  3194 version
 
  3184     ^ '$Header$'
 
  3195     ^ '$Header$'
 
  3185 ! !
 
  3196 ! !
 
       
  3197
hg/stx-libtool2