[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
|