[Pkg] The Trunk: Morphic-mt.1694.mcz

[commits at source.squeak.org]

Marcel Taeumel uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-mt.1694.mcz

==================== Summary ====================

Name: Morphic-mt.1694
Author: mt
Time: 8 October 2020, 1:33:30.775799 pm
UUID: 3a8e59fb-2478-664c-93e8-131f20222cf0
Ancestors: Morphic-tonyg.1687, Morphic-ct.1693

Merges and tweaks Morphic-ct.1693.

Note that label positioning now works as implemented in system progress bars: #leftCenter for short labels, #topCenter for labels longer than the bar. Do we want to keep it that way or center always?

=============== Diff against Morphic-tonyg.1687 ===============

Item was changed:
  ----- Method: SystemProgressMorph>>reposition (in category 'private') -----
  reposition
+ 	"Put ourself in the requested position on the display, but ensure completely within the bounds of the display. Compute layout first via #fullBounds to get correct #center."
+ 
+ 	self fullBounds. 
- 	"Put ourself in the requested position on the display, but ensure completely within the bounds of the display"
- 	| position |
  	self bounds:
+ 		((self bounds
+ 			align: self center
+ 			with: (self requestedPosition ifNil: [ self center ]))
+ 				translatedToBeWithin: self currentWorld bounds).
+ 	
+ 	"Check to see if labels are wider than progress bars. In that case do a centered instead of the default left aligned layout."
+ 	self cellPositioning:
+ 		(self layoutExtent x > BarWidth
+ 			ifTrue: [ #topCenter ]
+ 			ifFalse: [ #leftCenter ]).!
- 		((self fullBounds
- 			align: self fullBounds center
- 			with: (self requestedPosition ifNil: [ self fullBounds center ])) translatedToBeWithin: Display boundingBox).
- 	"Check to see if labels are wider than progress bars. In that case do
- 	a centered instead of the default left aligned layout."
- 	position := self width > (Inset x * 2 + (self borderWidth * 2) + BarWidth)
- 		ifTrue: [ #topCenter ]
- 		ifFalse: [ #leftCenter ].
- 	self cellPositioning: position!