[etoys-dev] Etoys: Multilingual-kfr.19.mcz

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Multilingual to project Etoys:
http://source.squeak.org/etoys/Multilingual-kfr.19.mcz

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

Name: Multilingual-kfr.19
Author: kfr
Time: 18 May 2011, 9:37:52 pm
UUID: b9901725-9c25-3745-b55e-4ac60cf7901f
Ancestors: Multilingual-kfr.18

Minor bugs about TTCFont fallbackFont
http://tracker.squeakland.org/browse/SQ-878

=============== Diff against Multilingual-kfr.18 ===============

Item was changed:
  ----- Method: TTCFont>>installOn:foregroundColor:backgroundColor: (in category 'friend') -----
  installOn: aDisplayContext foregroundColor: fgColor backgroundColor: bgColor
  	self foregroundColor: fgColor. "install color"
+ 	(self fallbackFont notNil and: [ self fallbackFont class = TTCFontSet ]) ifTrue: [
+ 		self fallbackFont fontArray do: [:font |
+ 			font ifNotNil: [ font foregroundColor: fgColor ]
+ 		]
+ 	].  "install color for fallbackFont"
  	aDisplayContext installTTCFont: self foregroundColor: foregroundColor backgroundColor: bgColor
  !

Item was changed:
  ----- Method: TTCFont>>setupDefaultFallbackTextStyleTo: (in category 'friend') -----
  setupDefaultFallbackTextStyleTo: aTextStyle
  
  	| fonts f |
  	aTextStyle isNil ifTrue: [^self].
  	fonts _ aTextStyle fontArray.
  	f _ fonts first.
  	f familyName = self familyName ifTrue: [^ self].
  	1 to: fonts size do: [:i |
+ 		self height >= (fonts at: i) height ifTrue: [f _ fonts at: i].
- 		self height > (fonts at: i) height ifTrue: [f _ fonts at: i].
  	].
  	self fallbackFont: f.
  	self reset.
  
  !