Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1629.mcz
==================== Summary ====================
Name: Morphic-mt.1629 Author: mt Time: 25 February 2020, 10:55:43.167652 am UUID: 0f5dc08d-6d29-5349-b800-9c5cfca860f1 Ancestors: Morphic-mt.1628
Fixes a minor regression with the window title font after UI theme changes.
Note that one could have swapped #setDefaultParamters and #replaceBoxes in #applyUserInterfaceTheme (as suggested by ct), BUT #replaceBoxes reads more specific than #setDefaultParameters, so I put it first. Also, the order of those calls should not make a difference.
=============== Diff against Morphic-mt.1628 ===============
Item was changed: ----- Method: SystemWindow>>initializeLabelArea (in category 'initialization') ----- initializeLabelArea "Initialize the label area (titlebar) for the window." labelString ifNil: [labelString := 'Untitled Window']. + label := StringMorph new + contents: labelString; + font: (self userInterfaceTheme titleFont ifNil: [TextStyle defaultFont]); + yourself. - label := StringMorph new contents: labelString. "Add collapse box so #labelHeight will work" collapseBox := self createCollapseBox. stripes := Array with: (RectangleMorph newBounds: bounds) with: (RectangleMorph newBounds: bounds). "see extent:" self addLabelArea. self setLabelWidgetAllowance. self addCloseBox. self class moveMenuButtonRight ifTrue: [self addLabel. self addMenuControl] ifFalse: [self addMenuControl. self addLabel]. self addExpandBox. labelArea addMorphBack: collapseBox. self setFramesForLabelArea. Preferences noviceMode ifTrue: [closeBox ifNotNil: [closeBox setBalloonText: 'close window']. menuBox ifNotNil: [menuBox setBalloonText: 'window menu']. collapseBox ifNotNil: [collapseBox setBalloonText: 'collapse/expand window']]. !
packages@lists.squeakfoundation.org