[squeak-dev] The Inbox: MorphicExtras-kfr.332.mcz
commits at source.squeak.org
commits at source.squeak.org
Sat Aug 27 08:21:20 UTC 2022
A new version of MorphicExtras was added to project The Inbox:
http://source.squeak.org/inbox/MorphicExtras-kfr.332.mcz
==================== Summary ====================
Name: MorphicExtras-kfr.332
Author: kfr
Time: 27 August 2022, 10:21:16.96379 am
UUID: de15d415-f740-1e44-ab59-b1a8370e62a8
Ancestors: MorphicExtras-ct.331
Change the background color for the instrument to visually indicate that it is a changeable value
=============== Diff against MorphicExtras-ct.331 ===============
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!
More information about the Squeak-dev
mailing list
|