[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