Squeak-dev April 2016

squeak-dev@lists.squeakfoundation.org

39 participants
244 discussions

The Trunk: Tests-ul.339.mcz
by commits＠source.squeak.org 07 Apr '16

07 Apr '16

Levente Uzonyi uploaded a new version of Tests to project The Trunk: http://source.squeak.org/trunk/Tests-ul.339.mcz ==================== Summary ==================== Name: Tests-ul.339 Author: ul Time: 7 April 2016, 8:26:14.155989 pm UUID: 7a4c1480-05bb-4037-9b24-45e5401e2af7 Ancestors: Tests-ul.338 - don't leave the empty Tests-MonticelloMocks category in the system after running MCFileInTest =============== Diff against Tests-ul.338 =============== Item was changed: ----- Method: MCFileInTest>>tearDown (in category 'running') ----- tearDown super tearDown. (diff isNil or: [diff isEmpty not]) + ifTrue: [expected updatePackage: self mockPackage]. + SystemOrganizer default removeEmptyCategories! - ifTrue: [expected updatePackage: self mockPackage]!

1 0

Re: [squeak-dev] Host window resizing (was: [Vm-dev] Re: Too many full GCs in Cog/Spur ... while just drawing GUI ...)
by jelena＠misticnabica.hr 07 Apr '16

07 Apr '16

1 0

