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.
- 		]
  	]
  
  !