The Trunk: Morphic-pre.1476.mcz

Patrick Rein uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-pre.1476.mcz

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

Name: Morphic-pre.1476
Author: pre
Time: 24 January 2019, 5:06:02.544474 pm
UUID: dec0ceb0-45f0-614e-829c-3e940506657a
Ancestors: Morphic-mt.1475

Recategorizes the fitContents method consistently throughout Morphic

=============== Diff against Morphic-mt.1475 ===============

Item was changed:
+ ----- Method: IndentingListItemMorph>>fitContents (in category 'layout') -----
- ----- Method: IndentingListItemMorph>>fitContents (in category 'accessing') -----
  fitContents
 
  super fitContents.
  self width: container preferredSubmorphWidth.!

Item was changed:
+ ----- Method: SimpleButtonMorph>>fitContents (in category 'layout') -----
- ----- Method: SimpleButtonMorph>>fitContents (in category 'accessing') -----
  fitContents
  | aMorph aCenter |
  aCenter := self center.
  self hasSubmorphs ifFalse: [^self].
  aMorph := self firstSubmorph.
  self extent: aMorph extent + (self borderWidth + 6).
  self center: aCenter.
  aMorph position: aCenter - (aMorph extent // 2)!

Item was changed:
+ ----- Method: StringMorph>>fitContents (in category 'layout') -----
- ----- Method: StringMorph>>fitContents (in category 'accessing') -----
  fitContents
 
  | newBounds boundsChanged |
  newBounds := self measureContents.
  boundsChanged := bounds extent ~= newBounds.
  self extent: newBounds. "default short-circuits if bounds not changed"
  boundsChanged ifFalse: [self changed]!

Item was changed:
+ ----- Method: UpdatingStringMorph>>fitContents (in category 'layout') -----
- ----- Method: UpdatingStringMorph>>fitContents (in category 'accessing') -----
  fitContents
 
  | newExtent |
  newExtent := self measureContents.
  newExtent := ((newExtent x max: self minimumWidth) min: self maximumWidth) @ newExtent y.
  (self extent = newExtent) ifFalse:
  [self extent: newExtent.
  self changed]
  !