Marcel Taeumel uploaded a new version of Morphic to project The Trunk: http://source.squeak.org/trunk/Morphic-mt.1613.mcz
==================== Summary ====================
Name: Morphic-mt.1613 Author: mt Time: 6 January 2020, 9:41:04.49243 am UUID: 45d4b3c8-b251-2544-9e7e-411c30c1c217 Ancestors: Morphic-mt.1612
Fixes the updating bug in string morph. Clarifies some related code, too.
Thanks to Stéphane (spfa), Karl (kfr), and Dave (dtl) for the hints and suggestions!
=============== Diff against Morphic-mt.1612 ===============
Item was changed: ----- Method: StringMorph>>contents: (in category 'accessing') ----- contents: newContents
newContents isText ifTrue: [^ self initializeFromText: newContents].
contents = newContents + ifTrue: [^ self "No substantive change."]. - ifTrue: [^ self "no substantive change"].
contents := newContents. + self changed. "New contents need to be drawn." + + self fitContents. "Resize if necessary."! - - self fitContents.!
Item was changed: ----- Method: StringMorph>>fitContents (in category 'layout') ----- fitContents
+ self extent: self measureContents.! - | 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') ----- fitContents + "Overridden to respect minimum and maximum widfth." + - | newExtent | + newExtent := self measureContents. + self extent: ((newExtent x max: self minimumWidth) min: self maximumWidth) @ newExtent y.! - newExtent := self measureContents. - newExtent := ((newExtent x max: self minimumWidth) min: self maximumWidth) @ newExtent y. - (self extent = newExtent) ifFalse: - [self extent: newExtent. - self changed] - !
Item was changed: ----- Method: UpdatingStringMorph>>updateContentsFrom: (in category 'stepping') ----- updateContentsFrom: aValue self growable ifTrue: + [self contentsFitted: aValue] - [self contents: aValue] ifFalse: [self contentsClipped: aValue]!