[squeak-dev] The Trunk: EToys-mt.460.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Jan 20 13:19:52 UTC 2022
Marcel Taeumel uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-mt.460.mcz
==================== Summary ====================
Name: EToys-mt.460
Author: mt
Time: 20 January 2022, 2:19:44.529835 pm
UUID: 90994700-0427-1444-8165-ad2f4a11ca9d
Ancestors: EToys-ct.459
Complements Graphics-mt.464
=============== Diff against EToys-ct.459 ===============
Item was removed:
- ----- Method: StrikeFont class>>defaultFallbackTextStyle (in category '*Etoys-Squeakland-font creation') -----
- defaultFallbackTextStyle
-
- ^ TextConstants at: #DefaultFallbackFont ifAbsent: [TextStyle named: 'Accuny'].
- !
Item was removed:
- ----- Method: StrikeFont class>>setupDefaultFallbackTextStyle (in category '*Etoys-Squeakland-font creation') -----
- setupDefaultFallbackTextStyle
-
- | defaultStyle |
- defaultStyle := self defaultFallbackTextStyle.
-
- (#(Accuat Accujen Accula Accumon Accusf Accushi Accuve Atlanta) collect: [:e | TextStyle named: e]) do: [:style |
- style fontArray do: [:e |
- e reset.
- e setupDefaultFallbackTextStyleTo: defaultStyle.
- ].
- ].
- TTCFont allSubInstances
- do: [:e | e reset.
- e setupDefaultFallbackTextStyleTo: defaultStyle]
-
- !
Item was removed:
- ----- Method: StrikeFont class>>setupDefaultFallbackTextStyleTo: (in category '*Etoys-Squeakland-font creation') -----
- setupDefaultFallbackTextStyleTo: aTextStyle
-
- TextConstants at: #DefaultFallbackFont put: aTextStyle.
- !
Item was removed:
- ----- Method: StrikeFont>>setupDefaultFallbackTextStyleTo: (in category '*Etoys-Squeakland-multibyte character methods') -----
- setupDefaultFallbackTextStyleTo: aTextStyle
-
- | fonts f |
- 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 fallbackFont: f.
- self reset.
-
- !
Item was removed:
- ----- Method: TTCFont>>setupDefaultFallbackTextStyleTo: (in category '*Etoys-Squeakland-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 fallbackFont: f.
- self reset.
-
- !
More information about the Squeak-dev
mailing list
|