[etoys-dev] Etoys: GetText-Richo.7.mcz

[commits at source.squeak.org]

Ricardo Moran uploaded a new version of GetText to project Etoys:
http://source.squeak.org/etoys/GetText-Richo.7.mcz

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

Name: GetText-Richo.7
Author: Richo
Time: 26 May 2010, 11:21:06 am
UUID: 6d28b3fc-fcf2-bb4a-896b-a90a3215e7c8
Ancestors: GetText-Richo.6

* Fixed formatting in two methods.
* Changed #= for #== in String>>translated

=============== Diff against GetText-Richo.6 ===============

Item was changed:
  ----- Method: String>>translatedInAllDomains (in category '*gettext') -----
  translatedInAllDomains
+ 	| translation |
+ 	Transcript show: self printString, ' translatedInAllDomains'; cr.
+ 	TextDomainManager allKnownDomains do: [:domain |
+ 		translation := self translatedInDomain: domain.
+ 		self = translation ifFalse: [^translation]
+ 	].
+ 	^self!
- | translation |
- Transcript show: self printString, ' translatedInAllDomains'; cr.
- TextDomainManager allKnownDomains do: [:domain |
- 	translation := self translatedInDomain: domain.
- 	self = translation ifFalse: [^translation]
- ].
- ^self!

Item was changed:
  ----- Method: MOFile>>translationFor: (in category 'public') -----
  translationFor: aString 
  	| |
  	aString size = 0 ifTrue: [^ '']. "Gettext header"
+ 	^ (self searchByDictionary: aString) ifNil: [aString]
- 	^ (self searchByDictionary: aString) ifNil: [
- "file := (fileName subStrings: '\').
- Transcript show: aString printString, ' not found in ', (file last); cr."
- ^aString]
  !

Item was changed:
  ----- Method: String>>translated (in category '*gettext') -----
  translated
  	"answer the receiver translated to the default language"
  	| translation |
  	translation := self
  		translatedTo: LocaleID current
  		inDomain: (TextDomainManager domainOfMethod: thisContext sender method).
+ 	self == translation ifTrue: [^self translatedInAllDomains].
- 	self = translation ifTrue: [^self translatedInAllDomains].
  	^translation!