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