[Pkg] The Treated Inbox: MorphicExtras-kfr.333.mcz

[commits at source.squeak.org]

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 at 19 px;
+ 		color: color lighter;
+ 		borderColor: color muchDarker;
+ 		borderWidth: 1;
+ 		layoutPolicy: TableLayout new;
+ 		layoutInset: (1 at 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!