[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.299.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Feb 9 17:02:24 UTC 2022
Marcel Taeumel uploaded a new version of ToolBuilder-Morphic to project The Trunk:
http://source.squeak.org/trunk/ToolBuilder-Morphic-mt.299.mcz
==================== Summary ====================
Name: ToolBuilder-Morphic-mt.299
Author: mt
Time: 9 February 2022, 6:02:23.491774 pm
UUID: 8c52a1dc-35aa-fc4d-a402-3ea56954dbcd
Ancestors: ToolBuilder-Morphic-mt.298
Slightly recompute the standard button height by using the button-fonts #lineGrid and a different factor. Now the buttons are again a little bit smaller again, like they where originally. But not quite. :-)
=============== Diff against ToolBuilder-Morphic-mt.298 ===============
Item was changed:
----- 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 lineGrid asFloat * 1.6) truncated "already includes the system's current #scaleFactor"
- ^ (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)!
More information about the Squeak-dev
mailing list
|