Marcel Taeumel uploaded a new version of MorphicExtras to project The Trunk:
http://source.squeak.org/trunk/MorphicExtras-ct.295.mcz

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

Name: MorphicExtras-ct.295
Author: ct
Time: 17 April 2021, 7:09:30.182932 pm
UUID: e1a46d30-9232-aa4e-a316-9aad80fa0978
Ancestors: MorphicExtras-eem.293

PianoKeyboardMorph: Don't play a sound when a menu is invoked.

=============== Diff against MorphicExtras-eem.293 ===============

Item was changed:
  ----- Method: PianoKeyboardMorph>>mouseDownPitch:event:noteMorph: (in category 'simple keyboard') -----
  mouseDownPitch: midiKey event: event noteMorph: noteMorph
  	| pitch |
+ 	event redButtonPressed ifFalse: [^ self].
  	event hand hasSubmorphs ifTrue: [^ self  "no response if drag something over me"].
  	event hand mouseFocus ifNil:
  		["If dragged into me, then establish focus so I'll see moves"
  		event hand newMouseFocus: noteMorph event: event].
  	noteMorph color: playingKeyColor.
  	pitch := AbstractSound pitchForMIDIKey: midiKey + 23.
  	soundPlaying ifNotNil: [soundPlaying stopGracefully].
  	soundPlaying := soundPrototype soundForPitch: pitch dur: 100.0 loudness: 0.3.
  	SoundPlayer resumePlaying: soundPlaying quickStart: true.
  !