David T. Lewis uploaded a new version of EToys to project The Trunk: http://source.squeak.org/trunk/EToys-dtl.337.mcz
==================== Summary ====================
Name: EToys-dtl.337 Author: dtl Time: 2 July 2018, 10:20:52.440426 pm UUID: b77b5ba6-3a55-4797-b009-b6080a8b9ceb Ancestors: EToys-hjh.336
In Squeak circa 2003, GenericPropertiesMorph thingsToRevert is a Dictionary. In Etoys circa 2007 it is an ordered collection of associations to control order of execution in TextPropertiesMorph. Modern Squeak has OrderedDictionary, so use that instead.
Partial fix for issues identified in http://lists.squeakfoundation.org/pipermail/squeak-dev/2018-July/199422.html.
=============== Diff against EToys-hjh.336 ===============
Item was changed: ----- Method: GenericPropertiesMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. ""
self layoutInset: 4. self hResizing: #shrinkWrap. self vResizing: #shrinkWrap. + thingsToRevert := OrderedDictionary new. "to control order of execution" - thingsToRevert := Dictionary new. self useRoundedCorners!
Item was changed: ----- Method: TextPropertiesMorph>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver"
super initialize.
applyToWholeText := false. myTarget ifNil: [myTarget := TextMorph new openInWorld. myTarget contents: ''].
activeTextMorph := myTarget. "Formerly was a copy..."
- thingsToRevert := OrderedCollection new. "to control order of execution" thingsToRevert add: (#wrapFlag: -> myTarget isWrapped); add: (#autoFit: -> myTarget isAutoFit); add: (#setTextStyle: -> myTarget textStyle); add: (#margins: -> myTarget margins); add: (#extent: -> myTarget extent); add: (#textColor: -> myTarget textColor); add: (#restoreText: -> myTarget text deepCopy). self rebuild!