[Pkg] The Trunk: Morphic-ar.305.mcz

commits at source.squeak.org commits at source.squeak.org
Tue Jan 12 04:07:17 UTC 2010

Andreas Raab uploaded a new version of Morphic to project The Trunk:

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

Name: Morphic-ar.305
Author: ar
Time: 11 January 2010, 8:05:58.998 pm
UUID: 84c8e065-50b4-f94d-b056-90263e496c28
Ancestors: Morphic-ul.304

- Promote isScriptEditorMorph to Object.
- Fix typo in prepareToBeSaved.

=============== Diff against Morphic-ul.304 ===============

Item was changed:
  ----- Method: PasteUpMorph>>prepareToBeSaved (in category 'misc') -----
  	"Prepare for export via the ReferenceStream mechanism"
  	| exportDict soundKeyList players |
  	super prepareToBeSaved.
  	turtlePen := nil.
  	self isWorldMorph
  			[self removeProperty: #scriptsToResume.
  			soundKeyList := Set new.
  			(players := self presenter allExtantPlayers)
  				do: [:aPlayer | aPlayer slotInfo
  						associationsDo: [:assoc | assoc value type == #Sound
  								ifTrue: [soundKeyList
  										add: (aPlayer instVarNamed: assoc key)]]].
  				do: [:p | p allScriptEditors
  						do: [:e | (e allMorphs
  								select: [:m | m isSoundTile])
  								do: [:aTile | soundKeyList add: aTile literal]]].
  			(self allMorphs
  				select: [:m | m isSoundTile])
- 				isTileMorph
  				do: [:aTile | soundKeyList add: aTile literal].
  			soundKeyList removeAllFoundIn: SampledSound universalSoundKeys.
  				removeAllSuchThat: [:aKey | (SampledSound soundLibrary includesKey: aKey) not].
  			soundKeyList isEmpty
  				ifFalse: [exportDict := Dictionary new.
  						do: [:aKey | exportDict
  								add: (SampledSound soundLibrary associationAt: aKey)].
  					self setProperty: #soundAdditions toValue: exportDict]]!

Item was removed:
- ----- Method: Morph>>isScriptEditorMorph (in category 'classification') -----
- isScriptEditorMorph
- 	^false!

More information about the Packages mailing list