Etoys: Sound-kfr.25.mcz

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!

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev