[squeak-dev] The Trunk: Tools-mt.1125.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Feb 5 15:09:41 UTC 2022


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

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

Name: Tools-mt.1125
Author: mt
Time: 5 February 2022, 4:09:38.458491 pm
UUID: 794dedb9-57af-e24e-806e-5d962a2e4a65
Ancestors: Tools-mt.1124

Complements System-mt.1302

=============== Diff against Tools-mt.1124 ===============

Item was added:
+ ----- Method: TextStyle>>chooseExtraGap (in category '*Tools-Browsing') -----
+ chooseExtraGap
+ 	"
+ 	TextStyle defaultFixed chooseExtraGap.
+ 	"
+ 	| sampleFont answer |
+ 	self isTTCStyle ifFalse: [^ self].
+ 	sampleFont := self defaultFont.
+ 
+ 	answer := Project uiManager
+ 		request: ('Change extra leading for font\{1}.\Reset to default via non-number.' translated withCRs asText format: {self defaultFamilyName asText allBold})
+ 		initialAnswer: sampleFont ttcDescription extraGap asString.
+ 	(answer isNil or: [answer isEmpty]) ifTrue: [^ self].
+ 	answer := [answer asNumber] on: NumberParserError do: [nil].
+ 
+ 	sampleFont ttcDescription extraGap: answer.
+ 	sampleFont derivativeFonts do: [:font |
+ 		font ttcDescription extraGap: answer].
+ 	UserInterfaceTheme current basicApply.!

Item was added:
+ ----- Method: TextStyle>>chooseExtraScale (in category '*Tools-Browsing') -----
+ chooseExtraScale
+ 	"
+ 	TextStyle defaultFixed chooseExtraScale.
+ 	"
+ 	| sampleFont answer |
+ 	self isTTCStyle ifFalse: [^ self].
+ 	sampleFont := self defaultFont.
+ 	
+ 	answer := Project uiManager
+ 		request: ('Change extra scale for glyphs of font\{1}.\Reset to default via non-number.' translated withCRs asText format: {self defaultFamilyName asText allBold})
+ 		initialAnswer: sampleFont ttcDescription extraScale asString.
+ 	(answer isNil or: [answer isEmpty]) ifTrue: [^ self].
+ 	answer := [answer asNumber] on: NumberParserError do: [nil].
+ 
+ 	sampleFont ttcDescription extraScale: answer.
+ 	sampleFont derivativeFonts do: [:font |
+ 		font ttcDescription extraScale: answer].
+ 	UserInterfaceTheme current basicApply.!



More information about the Squeak-dev mailing list