Karl Ramberg uploaded a new version of Morphic to project The Trunk:
http://source.squeak.org/trunk/Morphic-kfr.1421.mcz

==================== Summary ====================

Name: Morphic-kfr.1421
Author: kfr
Time: 28 April 2018, 11:15:32.487436 am
UUID: be62513b-d2ac-9146-a2bf-67f86cee7f04
Ancestors: Morphic-cmm.1420

Change to send to a implemented selector

=============== Diff against Morphic-cmm.1420 ===============

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 cursorPoint: evt cursorPoint + (20 @ 0).
- 							offsetEvt := evt copy setCursorPoint: evt cursorPoint + (20 @ 0).
  							self invokeNoteMenu: offsetEvt]]
  				ifFalse: [editMode := #editPitch	"Vertical drag"]].
  	editMode == #editPitch ifTrue: [self editPitch: evt].
  	editMode == #selectNotes ifTrue: [self selectNotes: evt]!