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. - ] ]
!
packages@lists.squeakfoundation.org