Karl Ramberg uploaded a new version of MorphicExtras to project The Treated Inbox: http://source.squeak.org/treated/MorphicExtras-kfr.333.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.333 Author: kfr Time: 27 August 2022, 10:37:56.24479 am UUID: 7d5d485d-6fa0-1444-8c0a-a8d50a85de8d Ancestors: MorphicExtras-kfr.332
Preset button to 'maj'
=============== Diff against MorphicExtras-ct.331 ===============
Item was changed: ----- Method: KeyboardMorphForInput>>initialize (in category 'initialization') ----- initialize "initialize the state of the receiver" super initialize. + self initChordDictionary. - "" buildingChord := false. self addRecordingControls. self duration: 4 onOff: true. self durMod: #normal onOff: true. self articulation: #normal onOff: true. + self chords: #maj onOff: true. insertMode := false. + ! - self initChordDictionary!
Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex
+ | muteButton instSelector pianoRollColor r instBackground | - | muteButton instSelector pianoRollColor r | muteButton := SimpleSwitchMorph new onColor: (Color r: 1.0 g: 0.6 b: 0.6); offColor: color; color: color; label: 'Mute' translated; target: scorePlayer; actionSelector: #mutedForTrack:put:; arguments: (Array with: trackIndex). + instBackground := Morph new extent: 125 px@19 px; + color: color lighter; + borderColor: color muchDarker; + borderWidth: 1; + layoutPolicy: TableLayout new; + layoutInset: (1@0). instSelector := DropDownChoiceMorph new extent: 120 px @ 18 px; contentsClipped: 'oboe1'; target: self; actionSelector: #atTrack:from:selectInstrument:; getItemsSelector: #instrumentChoicesForTrack:; getItemsArgs: (Array with: trackIndex). instSelector arguments: (Array with: trackIndex with: instSelector). instrumentSelector at: trackIndex put: instSelector. + instBackground addMorphBack: instSelector.
"select track color using same color list as PianoRollScoreMorph" pianoRollColor := (Color wheel: scorePlayer score tracks size) at: trackIndex.
r := self makeRow hResizing: #spaceFill; vResizing: #spaceFill; extent: 70 px @ 10 px. r addMorphBack: ((StringMorph contents: trackIndex printString font: (TextStyle defaultFont asPointSize: TextStyle defaultFont pointSize * 1.57)) color: pianoRollColor). trackIndex < 10 ifTrue: [r addMorphBack: (Morph new color: color; extent: 19 px @ 8 px)] "spacer" ifFalse: [r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px)]. "spacer" r addMorphBack: (StringMorph new + extent: 100 px @ 16 px; - extent: 140 px @ 16 px; contentsClipped: (scorePlayer infoForTrack: trackIndex)). r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px). "spacer" + r addMorphBack: instBackground. - r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r!