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