Levente Uzonyi uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-ul.42.mcz ==================== Summary ==================== Name: GetText-ul.42 Author: ul Time: 13 March 2017, 5:05:17.875848 am UUID: 3202291e-e2f9-4210-bb30-efcee8943c57 Ancestors: GetText-ul.41 SortedCollection Whack-a-mole =============== Diff against GetText-ul.41 =============== Item was changed: ----- Method: LanguageEditor class>>open (in category 'opening') ----- open "open the receiver on any language" " LanguageEditor open. " | menu availableLanguages | menu := MenuMorph new defaultTarget: self. menu addTitle: 'Language Editor for...' translated. "" + availableLanguages := InternalTranslator availableLanguageLocaleIDs sorted: [:x :y | x asString <= y asString]. - availableLanguages := (InternalTranslator availableLanguageLocaleIDs asSortedCollection: [:x :y | x asString <= y asString]). availableLanguages ifEmpty:[^self inform:'InternalTranslator not initialized']. availableLanguages do: [:eachLanguage | "" menu add: eachLanguage name target: self selector: #openOn: argument: eachLanguage]. "" menu popUpInWorld! Item was changed: ----- Method: LanguageEditor>>printTranslationsReportOn: (in category 'reporting') ----- printTranslationsReportOn: aStream "append to aStream a report of the receiver's translations" | originalPhrases | aStream nextPutAll: '!!'; nextPutAll: 'translations' translated; cr. + originalPhrases := self translator translations keys sorted. - originalPhrases := self translator translations keys asSortedCollection. originalPhrases do: [:each | aStream nextPutAll: ('|{1}|{2}|' format: {self asHtml: each. self asHtml: (self translator translate: each)}); cr]. aStream cr; cr! Item was changed: ----- Method: LanguageEditor>>printUntranslatedReportOn: (in category 'reporting') ----- printUntranslatedReportOn: aStream "append to aStream a report of the receiver's translations" aStream nextPutAll: '!!'; nextPutAll: 'not translated' translated; cr. + self untranslated sorted - self untranslated asSortedCollection do: [:each | aStream nextPutAll: ('|{1}|' format: {self asHtml: each}); cr]. aStream cr; cr! Item was changed: ----- Method: LanguageEditor>>translations (in category 'accessing') ----- translations "answet the translator's translations" | allTranslations filterString | translations ifNotNil: [^translations]. allTranslations := self translator translations keys. "" filterString := self translationsFilter. "" filterString isEmpty ifFalse: [allTranslations := allTranslations select: [:each | "" ('*' , filterString , '*' match: each) or: ['*' , filterString , '*' match: (self translator translate: each)]]]. "" + ^ translations := allTranslations sorted! - ^ translations := allTranslations asSortedCollection asArray! Item was changed: ----- Method: LanguageEditor>>untranslated (in category 'accessing') ----- untranslated "answer the translator's untranslated phrases" | all filterString | untranslated ifNotNil: [^ untranslated]. all := self translator untranslated. "" filterString := self untranslatedFilter. "" filterString isEmpty ifFalse: [all := all select: [:each | "" ('*' , filterString , '*' match: each) or: ['*' , filterString , '*' match: (self translator translate: each)]]]. "" + ^ untranslated := all sorted! - ^ untranslated := all asSortedCollection asArray! |
Free forum by Nabble | Edit this page |