Eliot Miranda uploaded a new version of Sound to project The Trunk:
http://source.squeak.org/trunk/Sound-eem.90.mcz

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

Name: Sound-eem.90
Author: eem
Time: 27 July 2022, 11:04:08.439551 am
UUID: d2a3fba6-3061-4ffc-bfcf-125f6bfdbafc
Ancestors: Sound-mt.89

Add interfaces for enumerating the sound player and recorder devices and setting the current device.

=============== Diff against Sound-mt.89 ===============

Item was added:
+ ----- Method: SoundPlayer class>>defaultPlayer (in category 'accessing') -----
+ defaultPlayer
+ 	"Answer the deviceName of the default device to be used as the next player (output) device to be opened."
+ 	^self primDefaultPlayer!

Item was added:
+ ----- Method: SoundPlayer class>>defaultPlayer: (in category 'accessing') -----
+ defaultPlayer: deviceName
+ 	self primDefaultPlayer: deviceName!

Item was added:
+ ----- Method: SoundPlayer class>>numberOfPlayerDevices (in category 'accessing') -----
+ numberOfPlayerDevices
+ 	"Answer the number of player (output) devices. See #playerDeviceNameOf:."
+ 	<primitive: 'primitiveGetNumberOfSoundPlayerDevices' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundPlayer class>>playerDeviceNameOfIndex: (in category 'private') -----
+ playerDeviceNameOfIndex: deviceNumber
+ 	"Answer the name of the nth player (output) device, or nil.
+ 	The device number must range from 1 to the #numberOfPlayerDevices."
+ 	<primitive: 'primitiveGetSoundPlayerDeviceName' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundPlayer class>>playerDevices (in category 'accessing') -----
+ playerDevices
+ 	"Answer a sortable collection of available values for use with #defaultPlayer:."
+ 	^(1 to: self numberOfPlayerDevices) collect:
+ 		[:index | self playerDeviceNameOfIndex: index]!

Item was added:
+ ----- Method: SoundPlayer class>>primDefaultPlayer (in category 'private') -----
+ primDefaultPlayer
+ 	"Answer the deviceName of the default device to be used as the next player (output) device to be opened."
+ 	<primitive: 'primitiveGetDefaultSoundPlayer' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundPlayer class>>primDefaultPlayer: (in category 'private') -----
+ primDefaultPlayer: deviceName
+ 	"Set deviceName as the default device to be used as the next player (output) device to be opened."
+ 	<primitive: 'primitiveSetDefaultSoundPlayer' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundRecorder class>>defaultRecorder (in category 'accessing') -----
+ defaultRecorder
+ 	"Get deviceName of the default device to be used as the next recorder (input) device to be opened."
+ 	^self primDefaultRecorder!

Item was added:
+ ----- Method: SoundRecorder class>>defaultRecorder: (in category 'accessing') -----
+ defaultRecorder: deviceName
+ 	"Set deviceName as the default device to be used as the next recorder (input) device to be opened.
+ 	 The initial listing setup  (self recorderDevices) should be called prior to doing this;
+ 	 if it returns NULL, then no devices are to be considered."
+ 	self primDefaultRecorder: deviceName!

Item was added:
+ ----- Method: SoundRecorder class>>numberOfRecorderDevices (in category 'accessing') -----
+ numberOfRecorderDevices
+ 	"Answer the number of recorder (input) devices. See #recorderDeviceNameOf:."
+ 	<primitive: 'primitiveGetNumberOfSoundRecorderDevices' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundRecorder class>>primDefaultRecorder (in category 'private') -----
+ primDefaultRecorder
+ 	"Get deviceName of the default device to be used as the next recorder (input) device to be opened."
+ 	<primitive: 'primitiveGetDefaultSoundRecorder' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundRecorder class>>primDefaultRecorder: (in category 'private') -----
+ primDefaultRecorder: deviceName
+ 	"Set deviceName as the default device to be used as the next recorder (input) device to be opened."
+ 	<primitive: 'primitiveSetDefaultSoundRecorder' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundRecorder class>>recorderDeviceNameOfIndex: (in category 'private') -----
+ recorderDeviceNameOfIndex: deviceNumber
+ 	"Answer the name of the nth recorder (input) device, or nil.
+ 	The device number must range from 1 to the #numberOfRecorderDevices."
+ 	<primitive: 'primitiveGetSoundRecorderDeviceName' module: 'SoundPlugin'>
+ 	^self primitiveFailed!

Item was added:
+ ----- Method: SoundRecorder class>>recorderDevices (in category 'accessing') -----
+ recorderDevices
+ 	"Answer a sortable collection of available values for use with #defaultRecorder:."
+ 	^(1 to: self numberOfRecorderDevices) collect:
+ 		[:index | self recorderDeviceNameOfIndex: index]!