[squeak-dev] The Trunk: 60Deprecated-mt.110.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Apr 20 07:50:40 UTC 2022
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]].!
More information about the Squeak-dev
mailing list
|