The Trunk: EToys-tfel.218.mcz

Tim Felgentreff uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-tfel.218.mcz

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

Name: EToys-tfel.218
Author: tfel
Time: 31 August 2016, 10:10:08.849793 am
UUID: ce143eb6-2703-8741-85c0-35e42f88016b
Ancestors: EToys-tfel.217

stop the players sound from playing if we have it. (adapted from the WS-Sound package)

=============== Diff against EToys-tfel.217 ===============

Item was changed:
  ----- Method: Player>>stopProgramatically (in category 'scripts-execution') -----
  stopProgramatically
  "stop running my ticking scripts -- called from running code"
  self instantiatedUserScriptsDo:
  [:aUserScript | aUserScript stopTicking].
+ (self costume renderedMorph isKindOf: SpeakerMorph)
- (costume renderedMorph isKindOf: SpeakerMorph)
  ifTrue: [costume renderedMorph stopSound].  "turn off buffered speaker sound"
+ self costume
+ valueOfProperty: #playingSound
+ ifPresentDo: [:sound |
+ sound stopGracefully.
+ self costume removeProperty: #playingSound].!
- !