The Trunk: GetText-mt.49.mcz

Marcel Taeumel uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-mt.49.mcz

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

Name: GetText-mt.49
Author: mt
Time: 17 March 2021, 3:16:27.761151 pm
UUID: 3442ef02-57a1-ee45-9448-91ad5a21ce95
Ancestors: GetText-mt.48

Complements EToys-mt.435

=============== Diff against GetText-mt.48 ===============

Item was changed:
  ----- Method: GetTextExporter>>appendVocabularies: (in category 'private') -----
  appendVocabularies: domains
  | literalsForDomain references domainName methodReference |
 
+ Vocabulary withAllSubclassesDo: [:vocabularyClass |
+ (vocabularyClass class includesSelector: #allPhrasesWithContextToTranslate)
+ ifTrue: [vocabularyClass allPhrasesWithContextToTranslate do: [ :r |
- EToyVocabulary allPhrasesWithContextToTranslate do: [ :r |
  methodReference :=  (MethodReference class: (r second) selector: (r third)).
+ domainName := self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference).
- "domainName := self getTextDomainForPackage: (PackageOrganizer default packageOfMethod: methodReference)".
- domainName := 'Etoys-Tiles'.
  literalsForDomain := domains at: domainName ifAbsentPut: [Dictionary new].
  r fourth do: [ :literal |
  references := literalsForDomain at: literal ifAbsentPut: [OrderedCollection new].
+ references add: methodReference]]]].
- references add: methodReference.
- ].
- ].
  !