Etoys: Multilingual-kfr.19.mcz

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.
 
  !

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev