[squeak-dev] The Trunk: GetText-ul.42.mcz

commits at source.squeak.org commits at source.squeak.org
Mon Mar 13 14:43:47 UTC 2017


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!



More information about the Squeak-dev mailing list