tim Rowledge uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-tpr.95.mcz
==================== Summary ====================
Name: Sound-tpr.95 Author: tpr Time: 23 October 2023, 4:33:18.064631 pm UUID: 0932640d-e32d-4222-9026-8485f9bf6714 Ancestors: Sound-ct.94
Drop the deprecated #os send from a couple of methods
=============== Diff against Sound-ct.94 ===============
Item was changed: ----- Method: SoundPlayer class>>defaultQuickStartForPlatform (in category 'preferences') ----- defaultQuickStartForPlatform
+ ^ Smalltalk platformName = 'Mac OS' - ^ Smalltalk os platformName = 'Mac OS'. !
Item was changed: ----- Method: SoundPlayer class>>defaultStopSoundForPlatform (in category 'preferences') ----- defaultStopSoundForPlatform
+ ^(Smalltalk platformName = 'Mac OS') not - ^(Smalltalk os platformName = 'Mac OS') not !
Item was changed: ----- Method: SoundRecorder>>recordLoop (in category 'private') ----- recordLoop "Record process loop that records samples."
| n sampleCount linuxWorkaroundBlock |
n := 0. + linuxWorkaroundBlock := Smalltalk platformName = 'unix' - linuxWorkaroundBlock := Smalltalk os platformName = 'unix' ifTrue: [ [ (Delay forMilliseconds: 20) wait ] ] ifFalse: [ nil ]. [ n = 0 ifTrue: [bufferAvailableSema wait]. paused ifTrue: [ n := self primRecordSamplesInto: meteringBuffer startingAt: 1. self meterFrom: 1 count: n in: meteringBuffer] ifFalse: [ n := self primRecordSamplesInto: currentBuffer startingAt: nextIndex. self meterFrom: nextIndex count: n in: currentBuffer. nextIndex := nextIndex + n. stereo ifTrue: [sampleCount := currentBuffer stereoSampleCount] ifFalse: [sampleCount := currentBuffer monoSampleCount]. nextIndex > sampleCount ifTrue: [ self emitBuffer: currentBuffer. self allocateBuffer]].
"workaround for OSS emulation on top on ALSA (on Linux environments)" linuxWorkaroundBlock ifNotNil: [ linuxWorkaroundBlock value ] ] repeat !
packages@lists.squeakfoundation.org