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