The Trunk: GetText-ul.42.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: GetText-ul.42.mcz

commits-2
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!