Karl Ramberg uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-kfr.244.mcz==================== Summary ====================
Name: MorphicExtras-kfr.244
Author: kfr
Time: 30 July 2018, 2:10:56.401513 pm
UUID: 21ecf44a-b9fa-c741-85ea-948612c0e4df
Ancestors: MorphicExtras-pre.243
Fix a MouseEvent>>cursorPoint: DNU
=============== Diff against MorphicExtras-pre.243 ===============
Item was changed:
----- Method: PianoRollNoteMorph>>mouseMove: (in category 'event handling') -----
mouseMove: evt
| delta offsetEvt |
editMode isNil
ifTrue:
["First movement determines edit mode"
((delta := evt cursorPoint - hitLoc) dist: 0 @ 0) <= 2
ifTrue: [^self "No significant movement yet."].
delta x abs > delta y abs
ifTrue:
[delta x > 0
ifTrue:
["Horizontal drag"
editMode := #selectNotes]
ifFalse:
[self playSound: nil.
+ offsetEvt := evt copy translateBy:(20 @ 0).
- offsetEvt := evt copy cursorPoint: evt cursorPoint + (20 @ 0).
self invokeNoteMenu: offsetEvt]]
ifFalse: [editMode := #editPitch "Vertical drag"]].
editMode == #editPitch ifTrue: [self editPitch: evt].
editMode == #selectNotes ifTrue: [self selectNotes: evt]!
Locked
