Etoys: Sound-kfr.13.mcz

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

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