[squeak-dev] The Trunk: Morphic-mt.1919.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 2 10:56:21 UTC 2022


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

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

Name: Morphic-mt.1919
Author: mt
Time: 2 March 2022, 11:56:06.384065 am
UUID: 63b6162c-ca23-ff42-b69b-a005bc2e386c
Ancestors: Morphic-mt.1918

Complements System-mt.1317

=============== Diff against Morphic-mt.1918 ===============

Item was changed:
  ----- Method: FontImporterTool>>applyFontToAll (in category 'actions') -----
  applyFontToAll
  
+ 	| fontSymbolsToApply |
- 	| fontSymbolsToApply fontToUse scaleFactorDelta |
  	(Project uiManager
  		confirm: 'Do you really want to overwrite individual\point sizes and emphases such as in\buttons and window titles?' translated withCRs
  		title: 'Apply Font to Everything' translated)
  			ifFalse: [^ self].
  
  	self currentSelection isInstalled ifFalse: [self installFont].
  
  	fontSymbolsToApply := self selectedFont hasFixedWidth
  		ifTrue: [self fontSymbolsToUse]
  		ifFalse: [
  			self inform: 'This font is not monospaced. It will\not replace the current one.' translated withCRs.
  			self fontSymbolsToUse copyWithout: #standardFixedFont].
- 
- 	fontToUse := self selectedFont.
- 	scaleFactorDelta := 0.
- 	self selectedFont pointSize ~= TTCFont referencePointSize ifTrue: [
- 		scaleFactorDelta := ((fontToUse pointSize asFloat / TTCFont referencePointSize) roundTo: 0.25) - 1.0.
- 		fontToUse := fontToUse asPointSize: TTCFont referencePointSize].
  			
  	Cursor wait showWhile: [
  		UserInterfaceTheme makeAllTTCBased.
  		UserInterfaceTheme current applyAfter: [
  			fontSymbolsToApply do: [:fontSymbol |
+ 				UserInterfaceTheme setFont: fontSymbol to: self selectedFont] ]].!
- 				UserInterfaceTheme setFont: fontSymbol to: fontToUse] ]].
- 	
- 	scaleFactorDelta ~= 0 ifTrue: [
- 		Display uiScaleFactor: Display uiScaleFactor + scaleFactorDelta.
- 		self flag: #todo. "mt: Inform the user? See UserInterfaceTheme class >> #setFont:to:"].!



More information about the Squeak-dev mailing list