Daily Commit Log
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Changes to Trunk (http://source.squeak.org/trunk.html) in the last 24 hours: http://lists.squeakfoundation.org/pipermail/packages/2016-April/009543.html Name: System-mt.807 Ancestors: System-bf.806 Make SoundService usable in code just like ToolSet is. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009544.html ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009545.html Name: Sound-mt.48 Ancestors: Sound-tpr.47 Fixes sound playing in the way that it goes through the sound service to ensure sound preferences. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009546.html Name: Kernel-mt.1013 Ancestors: Kernel-mt.1012 Simplifies code for stopping the sound service on CMD+Dot ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009547.html Name: Sound-mt.49 Ancestors: Sound-mt.48 Adds code for conveniently playing MIDIs stored in the file system. Compares with Form class. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009548.html Name: System-mt.808 Ancestors: System-mt.807 Temporary change to not lock up the system while moving #isMorphic into an extension category in Project. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009549.html Name: System-mt.809 Ancestors: System-mt.808 Move #isMorphic into Morphic extension. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009550.html Name: Morphic-mt.1101 Ancestors: Morphic-mt.1100 Adds #isMorphic as extension to Project. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009551.html Name: System-mt.810 Ancestors: System-mt.809 Migration complete. Revert implementation of #isMorphic. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009552.html Name: ST80-mt.198 Ancestors: ST80-mt.197 Simple MVC check. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009553.html Name: ST80-mt.199 Ancestors: ST80-mt.198 Fixes MVC-specific clean-up for save/load the image. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009554.html Name: System-mt.811 Ancestors: System-mt.810 Make start-up scripts work also in othere GUIs. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009555.html Name: System-mt.812 Ancestors: System-mt.811 Rename to be consistent with ToolSet metaphor. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009556.html Name: Sound-mt.50 Ancestors: Sound-mt.49 Use this sound system by default if there is no other sound system used already. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009557.html Name: Sound-mt.51 Ancestors: Sound-mt.50 Fixes MIDI support wrt. to using real MIDI devices and CMD+Dot behavior. Keep sounds and music playing when only snapshotting but not quitting the image. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009558.html Name: Sound-mt.52 Ancestors: Sound-mt.51 Adds descriptive process names to the processes that are playing sound and MIDI. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009559.html Name: Tools-mt.685 Ancestors: Tools-mt.684 Removes 'the Sound Player' as a well-known global process to get rid of some global state considering the playing of sounds. Scores, for example, are played as one process per score. Maybe sounds could benefit from that, too. Anyway, it's primarily about the global state here. And: Sound player processes got a clear description now. So, this is no step back in usability. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009560.html Name: Sound-mt.53 Ancestors: Sound-mt.52 Disable usage of MIDI device if it does not work. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009561.html Name: Sound-mt.54 Ancestors: Sound-mt.53 Consider the sound-enabled preference also for playing MIDI scores. ============================================= http://lists.squeakfoundation.org/pipermail/packages/2016-April/009562.html Name: Sound-mt.55 Ancestors: Sound-mt.54 Adds support for dropping a MIDI file into the image and play it directly. (Instead of only offering to open a ScorePlayerMorph for that.) =============================================

1 0

Multichannel Sound
by Herbert König 06 Apr '16

06 Apr '16

Hi, has anybody used more than 2 audio channels in Squeak? Cheers, Herbert

2 1

Re: The Trunk: Tools-mt.685.mcz
by marcel.taeumel 06 Apr '16

06 Apr '16

<http://forum.world.st/file/n4888726/sound-processes-1.png> Best, Marcel -- View this message in context: http://forum.world.st/The-Trunk-Tools-mt-685-mcz-tp4888722p4888726.html Sent from the Squeak - Dev mailing list archive at Nabble.com.

4 4

The Trunk: Sound-mt.55.mcz
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-mt.55.mcz ==================== Summary ==================== Name: Sound-mt.55 Author: mt Time: 6 April 2016, 7:16:16.273155 pm UUID: c5be3a4c-30f2-dd48-8f1e-087d240d455a Ancestors: Sound-mt.54 Adds support for dropping a MIDI file into the image and play it directly. (Instead of only offering to open a ScorePlayerMorph for that.) =============== Diff against Sound-mt.54 =============== Item was added: + ----- Method: ScorePlayer class>>fileReaderServicesForFile:suffix: (in category 'file reader services') ----- + fileReaderServicesForFile: fullName suffix: suffix + + ^ (suffix = 'mid') | (suffix = '*') + ifTrue: [self services] + ifFalse: [#()] + ! Item was changed: + ----- Method: ScorePlayer class>>initialize (in category 'class initialization') ----- - ----- Method: ScorePlayer class>>initialize (in category 'as yet unclassified') ----- initialize + Smalltalk addToShutDownList: self. + FileServices registerFileReader: self.! - Smalltalk addToShutDownList: self.! Item was added: + ----- Method: ScorePlayer class>>playFileNamed: (in category 'instance creation') ----- + playFileNamed: fileName + + ^ (MIDISound fromFileNamed: fileName) + play; yourself! Item was added: + ----- Method: ScorePlayer class>>servicePlayMidiFile (in category 'file reader services') ----- + servicePlayMidiFile + "Answer a service for opening player on a midi file" + + ^ SimpleServiceEntry + provider: self + label: 'play MIDI file' + selector: #playFileNamed: + description: 'play the MIDI file directly' + buttonLabel: 'play'! Item was added: + ----- Method: ScorePlayer class>>services (in category 'file reader services') ----- + services + + ^ Array with: self servicePlayMidiFile! Item was added: + ----- Method: ScorePlayer class>>unload (in category 'initialize-release') ----- + unload + + FileServices unregisterFileReader: self !

1 0

The Trunk: Sound-mt.54.mcz
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-mt.54.mcz ==================== Summary ==================== Name: Sound-mt.54 Author: mt Time: 6 April 2016, 6:30:41.370961 pm UUID: a0aa6992-2b6c-c648-87b2-124df7b804ba Ancestors: Sound-mt.53 Consider the sound-enabled preference also for playing MIDI scores. =============== Diff against Sound-mt.53 =============== Item was changed: ----- Method: MIDISound>>play (in category 'as yet unclassified') ----- play "The base class ScorePlayer has two interfaces: a sound and a sound player. Choose the right interface depending on whether MIDI support is present." + SoundService soundEnabled ifFalse: [^ self]. + SimpleMIDIPort useMIDIDeviceForOutput ifTrue: [ [self openMIDIPort] on: Error do: [ SimpleMIDIPort askForDefault. [self openMIDIPort] on: Error do: [ self inform: 'Use of MIDI device is not working. Using custom synthesis.\Go to preferences to change again.' withCRs. SimpleMIDIPort useMIDIDeviceForOutput: false]]]. self reset; resumePlaying.!

1 0

The Trunk: Sound-mt.53.mcz
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-mt.53.mcz ==================== Summary ==================== Name: Sound-mt.53 Author: mt Time: 6 April 2016, 6:25:53.027926 pm UUID: 7e1b7e43-e9c2-2a41-90c2-d545cd195582 Ancestors: Sound-mt.52 Disable usage of MIDI device if it does not work. =============== Diff against Sound-mt.52 =============== Item was changed: ----- Method: MIDISound>>play (in category 'as yet unclassified') ----- play "The base class ScorePlayer has two interfaces: a sound and a sound player. Choose the right interface depending on whether MIDI support is present." SimpleMIDIPort useMIDIDeviceForOutput ifTrue: [ [self openMIDIPort] on: Error do: [ SimpleMIDIPort askForDefault. + [self openMIDIPort] + on: Error + do: [ + self inform: 'Use of MIDI device is not working. Using custom synthesis.\Go to preferences to change again.' withCRs. + SimpleMIDIPort useMIDIDeviceForOutput: false]]]. - self openMIDIPort]]. self reset; resumePlaying.!

