[squeak-dev] The Trunk: Morphic-mt.1939.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Mar 15 09:26:58 UTC 2022
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1939.mcz
==================== Summary ====================
Name: Morphic-mt.1939
Author: mt
Time: 15 March 2022, 10:26:52.524283 am
UUID: b3cc8063-94a7-b24a-9d62-f16fcadd64e5
Ancestors: Morphic-mt.1938
Adds a simple interface to the FontImporterTool to use any specific font as a fallback font.
=============== Diff against Morphic-mt.1938 ===============
Item was changed:
----- Method: FontImporterTool>>applyFont (in category 'actions') -----
applyFont
| fontSymbols fontLabels choice |
fontSymbols := self fontSymbolsToUse.
fontLabels := fontSymbols collect: [:ea | (ea findFeatures joinSeparatedBy: ' ') capitalized].
+ fontSymbols := #(all allScaled), fontSymbols, #(fallback).
+ fontLabels := #('All fonts' 'All fonts (only font family)'), fontLabels, #('Fallback font').
- fontSymbols := #(all allScaled), fontSymbols.
- fontLabels := #('All fonts' 'All fonts (only font family)'), fontLabels.
choice := Project uiManager chooseFrom: fontLabels values: fontSymbols title: 'Apply font as...' translated.
choice ifNil: [^ self].
choice caseOf: {
[#all] -> [self applyFontToAll].
+ [#allScaled] -> [self applyFontToAllScaled].
+ [#fallback] -> [self applyFontToFallback].
- [#allScaled] -> [self applyFontToAllScaled]
} otherwise: [self applyFontTo: choice].!
Item was added:
+ ----- Method: FontImporterTool>>applyFontToFallback (in category 'actions') -----
+ applyFontToFallback
+
+ self currentSelection isInstalled ifFalse: [self installFont].
+
+ Cursor wait showWhile: [
+ TextStyle setDefaultFallback: self selectedFont textStyleOrNil.
+ TextStyle installDefaultFallbackTextStyle].!
More information about the Squeak-dev
mailing list
|