[etoys-dev] Etoys: Etoys-kfr.14.mcz

[commits at source.squeak.org]

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

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

Name: Etoys-kfr.14
Author: kfr
Time: 30 May 2010, 1:58:10 am
UUID: aee06e3b-70bf-b646-99c9-fb768c240ff8
Ancestors: Etoys-kfr.13

We must keep a reference to the sound we are playing so we can stop it later...

=============== Diff against Etoys-kfr.13 ===============

Item was changed:
  ----- Method: Player>>beep: (in category 'misc') -----
  beep: anObject
  	"Play given sound or at least beep."
  
+ 	| sound |
  	anObject isString
  		ifTrue:
+ 			[sound _ SoundService default playSoundNamedOrBeep: anObject.  self costume setProperty: #playingSound toValue: sound. ]
- 			[SoundService default playSoundNamedOrBeep: anObject]
  		ifFalse:
  			[SoundPlayer resumePlaying: anObject quickStart: true]
  !