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]!
packages@lists.squeakfoundation.org