The Trunk: GetText-fbs.32.mcz

Frank Shearar uploaded a new version of GetText to project The Trunk:
http://source.squeak.org/trunk/GetText-fbs.32.mcz

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

Name: GetText-fbs.32
Author: fbs
Time: 21 May 2013, 10:47:09.48 pm
UUID: 63485fa0-7560-460c-81bd-3134c703acbc
Ancestors: GetText-fbs.31

MethodReference new setStandardClass: foo methodSymbol: bar -> MethodReference class: foo selector: bar.

=============== Diff against GetText-fbs.31 ===============

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