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

[commits at source.squeak.org]

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

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

Name: Sound-kfr.15
Author: kfr
Time: 17 July 2011, 3:50:07 pm
UUID: f3ecee51-a45c-e542-b976-f320c6b193d6
Ancestors: Sound-kfr.14

Sounds as instruments that can change pitch

=============== Diff against Sound-kfr.12 ===============

Item was added:
+ ----- Method: Player>>playInstrument: (in category '*sound') -----
+ playInstrument: frequency 
+ 	| sound soundName |
+ 	
+ 	
+ 	soundName := self costume valueOfProperty: #instrument.
+      sound := SoundService default soundNamed: soundName.
+ 	sound pitch: frequency .			
+ 	self costume setProperty: #playingSound toValue: sound.
+ 	SoundPlayer resumePlaying: sound quickStart: true!

Item was added:
+ ----- Method: Player>>setInstrument: (in category '*sound') -----
+ setInstrument: aSound
+ self costume setProperty: #instrument toValue: aSound.
+ !