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

[commits at source.squeak.org]

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]!