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!