Christoph Thiede uploaded a new version of MorphicExtras to project The Trunk: http://source.squeak.org/trunk/MorphicExtras-ct.329.mcz
==================== Summary ====================
Name: MorphicExtras-ct.329 Author: ct Time: 25 August 2022, 3:48:03.569239 pm UUID: b7b5c235-4960-2644-9e19-9bc424db05e5 Ancestors: MorphicExtras-ct.328
Score Player: For instrument selection, uses a DropDownChoiceMorph in favor of a PopUpChoiceMorph.
=============== Diff against MorphicExtras-ct.328 ===============
Item was changed: ----- Method: DropDownChoiceMorph>>drawOn: (in category 'drawing') ----- drawOn: aCanvas
+ aCanvas drawString: contents in: (bounds insetBy: 2 px) font: self fontToUse color: color. - aCanvas drawString: contents in: (bounds insetBy: 2) font: self fontToUse color: color.
border ifNotNil: [aCanvas frameAndFillRectangle: bounds fillColor: Color transparent + borderWidth: 1 px - borderWidth: 1 borderColor: Color black].
aCanvas paintImage: SubMenuMarker + at: (self right - 8 px @ ((self top + self bottom - SubMenuMarker height) // 2))! - at: (self right - 8 @ ((self top + self bottom - SubMenuMarker height) // 2))!
Item was changed: ----- Method: DropDownChoiceMorph>>maxExtent: (in category 'drawing') ----- maxExtent: listOfStrings
| h maxW | maxW := 0. listOfStrings do: [:str | | f w | f := self fontToUse. w := f widthOfString: str. h := f height. maxW := maxW max: w]. + self extent: (maxW + 4 px + h) @ (h + 4 px). - self extent: (maxW + 4 + h) @ (h + 4). self changed!
Item was changed: ----- Method: ScorePlayerMorph>>trackNumAndMuteButtonFor: (in category 'layout') ----- trackNumAndMuteButtonFor: trackIndex
| 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). + instSelector := DropDownChoiceMorph new + extent: 120 px @ 18 px; - instSelector := PopUpChoiceMorph new - extent: 95 px @ 14 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.
"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: 140 px @ 16 px; - extent: 80 px @ 14 px; contentsClipped: (scorePlayer infoForTrack: trackIndex)). r addMorphBack: (Morph new color: color; extent: 8 px @ 8 px). "spacer" r addMorphBack: instSelector. r addMorphBack: (AlignmentMorph newRow color: color). "spacer" r addMorphBack: muteButton. ^ r!