1 0

The Trunk: Tools-mt.685.mcz
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Marcel Taeumel uploaded a new version of Tools to project The Trunk: http://source.squeak.org/trunk/Tools-mt.685.mcz ==================== Summary ==================== Name: Tools-mt.685 Author: mt Time: 6 April 2016, 6:11:52.977125 pm UUID: 87ada98c-1487-8b40-aff3-51e64dd6686f Ancestors: Tools-mt.684 Removes 'the Sound Player' as a well-known global process to get rid of some global state considering the playing of sounds. Scores, for example, are played as one process per score. Maybe sounds could benefit from that, too. Anyway, it's primarily about the global state here. And: Sound player processes got a clear description now. So, this is no step back in usability. =============== Diff against Tools-mt.684 =============== Item was changed: ----- Method: ProcessBrowser class>>registerWellKnownProcesses (in category 'class initialization') ----- registerWellKnownProcesses "Associate each well-known process with a nickname and two flags: allow-stop, and allow-debug. Additional processes may be added to this list as required" WellKnownProcesses := OrderedCollection new. self registerWellKnownProcess: [] label: 'no process' allowStop: false allowDebug: false. self registerWellKnownProcess: [Smalltalk lowSpaceWatcherProcess] label: 'the low space watcher' allowStop: false allowDebug: false. self registerWellKnownProcess: [WeakArray runningFinalizationProcess] label: 'the WeakArray finalization process' allowStop: false allowDebug: false. self registerWellKnownProcess: [Processor activeProcess] label: 'the UI process' allowStop: false allowDebug: true. self registerWellKnownProcess: [Processor backgroundProcess] label: 'the idle process' allowStop: false allowDebug: false. self registerWellKnownProcess: [Sensor interruptWatcherProcess] label: 'the user interrupt watcher' allowStop: false allowDebug: false. self registerWellKnownProcess: [Sensor eventTicklerProcess] label: 'the event tickler' allowStop: false allowDebug: false. self registerWellKnownProcess: [Project uiProcess] label: 'the inactive Morphic UI process' allowStop: false allowDebug: false. + " self registerWellKnownProcess: - self registerWellKnownProcess: [Smalltalk at: #SoundPlayer ifPresent: [:sp | sp playerProcess]] label: 'the Sound Player' allowStop: false + allowDebug: false." - allowDebug: false. self registerWellKnownProcess: [ScheduledControllers ifNotNil: [ScheduledControllers activeControllerProcess]] label: 'the inactive MVC controller process' allowStop: false allowDebug: true. self registerWellKnownProcess: [Smalltalk at: #CPUWatcher ifPresent: [:cw | cw currentWatcherProcess]] label: 'the CPUWatcher' allowStop: false allowDebug: false ! Item was changed: + (PackageInfo named: 'Tools') postscript: 'ProcessBrowser initialize.'! - (PackageInfo named: 'Tools') postscript: '"Updated for new global hot-key support." - ActiveWorld initializeDesktopCommandKeySelectors'!

1 0

The Trunk: Sound-mt.52.mcz
by commits＠source.squeak.org 06 Apr '16

06 Apr '16

