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

[commits at source.squeak.org]

Karl Ramberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-kfr.126.mcz

==================== 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
SQ-1041

=============== 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])
  			ifTrue:
  				[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]].
  
  	whetherToReport
  		ifTrue:
  			[self inform: ('{1} [or more] repair(s) made' translated format: {fixes printString})]
  		ifFalse:
  			[fixes > 0 ifTrue: [Transcript cr; show: fixes printString, ' repairs made to existing content.']]
  	
  "
  ActiveWorld attemptCleanupReporting: true.
  ActiveWorld attemptCleanupReporting: false.
  "!