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]!