[etoys-dev] Etoys: Sound-kfr.25.mcz

[commits at source.squeak.org]

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

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

Name: Sound-kfr.25
Author: kfr
Time: 7 March 2012, 2:27:12 pm
UUID: 1e1949b7-6fc0-a446-a8a8-97e27f1d7d54
Ancestors: Sound-kfr.24

Fix sampling rate when adding sound to sound library

=============== Diff against Sound-kfr.24 ===============

Item was changed:
  ----- Method: AnonymousSoundMorph>>addToSoundLibrary (in category 'menu') -----
  addToSoundLibrary
  	"Add the receiver's sound to the library, and hand the user a tile representing it."
  
  	| aName tile |
  	aName := FillInTheBlank request: 'kindly give the sound a name: ' translated initialAnswer: (interimName ifNil: ['']).
  	aName isEmptyOrNil ifTrue: [^ self].
  
  	aName := SampledSound unusedSoundNameLike:  aName.
  
  	SampledSound
  			addLibrarySoundNamed: aName
  			samples: sound samples
+ 			samplingRate: sound originalSamplingRate.
- 			samplingRate: sound samplingRate.
  	tile _ SoundTile new literal: aName.
  	tile bounds: tile fullBounds.
  	tile center: self fullBoundsInWorld center.
  	(ScriptingTileHolder around: tile) center:  self fullBoundsInWorld center;
  		openInWorld.
  	
  	self delete!