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