[etoys-dev] Etoys: Morphic-bf.91.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Morphic to project Etoys:
http://source.squeak.org/etoys/Morphic-bf.91.mcz

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

Name: Morphic-bf.91
Author: bf
Time: 2 June 2012, 6:15:34 pm
UUID: 17ecb610-223c-492e-a7f2-6197b0002571
Ancestors: Morphic-kfr.90

Do not store a scriptor's step button and highlights in projects.

Change Set:		scriptorCompat-sw
Date:			1 June 2012
Author:			Scott Wallace

Make .pr files more likely to be usable in earlier versions of etoys, by neutralizing elements that relate to the single-step feature (which was added in etoys 5.0,) in the save-files.

=============== Diff against Morphic-kfr.90 ===============

Item was changed:
  ----- Method: PasteUpMorph>>prepareToBeSaved (in category 'misc') -----
  prepareToBeSaved
  	"Prepare for export via the ReferenceStream mechanism"
  
+ 	| exportDict soundKeyList players stepButton |
- 	| exportDict soundKeyList players |
  	super prepareToBeSaved.
  	self deleteListeners.
  	turtlePen _ nil.
  	self isWorldMorph
  		ifTrue:
  			[self removeProperty: #scriptsToResume.
  			soundKeyList _ Set new.
  			(players _ self presenter reallyAllExtantPlayers)
  				do: [:aPlayer | aPlayer slotInfo
  						associationsDo: [:assoc | assoc value type == #Sound
  								ifTrue: [soundKeyList
  										add: (aPlayer instVarNamed: assoc key)]]].
  			players
  				do: [:p | p allScriptEditors
+ 						do: [:e |
+ 							e deleteEtoysDebugger.
+ 							stepButton := e submorphs first submorphs detect:
+ 									[:m | (m isKindOf: ThreePhaseButtonMorph) and: [m actionSelector = #tryMe]]
+ 								ifNone: [nil].
+ 							stepButton ifNotNil: [stepButton delete].
+ 							(e allMorphs
- 						do: [:e | (e allMorphs
  								select: [:m | m isKindOf: SoundTile])
  								do: [:aTile | soundKeyList add: aTile literal]]].
  					"I could of course decompile texutally coded scripts and find out the sounds used there...."
  			(self allMorphs
  				select: [:m | m isKindOf: SoundTile])
  				do: [:aTile | soundKeyList add: aTile literal].
  			soundKeyList removeAllFoundIn: SampledSound universalSoundKeys.
  			soundKeyList
  				removeAllSuchThat: [:aKey | (SampledSound soundLibrary includesKey: aKey) not].
  			soundKeyList isEmpty
  				ifFalse: [exportDict _ Dictionary new.
  					soundKeyList
  						do: [:aKey | exportDict
  								add: (SampledSound soundLibrary associationAt: aKey)].
+ 					self setProperty: #soundAdditions toValue: exportDict].
+ 		(submorphs select: [:m | m isKindOf: HighlightMorph]) do:
+ 			[:m | m delete]]!
- 					self setProperty: #soundAdditions toValue: exportDict]]!