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].!