Marcel Taeumel uploaded a new version of 60Deprecated to project The Trunk:
http://source.squeak.org/trunk/60Deprecated-mt.110.mcz

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

Name: 60Deprecated-mt.110
Author: mt
Time: 20 April 2022, 9:49:33.456938 am
UUID: f0f810d8-bbe9-e548-be26-55cc9d78c933
Ancestors: 60Deprecated-ct.109

Clean up MC code-update issues. Step 1 of 2.

=============== Diff against 60Deprecated-ct.109 ===============

Item was added:
+ ----- Method: TTFileDescription class>>offerNonPortableFonts (in category 'user interaction') -----
+ offerNonPortableFonts
+ 	"Should native fonts be offered when displaying font menus?"
+ 	<preference: 'Offer Native Fonts'
+ 		category: 'Morphic'
+ 		description: 'When true, an additional menu is offered for choosing non-portable fonts'
+ 		type: #Boolean>
+ 	^OfferNonPortableFonts ifNil:[true]!

Item was added:
+ ----- Method: TTFileDescription class>>offerNonPortableFonts: (in category 'user interaction') -----
+ offerNonPortableFonts: aBool
+ 	"Should native fonts be offered when displaying font menus?"
+ 	OfferNonPortableFonts := aBool.!

Item was added:
+ ----- Method: TTFileDescription>>extraGap (in category 'accessing') -----
+ extraGap
+ 	"See commenetary in TTFontDescription"
+ 	
+ 	^ extraGap ifNil: [extraGap := TTFontDescription extraGapFor: self]!

Item was added:
+ ----- Method: TTFileDescription>>extraGap: (in category 'accessing') -----
+ extraGap: anIntegerOrNil
+ 	"Increase or decrease the receivers line gap"
+ 
+ 	extraGap = anIntegerOrNil ifTrue: [^ self].
+ 	extraGap := anIntegerOrNil.
+ 	TTCFont allSubInstancesDo: [:font |
+ 		font ttcDescription == self ifTrue: [font reset "keep glyph cache"]].
+ 	TextStyle allInstancesDo: [:style | style reset].!

Item was added:
+ ----- Method: TTFileDescription>>extraScale (in category 'accessing') -----
+ extraScale
+ 
+ 	^ extraScale ifNil: [extraScale := TTFontDescription extraScaleFor: self]!

Item was added:
+ ----- Method: TTFileDescription>>extraScale: (in category 'accessing') -----
+ extraScale: aFloatOrNil
+ 	"EXPERIMENTAL. See commentary in TTFontDescription"
+ 
+ 	self extraScale = aFloatOrNil ifTrue: [^ self].
+ 	extraScale := aFloatOrNil.
+ 	TTCFont allSubInstancesDo: [:font |
+ 		font ttcDescription == self ifTrue: [font flushCache]].!