Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.330.mcz
==================== Summary ====================
Name: MorphicExtras-ct.330 Author: ct Time: 25 August 2022, 3:57:58.536239 pm UUID: 2e1c5775-6f30-154d-b1ba-77d1d443e805 Ancestors: MorphicExtras-ct.329
In the Score Player example, use different instruments as intended by the example track. Adds ScorePlayerMorph>>#atTrack:selectInstrument:.
=============== Diff against MorphicExtras-ct.329 ===============
Item was changed: ----- Method: ScorePlayerMorph class>>extraExample (in category '*MorphicExtras-examples') ----- extraExample "ScorePlayerMorph extraExample openInHand"
+ | scorePlayerMorph | + scorePlayerMorph := self on: MIDIScore extraExample. + #('organ1' 'oboe1' 'brass1' 'oboe1' 'oboe2' 'bass1' 'bassoon1' 'bass1' 'pluckedElecBass' 'bass1') + withIndexDo: [:name :index | + scorePlayerMorph atTrack: index selectInstrument: name]. + ^ scorePlayerMorph! - ^ self on: MIDIScore extraExample!
Item was added: + ----- Method: ScorePlayerMorph>>atTrack:selectInstrument: (in category 'controls') ----- + atTrack: trackIndex selectInstrument: selection + + ^ self atTrack: trackIndex from: (instrumentSelector at: trackIndex) selectInstrument: selection!
packages@lists.squeakfoundation.org