[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