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. - ]. - ]. !