[squeak-dev] The Trunk: EToys-tfel.216.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Aug 30 15:47:23 UTC 2016


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



More information about the Squeak-dev mailing list