Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1897.mcz
==================== Summary ====================
Name: Morphic-mt.1897 Author: mt Time: 14 February 2022, 11:46:04.197768 am UUID: ebf6f066-d0d2-5944-9eae-b6ffbc0ac042 Ancestors: Morphic-mt.1896
Fixes right margins in text fields. Especially noticable in multi-line text fields that make heavy use of wrapping (and thus the vertical scroll bar).
=============== Diff against Morphic-mt.1896 ===============
Item was changed: ----- Method: PluggableTextMorph class>>textMargins (in category 'defaults') ----- textMargins
+ | horizontal vertical | - | left other | MorphicProject useCompactTextFields ifTrue: [ + horizontal := (3 * RealEstateAgent scaleFactor) truncated. + vertical := 0] - left := (3 * RealEstateAgent scaleFactor) truncated. - other := 0] ifFalse: [ + horizontal := vertical := (UserInterfaceTheme current get: #keyboardFocusWidth for: Morph) ifNil: [2]. + vertical := (vertical * RealEstateAgent scaleFactor) truncated. + horizontal >= 3 + ifTrue: [horizontal := vertical * 2] + ifFalse: [horizontal := (3 * RealEstateAgent scaleFactor) truncated] ]. + ^ horizontal @ vertical corner: horizontal@ vertical! - left := other := (UserInterfaceTheme current get: #keyboardFocusWidth for: Morph) ifNil: [2]. - other := (other * RealEstateAgent scaleFactor) truncated. - left >= 3 - ifTrue: [left := other * 2] - ifFalse: [left := (3 * RealEstateAgent scaleFactor) truncated] ]. - ^ left @ other corner: other@ other!
packages@lists.squeakfoundation.org