The Trunk: EToys-dtl.337.mcz

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!