[squeak-dev] The Trunk: Morphic-mt.1900.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Feb 16 16:08:51 UTC 2022


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



More information about the Squeak-dev mailing list