[etoys-dev] Etoys: Etoys-bf.50.mcz

[commits at source.squeak.org]

Bert Freudenberg uploaded a new version of Etoys to project Etoys:
http://source.squeak.org/etoys/Etoys-bf.50.mcz

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

Name: Etoys-bf.50
Author: bf
Time: 13 October 2010, 12:12:03 am
UUID: de8b6755-a7b1-4791-883c-f5efe8020ce6
Ancestors: Etoys-bf.49

Only keep actual sounds as property (SQ-845)

=============== Diff against Etoys-bf.49 ===============

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.
+ 			(sound respondsTo: #stopGracefully)
+ 				ifTrue: [self costume setProperty: #playingSound toValue: sound]]
- 			[sound _ SoundService default playSoundNamedOrBeep: anObject.  self costume setProperty: #playingSound toValue: sound. ]
  		ifFalse:
  			[SoundPlayer resumePlaying: anObject quickStart: true]
  !