The Trunk: EToys-tfel.216.mcz

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

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

Name: EToys-tfel.216
Author: tfel
Time: 30 August 2016, 5:45:56.624349 pm
UUID: abd6125f-13ab-8849-9ca9-ecbfe7dc6f6d
Ancestors: EToys-tfel.215, EToys-jl.210

merge

=============== Diff against EToys-tfel.215 ===============

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: #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] .
+ ]
+ ]
+ ]
+
+ !
- (self currentWorld allMorphs select: [:m | (m isKindOf: ScriptStatusControl) and:
- [m scriptInstantiation == self]]) do:
- [:aStatusControl | self updateStatusMorph: aStatusControl]!