Etoys: Morphic-bf.91.mcz

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 mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev