Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-kfr.245.mcz==================== Summary ====================
Name: MorphicExtras-kfr.245
Author: kfr
Time: 9 August 2018, 11:12:32.522421 am
UUID: 3e41fb75-0b24-f74d-b50f-c0c87ab6c9e5
Ancestors: MorphicExtras-kfr.244
PianoRollNoteMorph need to send owner changed to redraw the PianoRollScoreMorph a couple of places
=============== Diff against MorphicExtras-kfr.244 ===============
Item was changed:
----- Method: PianoRollNoteMorph>>mouseDown: (in category 'event handling') -----
mouseDown: evt
hitLoc := evt cursorPoint.
editMode := nil.
owner submorphsDo:
[:m | (m isKindOf: PianoRollNoteMorph) ifTrue: [m deselect]].
selected := true.
+ self changed.
+ owner changed.
- self changed.
owner selection: (Array with: trackIndex with: indexInTrack with: indexInTrack).
self playSound!
Item was changed:
----- Method: PianoRollNoteMorph>>selectNotes: (in category 'selecting') -----
selectNotes: evt
| lastMorph oldEnd saveOwner |
+
saveOwner := owner.
(owner autoScrollForX: evt cursorPoint x) ifTrue:
["If scroll talkes place I will be deleted and my x-pos will become invalid."
owner := saveOwner.
bounds := bounds withLeft: (owner xForTime: self noteInScore time)].
oldEnd := owner selection last.
(owner notesInRect: (evt cursorPoint x @ owner top corner: owner bottomRight))
do: [:m | m trackIndex = trackIndex ifTrue: [m deselect]].
+ self select.
+ lastMorph := self.
- self select. lastMorph := self.
(owner notesInRect: (self left @ owner top corner: evt cursorPoint x @ owner bottom))
do: [:m | m trackIndex = trackIndex ifTrue: [m select. lastMorph := m]].
owner selection: (Array with: trackIndex with: indexInTrack with: lastMorph indexInTrack).
lastMorph indexInTrack ~= oldEnd ifTrue:
["Play last note as selection grows or shrinks"
+ owner ifNotNil: [lastMorph playSound]].
+ owner changed.
- owner ifNotNil: [lastMorph playSound]]
!
Locked
