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