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] !
squeak-dev@lists.squeakfoundation.org