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