Marcel Taeumel uploaded a new version of Sound to project The Trunk: http://source.squeak.org/trunk/Sound-mt.52.mcz ==================== Summary ==================== Name: Sound-mt.52 Author: mt Time: 6 April 2016, 6:06:14.405125 pm UUID: c5f62084-edd7-a64f-a95a-9ae29db062f6 Ancestors: Sound-mt.51 Adds descriptive process names to the processes that are playing sound and MIDI. =============== Diff against Sound-mt.51 =============== Item was changed: ----- Method: MIDIFileReader>>asScore (in category 'chunk reading') ----- asScore ^ MIDIScore new tracks: tracks; trackInfo: trackInfo; tempoMap: tempoMap; + ticksPerQuarterNote: ticksPerQuarter; + source: stream localName - ticksPerQuarterNote: ticksPerQuarter ! Item was changed: Object subclass: #MIDIScore + instanceVariableNames: 'tracks trackInfo ambientTrack tempoMap ticksPerQuarterNote source' - instanceVariableNames: 'tracks trackInfo ambientTrack tempoMap ticksPerQuarterNote' classVariableNames: '' poolDictionaries: '' category: 'Sound-Scores'! !MIDIScore commentStamp: '<historical>' prior: 0! A MIDIScore is a container for a number of MIDI tracks as well as an ambient track for such things as sounds, book page triggers and other related events.! Item was added: + ----- Method: MIDIScore>>printOn: (in category 'printing') ----- + printOn: stream + + self source + ifNotNil: [:s | s printOn: stream] + ifNil: [super printOn: stream].! Item was added: + ----- Method: MIDIScore>>source (in category 'accessing') ----- + source + ^ source! Item was added: + ----- Method: MIDIScore>>source: (in category 'accessing') ----- + source: anObject + source := anObject.! Item was changed: ----- Method: ScorePlayer>>startMIDIPlaying (in category 'midi output') ----- startMIDIPlaying "Start up a process to play this score via MIDI." midiPort ensureOpen. midiPlayerProcess ifNotNil: [midiPlayerProcess terminate]. midiPlayerProcess := [self midiPlayLoop] newProcess. midiPlayerProcess + name: 'Score Player (', self score printString, ')'; priority: Processor userInterruptPriority; resume. ! Item was changed: ----- Method: SoundPlayer class>>resumePlaying:quickStart: (in category 'playing') ----- resumePlaying: aSound quickStart: quickStart "Start playing the given sound without resetting it; it will resume playing from where it last stopped. If quickStart is true, then try to start playing the given sound immediately." | doQuickStart | SoundService soundEnabled ifFalse: [^ self]. doQuickStart := quickStart. self soundQuickStart ifFalse: [doQuickStart := false]. PlayerProcess == nil ifTrue: [ self canStartPlayer ifFalse: [^ self]. ^self startUpWithSound: aSound]. + - PlayerSemaphore critical: [ (ActiveSounds includes: aSound) ifTrue: [doQuickStart := false] + ifFalse: [doQuickStart ifFalse: [ActiveSounds add: aSound]]. + PlayerProcess name: 'Sound Player (', ActiveSounds size asString, ')']. - ifFalse: [ - doQuickStart ifFalse: [ActiveSounds add: aSound]]]. "quick-start the given sound, unless the sound player has just started" doQuickStart ifTrue: [self startPlayingImmediately: aSound]. ! Item was changed: ----- Method: SoundPlayer class>>startPlayerProcessBufferSize:rate:stereo:sound: (in category 'player process') ----- startPlayerProcessBufferSize: bufferSize rate: samplesPerSecond stereo: stereoFlag sound: aSound "Start the sound player process. Terminate the old process, if any." "SoundPlayer startPlayerProcessBufferSize: 1000 rate: 11025 stereo: false" self stopPlayerProcess. aSound ifNil:[ActiveSounds := OrderedCollection new] ifNotNil:[ActiveSounds := OrderedCollection with: aSound]. Buffer := SoundBuffer newStereoSampleCount: (bufferSize // 4) * 4. LastBuffer ifNotNil:[LastBuffer := SoundBuffer basicNew: Buffer basicSize]. PlayerSemaphore := Semaphore forMutualExclusion. SamplingRate := samplesPerSecond. Stereo := stereoFlag. SoundSupported := true. "Assume so" UseReadySemaphore := true. "set to false if ready semaphore not supported by VM" Smalltalk newExternalSemaphoreDo: [ :semaphore :index | ReadyForBuffer := semaphore. self primSoundStartBufferSize: Buffer stereoSampleCount rate: samplesPerSecond stereo: Stereo semaIndex: index ]. "Check if sound start prim was successful" SoundSupported ifFalse:[ Smalltalk unregisterExternalObject: ReadyForBuffer. ReadyForBuffer := nil. ^self ]. UseReadySemaphore ifTrue: [PlayerProcess := [SoundPlayer playLoop] newProcess] ifFalse: [PlayerProcess := [SoundPlayer oldStylePlayLoop] newProcess]. UseReverb ifTrue: [self startReverb]. + PlayerProcess + name: 'Sound Player (', ActiveSounds size asString, ')'; + priority: Processor userInterruptPriority; + resume! - PlayerProcess priority: Processor userInterruptPriority. - PlayerProcess resume!

1 0

← Newer
1
...
16
17
18
19
20
21
22
...
25
Older →

Jump to page: