[squeak-dev] The Trunk: ToolBuilder-Morphic-mt.295.mcz
commits at source.squeak.org
commits at source.squeak.org
Tue Feb 8 12:36:16 UTC 2022
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"!
More information about the Squeak-dev
mailing list
|