[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