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