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

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

Name: EToys-tfel.249
Author: tfel
Time: 23 September 2016, 3:26:09.056418 pm
UUID: 844e5444-0afb-144b-a622-dcb33fbf8597
Ancestors: EToys-tfel.248

fix the defensive code for updating status morphs in scripts

=============== Diff against EToys-tfel.248 ===============

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: #updateStatusMorph) ifTrue: [^ self].
+ 	w setProperty: #updateStatusMorph toValue: true.
+ 	Project current addDeferredUIMessage: [
+ 		(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.
- 	
- 	(w hasProperty: #foo) ifFalse: [	
- 		w setProperty: #updateStatusMorph toValue: true.
- 		Project current addDeferredUIMessage: [
- 			(w hasProperty: #foo) ifTrue: [
- 				w removeProperty: #updateStatusMorph.
- 				(w allMorphs select: [:m | (m isKindOf: ScriptStatusControl) and:
- 					[m scriptInstantiation == self]]) do:
- 					[:aStatusControl | self updateStatusMorph: aStatusControl]		.		
- 			]
  		]
  	]
  
  !