[squeak-dev] The Trunk: Morphic-mt.1808.mcz
commits at source.squeak.org
commits at source.squeak.org
Thu Dec 2 16:27:26 UTC 2021
Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1808.mcz
==================== Summary ====================
Name: Morphic-mt.1808
Author: mt
Time: 2 December 2021, 5:27:20.653715 pm
UUID: fe15ea45-d206-5243-8a7f-58a3d2713547
Ancestors: Morphic-mt.1807
Complements ToolBuilder-Morphic-mt.280
=============== Diff against Morphic-mt.1807 ===============
Item was changed:
----- Method: DialogWindow>>updateButtonExtent (in category 'updating') -----
updateButtonExtent
+ self updateButtonExtent: (20 at 10 * RealEstateAgent scaleFactor) rounded.!
- self updateButtonExtent: 20 at 10.!
Item was changed:
----- Method: DialogWindow>>updateButtonExtent: (in category 'updating') -----
updateButtonExtent: margin
"Update all button extents."
(buttonRow submorphs collect: [:ea | ea minimumExtent]) max + margin in: [:preferredExtent |
buttonRow submorphsDo: [:ea | ea extent: preferredExtent]].
"See if horizontal button layout would be more appropriate."
self flag: #magicNumber. "mt: Remove number with computation, maybe choose button font and 20 characters"
+ (buttonRow submorphs collect: [:ea | ea fullBounds width]) sum > (400 * RealEstateAgent scaleFactor)
- (buttonRow submorphs collect: [:ea | ea fullBounds width]) sum > 400
ifTrue: [buttonRow
hResizing: #shrinkWrap;
listDirection: #topToBottom;
wrapDirection: #none;
layoutInset: (buttonRow owner fullBounds width - (buttonRow owner layoutInset left*2) - buttonRow submorphs first fullBounds width // 2 at 0)]
ifFalse: [buttonRow
hResizing: #spaceFill;
listDirection: #leftToRight;
wrapDirection: #topToBottom;
layoutInset: 0].!
More information about the Squeak-dev
mailing list
|