Karl Ramberg uploaded a new version of Sound to project Etoys: http://source.squeak.org/etoys/Sound-kfr.13.mcz
==================== Summary ====================
Name: Sound-kfr.13 Author: kfr Time: 16 July 2011, 11:52:51 pm UUID: f7d65df2-8278-6c43-8c68-41dc66b215ae Ancestors: Sound-kfr.12
Adds FMSound's to Etoys
=============== Diff against Sound-kfr.12 ===============
Item was added: + ----- Method: AbstractSound class>>playSoundNamed: (in category 'sound library') ----- + playSoundNamed: aString + "Play the sound with given name. Do nothing if there is no sound of that name in the library." + "AbstractSound playSoundNamed: 'flute1'" + + | snd | + snd _ self soundNamed: aString. + snd ifNotNil: [snd play]. + ^ snd!
Item was changed: ----- Method: SampledSound class>>playSoundNamed: (in category 'sound library') ----- + playSoundNamed: aString + "Play the sound with given name. Do nothing if + there is no sound of that name in the library." - playSoundNamed: aString - "Play the sound with given name. Do nothing if there is no sound of that name in the library." "SampledSound playSoundNamed: 'croak'" - | snd | + snd := self soundNamed: aString. + snd + ifNil: [^super playSoundNamed: aString] + ifNotNil: [snd play]. + ^ snd! - snd _ self soundNamed: aString. - snd ifNotNil: [snd play]. - ^ snd - !
Item was changed: ----- Method: SampledSound class>>soundNamed: (in category 'sound library') ----- soundNamed: aString "Answer the sound of the given name, or, if there is no sound of that name, put up an informer so stating, and answer nil"
"(SampledSound soundNamed: 'shutterClick') play"
^ self soundNamed: aString ifAbsent: + [^super soundNamed: aString]! - [self inform: aString, ' not found in the Sound Library' translated. - nil]!