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

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

Name: Morphic-mt.1908
Author: mt
Time: 25 February 2022, 10:20:44.98063 am
UUID: 456e2759-82fb-bc45-9568-55811f72a5bf
Ancestors: Morphic-ct.1907

Fixes a bug related to StringMorph updating in, for example, tree widgets. We could not remove emphasis in such an update (e.g., underlined -> normal).

Also improves the support of not-yet-installed fonts in the FontChooserTool.

=============== Diff against Morphic-ct.1907 ===============

Item was changed:
  ----- Method: FontChooserTool>>fontList (in category 'font list') -----
  fontList
  	"List of available font family names. Avoid StrikeFonts if PPI is not 96.0."
  	
  	fontList ifNotNil: [^ fontList].
  		
  	fontList := TextStyle knownTextStylesWithoutDefault.
  	self getFontFromRequestor ifNotNil: [:font |
  		(fontList includes: font familyName) ifFalse: [
  			fontList := (fontList, {font familyName}) sorted]].
  	TextStyle pixelsPerInch = 96.0 ifFalse: [
+ 		fontList := fontList select: [:styleName | 
+ 			(TextStyle named: styleName) ifNil: [true "not yet installed"] ifNotNil: [:style | style isTTCStyle] ]].
- 		fontList := fontList select: [:styleName | (TextStyle named: styleName) isTTCStyle]].
  	^ fontList!

Item was changed:
  ----- Method: StringMorphAttributeScanner>>initializeFromStringMorph: (in category 'string morph') -----
  initializeFromStringMorph: aStringMorph
  
  	actualFont := aStringMorph font ifNil: [ TextStyle defaultFont ].
+ 	emphasis := 0. "We must start with no emphasis."
+ 	fontNumber := (actualFont textStyleOrNil
+ 		ifNil: [1]
+ 		ifNotNil: [:style | style fontIndexOfPointSize: actualFont pointSize]).
- 	emphasis := actualFont emphasis.
- 	fontNumber := (actualFont textStyle ifNotNil: [:style | style fontIndexOf: actualFont]) ifNil: [ 1 ].
  	textColor := aStringMorph color.
  !