Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1900.mcz
==================== Summary ====================
Name: Morphic-mt.1900 Author: mt Time: 16 February 2022, 5:08:45.790238 pm UUID: 3be7afd2-a52e-8c48-9625-c7f69da116b5 Ancestors: Morphic-tonyg.1899
I forgot to scale the margins in text fields and lists after scale changes. Still not perfect because of rounding errors. In this case, it is a #truncated vs. #rounded thing. In this case, we use #truncated in, for example, #textMargins because we do not want to use 2px-widths for 150% or 175% scaling.
=============== Diff against Morphic-tonyg.1899 ===============
Item was added: + ----- Method: PluggableListMorph>>displayScaleChangedBy: (in category 'display scale') ----- + displayScaleChangedBy: factor + + | currentMargins | + super displayScaleChangedBy: factor. + (currentMargins := self listMorph cellInset) isRectangle + ifTrue: [self listMorph cellInset: ((currentMargins origin * factor) rounded corner: (currentMargins corner * factor) rounded)] + ifFalse: [self listMorph cellInset: (currentMargins * factor) rounded].!
Item was added: + ----- Method: PluggableTextMorph>>displayScaleChangedBy: (in category 'display scale') ----- + displayScaleChangedBy: factor + + | currentMargins | + super displayScaleChangedBy: factor. + (currentMargins := self textMorph margins) isRectangle + ifTrue: [self textMorph margins: ((currentMargins origin * factor) rounded corner: (currentMargins corner * factor) rounded)] + ifFalse: [self textMorph margins: (currentMargins * factor) rounded].!