Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk: http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.347.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.347 Author: mt Time: 31 August 2023, 10:57:02.932282 am UUID: d3fcbb4b-d3e0-2740-bdc9-f8b1b81b08a1 Ancestors: ToolBuilder-Morphic-mt.346
Use #px for magic (pixel-based) numbers. Complements Graphics-mt.544
=============== Diff against ToolBuilder-Morphic-mt.346 ===============
Item was changed: ----- Method: MorphicToolBuilder>>buttonRowHeight (in category 'layout hints') ----- buttonRowHeight | multiplier | ButtonMargins ifNil: [ ButtonMargins := (PluggableButtonMorph labelMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]]) ].
multiplier := MorphicProject useCompactButtons ifTrue: [1.0] ifFalse: [1.6]. + ButtonBorderWidth ifNil: [ButtonBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - ButtonBorderWidth ifNil: [ButtonBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2]. ^ (Preferences standardButtonFont lineGrid asFloat * multiplier) truncated "already includes the system's current #scaleFactor" + ButtonMargins "already includes the system's current #scaleFactor" + ButtonBorderWidth!
Item was changed: ----- Method: MorphicToolBuilder>>listHeightFor: (in category 'layout hints') ----- listHeightFor: numLines
ListMargins ifNil: [ ListMargins := PluggableListMorph listMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]] ].
+ ListBorderWidth ifNil: [ListBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - ListBorderWidth ifNil: [ListBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2].
^ (Preferences standardListFont lineGridForMorphs * numLines) "already includes the system's current #scaleFactor" + ListMargins "already includes the system's current #scaleFactor" + ListBorderWidth!
Item was changed: ----- Method: MorphicToolBuilder>>textFieldHeightFor:font: (in category 'layout hints') ----- textFieldHeightFor: numLines font: font
TextMargins ifNil: [ TextMargins := PluggableTextMorph textMargins ifNil: [0] ifNotNil: [:margins | margins isRectangle ifTrue: [margins top + margins bottom] ifFalse: [margins isPoint ifTrue: [margins y + margins y] ifFalse: [margins + margins]]] ].
+ TextBorderWidth ifNil: [TextBorderWidth := ((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) px * 2]. - TextBorderWidth ifNil: [TextBorderWidth := (((UserInterfaceTheme current get: #borderWidth for: PluggableTextMorph) ifNil: [1]) * RealEstateAgent scaleFactor) truncated * 2].
^ (font lineGrid * numLines) "already includes the system's current #scaleFactor" + TextMargins "already includes the system's current #scaleFactor" + TextBorderWidth!