The Trunk: Morphic-kfr.1421.mcz

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