Eliot Miranda uploaded a new version of Sound to project The Trunk:
http://source.squeak.org/trunk/Sound-eem.79.mcz==================== Summary ====================
Name: Sound-eem.79
Author: eem
Time: 11 May 2021, 8:08:51.274095 pm
UUID: 10321fa9-6db8-4ca9-b3fc-ed5d41db23fa
Ancestors: Sound-mt.78
Somewhat nicer executable comments for listening to sounds in the libraries.
=============== Diff against Sound-mt.78 ===============
Item was changed:
----- Method: AbstractSound class>>soundNames (in category 'sound library') -----
soundNames
+ "AbstractSound soundNames asSortedCollection do:
+ [:n |
+ (n padded: #right to: 10 with: $ ) asParagraph displayAt: Sensor cursorPoint - 32.
+ (AbstractSound soundNamed: n) ifNotNil:
+ [:s| s playAndWaitUntilDone. (Delay forMilliseconds: 250) wait]]"
+
^ Sounds keys asArray sort
!
Item was changed:
----- Method: SampledSound class>>soundNames (in category 'sound library') -----
soundNames
"Answer a list of sound names for the sounds stored in the sound library."
+ "SampledSound soundNames asSortedCollection do:
+ [:n |
+ (n padded: #right to: 10 with: $ ) asParagraph displayAt: Sensor cursorPoint - 32.
+ (SampledSound soundNamed: n) ifNotNil:
+ [:s| s playAndWaitUntilDone. (Delay forMilliseconds: 250) wait]]"
- "| s |
- SampledSound soundNames asSortedCollection do: [:n |
- n asParagraph display.
- s := SampledSound soundNamed: n.
- s ifNotNil: [s playAndWaitUntilDone]]"
^ SoundLibrary keys asArray
!