[etoys-dev] Etoys: Etoys-kfr.126.mcz

commits at source.squeak.org commits at source.squeak.org
Wed Mar 14 15:51:49 EDT 2012

Karl Ramberg uploaded a new version of Etoys to project Etoys:

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

Name: Etoys-kfr.126
Author: kfr
Time: 14 March 2012, 8:51:06 pm
UUID: 1b8a8a9d-cc94-45c7-ba0c-50d62a339e17
Ancestors: Etoys-kfr.125

Try avoiding walkbacks when fixing projects

=============== Diff against Etoys-kfr.125 ===============

Item was changed:
  ----- Method: PasteUpMorph>>attemptCleanupReporting: (in category '*Etoys-world menu') -----
  attemptCleanupReporting: whetherToReport
  	"Try to fix up some bad things that are known to occur in some etoy projects we've seen. If the whetherToReport parameter is true, an informer is presented after the cleanups"
  	| fixes faultyStatusControls |
  	fixes _ 0.
  	ActiveWorld ifNotNil:
  		[(ActiveWorld submorphs select:
  			[:m | (m isKindOf: ScriptEditorMorph) and: [m submorphs isEmpty]]) do:
  				[:m | m delete.  fixes _ fixes + 1]].
  	TransformationMorph allSubInstancesDo:
  		[:m | (m player notNil and: [m renderedMorph ~~ m])
  				[m renderedMorph visible ifFalse:
  					[m renderedMorph visible: true.  fixes _ fixes + 1]]].
+ 	(Player class allSubInstances select: [:cl | cl isUniClass and: [cl instanceCount > 0]]) do:
- 	(Player class allSubInstances select: [:cl | cl isUniClass]) do:
  		[:aUniclass |
  			fixes _ fixes + aUniclass cleanseScripts].
  	self presenter flushPlayerListCache; allExtantPlayers.
  	faultyStatusControls := ScriptStatusControl allInstances select: [:m |m  fixUpScriptInstantiation].
  	fixes := fixes + faultyStatusControls size.
  	ScriptNameTile allInstancesDo: 
  		[:aTile | aTile submorphs isEmpty ifTrue: 
  			[aTile setLiteral: aTile literal.
  			fixes := fixes + 1]].
  			[self inform: ('{1} [or more] repair(s) made' translated format: {fixes printString})]
  			[fixes > 0 ifTrue: [Transcript cr; show: fixes printString, ' repairs made to existing content.']]
  ActiveWorld attemptCleanupReporting: true.
  ActiveWorld attemptCleanupReporting: false.

More information about the etoys-dev mailing list