The Trunk: Multilingual-nice.52.mcz

Nicolas Cellier uploaded a new version of Multilingual to project The Trunk:
http://source.squeak.org/trunk/Multilingual-nice.52.mcz

==================== Summary ====================

Name: Multilingual-nice.52
Author: nice
Time: 20 October 2009, 12:35:05 pm
UUID: 7eb18b47-602b-9048-af9d-b89cea99a9ac
Ancestors: Multilingual-nice.51

use #fasterKeys

=============== Diff against Multilingual-nice.51 ===============

Item was changed:
  ----- Method: LanguageEditor>>translations (in category 'accessing') -----
  translations
  "answet the translator's translations"
  | allTranslations filterString |
+ allTranslations := self translator translations fasterKeys.
- allTranslations := self translator translations keys.
  ""
  filterString := self translationsFilter.
  ""
  filterString isEmpty
  ifFalse: [allTranslations := allTranslations
  select: [:each | ""
  ('*' , filterString , '*' match: each)
  or: ['*' , filterString , '*'
  match: (self translator translationFor: each)]]].
  ""
  ^ allTranslations asSortedCollection!

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 fasterKeys sort.
- originalPhrases := self translator translations keys asSortedCollection.
 
  originalPhrases
  do: [:each |
  aStream
  nextPutAll: ('|{1}|{2}|' format: {self asHtml: each. self
  asHtml: (self translator translationFor: each)});
  cr].
 
  aStream cr; cr!