The Trunk: EToys-tfel.250.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.250.mcz

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

Name: EToys-tfel.250
Author: tfel
Time: 23 September 2016, 3:44:00.135418 pm
UUID: e1800a62-97df-e84d-8053-4c42e5199bf3
Ancestors: EToys-tfel.249

since different script instantiation may need to update their statuses, don't use just one global flag, instead have a flag for each instantiation

=============== Diff against EToys-tfel.249 ===============

Item was changed:
  ----- Method: ScriptInstantiation>>updateAllStatusMorphs (in category 'status control') -----
  updateAllStatusMorphs
  "Update all status morphs bound to the receiver.  Done with a sledge-hammer at present."
 
  | w |
  w := self currentWorld.
+ (w hasProperty: self) ifTrue: [^ self].
+ w setProperty: self toValue: #updating.
- (w hasProperty: #updateStatusMorph) ifTrue: [^ self].
- w setProperty: #updateStatusMorph toValue: true.
  Project current addDeferredUIMessage: [
+ (w allMorphs select: [:m | (m isKindOf: ScriptStatusControl) and:
+ [m scriptInstantiation == self]]) do:
+ [:aStatusControl | self updateStatusMorph: aStatusControl].
+ w removeProperty: self.
- (w valueOfProperty: #updateStatusMorph ifAbsent: [false]) ifTrue: [
- (w allMorphs select: [:m | (m isKindOf: ScriptStatusControl) and:
- [m scriptInstantiation == self]]) do:
- [:aStatusControl | self updateStatusMorph: aStatusControl].
- w removeProperty: #updateStatusMorph.
- ]
  ]
 
  !