[etoys-dev] Etoys: Collections-bf.3.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Collections to project Etoys:
http://source.squeak.org/etoys/Collections-bf.3.mcz

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

Name: Collections-bf.3
Author: bf
Time: 2 May 2010, 6:59:40 pm
UUID: 145b3fa0-a26f-41fe-bfa0-aafd0b73974c
Ancestors: Collections-bf.2

- in String>>translated, use "context mclass" instead of the less accurate "context receiver class" to look up the text domain

=============== Diff against Collections-bf.2 ===============

Item was changed:
  ----- Method: String>>translated (in category 'translating') -----
  translated
  	"answer the receiver translated to the default language"
  
+ 	| context class domain |
+ 	context := thisContext sender.
+ 	class := context mclass.
+ 	"Can we get rid of Text>>translated? It appears to be an abandoned experiment to translate the QuickGuides."
+ 	(class == Text and: [context method == (Text>>#translated)])
+ 		ifTrue: [class := context sender mclass].
+ 	domain := TextDomainManager domainForClass: class.
- 	| domain here |
- 	here _ thisContext sender receiver class.
- 	here == Text ifTrue: [here _ thisContext sender sender receiver class].	"ignore super call"
- 	domain := TextDomainManager domainForClass: here.
- 
- "AA ifNil: [AA _ 45.  self halt]."	"only once for debug"  "AA _ nil"
- 
  	^ self translatedTo: LocaleID current inDomain: domain!