[squeak-dev] The Inbox: GetText-edc.26.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Dec 18 11:22:37 UTC 2012


A new version of GetText was added to project The Inbox:
http://source.squeak.org/inbox/GetText-edc.26.mcz

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

Name: GetText-edc.26
Author: edc
Time: 18 December 2012, 8:23:27.014 am
UUID: a6073c36-9cee-4419-a727-389696afd8ad
Ancestors: GetText-nice.25

This modification is for when you perform Smalltalk unloadAllKnownPackages on Squeak4.4-RC2.tgz the image don't crash

=============== Diff against GetText-nice.25 ===============

Item was changed:
  ----- Method: GetTextExporter>>appendTranslations: (in category 'exporting') -----
  appendTranslations: domains 
  	self appendStringReceivers: #translated into: domains.
  	self appendStringReceivers: #translatedNoop into: domains.
+ 	"self appendVocabularies: domains."
- 	self appendVocabularies: domains.
  !

Item was removed:
- ----- Method: GetTextExporter>>appendVocabularies: (in category 'private') -----
- appendVocabularies: domains
- 	| literalsForDomain references domainName methodReference |
- 	
- 	EToyVocabulary allPhrasesWithContextToTranslate do: [ :r |
- 		methodReference :=  (MethodReference new setStandardClass: (r second) methodSymbol: (r third)).
- 		"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.
- 		].
- 	]. 
- 	!



More information about the Squeak-dev mailing list