Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.295.mcz

==================== Summary ====================

Name: ToolBuilder-Morphic-mt.295
Author: mt
Time: 8 February 2022, 1:36:16.764027 pm
UUID: d4bb2715-35c7-4e46-92b6-777f1343f459
Ancestors: ToolBuilder-Morphic-mt.294

Complements ToolBuilder-Kernel-mt.152

=============== Diff against ToolBuilder-Morphic-mt.294 ===============

Item was added:
+ ----- Method: MorphicToolBuilder>>buttonRowHeight (in category 'layout hints') -----
+ buttonRowHeight
+ 	
+ 	| defaultMargins |
+ 	defaultMargins := PluggableButtonMorph new layoutInset.
+ 	defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins |
+ 		margins isRectangle
+ 			ifTrue: [margins top + margins bottom]
+ 			ifFalse: [margins isPoint
+ 				ifTrue: [margins y + margins y]
+ 				ifFalse: [margins + margins]]].
+ 	
+ 	^ (Preferences standardButtonFont height asFloat * 2) truncated "already includes the system's current #scaleFactor"
+ 		+ defaultMargins "already includes the system's current #scaleFactor"
+ 		+ ((((UserInterfaceTheme current get: #borderWidth for: #PluggableButtonMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)!

Item was added:
+ ----- Method: MorphicToolBuilder>>dialogPadding (in category 'layout hints') -----
+ dialogPadding
+ 
+ 	^ ProportionalSplitterMorph gripThickness "already scaled"!

Item was added:
+ ----- Method: MorphicToolBuilder>>dialogSpacing (in category 'layout hints') -----
+ dialogSpacing
+ 
+ 	^ ProportionalSplitterMorph gripThickness "already scaled"!

Item was added:
+ ----- Method: MorphicToolBuilder>>inputFieldHeightFor: (in category 'layout hints') -----
+ inputFieldHeightFor: numLines
+ 
+ 	| defaultMargins |
+ 	defaultMargins := TextMorph new margins.
+ 	defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins |
+ 		margins isRectangle
+ 			ifTrue: [margins top + margins bottom]
+ 			ifFalse: [margins isPoint
+ 				ifTrue: [margins y + margins y]
+ 				ifFalse: [margins + margins]]].
+ 
+ 	^ (TextStyle defaultFont lineGrid * numLines) "already includes the system's current #scaleFactor"
+ 		+ defaultMargins "already includes the system's current #scaleFactor"
+ 		+ ((((UserInterfaceTheme current get: #borderWidth for: #PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)!

Item was added:
+ ----- Method: MorphicToolBuilder>>listHeightFor: (in category 'layout hints') -----
+ listHeightFor: numLines
+ 
+ 	| defaultMargins |
+ 	defaultMargins := LazyListMorph new layoutInset.
+ 	defaultMargins := defaultMargins ifNil: [0] ifNotNil: [:margins |
+ 		margins isRectangle
+ 			ifTrue: [margins top + margins bottom]
+ 			ifFalse: [margins isPoint
+ 				ifTrue: [margins y + margins y]
+ 				ifFalse: [margins + margins]]].
+ 
+ 	^ (Preferences standardListFont lineGridForMorphs * numLines) "already includes the system's current #scaleFactor"
+ 		+ defaultMargins "already includes the system's current #scaleFactor"
+ 		+ ((((UserInterfaceTheme current get: #borderWidth for: #PluggableListMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2)!

Item was added:
+ ----- Method: MorphicToolBuilder>>windowPadding (in category 'layout hints') -----
+ windowPadding
+ 
+ 	^ ProportionalSplitterMorph gripThickness "already scaled"!

Item was added:
+ ----- Method: MorphicToolBuilder>>windowSpacing (in category 'layout hints') -----
+ windowSpacing
+ 
+ 	^ ProportionalSplitterMorph gripThickness "already scaled"!