[squeak-dev] The Trunk: EToys-ct.456.mcz
commits at source.squeak.org
commits at source.squeak.org
Mon Jan 3 22:24:51 UTC 2022
Christoph Thiede uploaded a new version of EToys to project The Trunk:
http://source.squeak.org/trunk/EToys-ct.456.mcz
==================== Summary ====================
Name: EToys-ct.456
Author: ct
Time: 3 January 2022, 11:24:44.399397 pm
UUID: 3dc9971f-ab6e-3448-a995-12a039badca5
Ancestors: EToys-ct.455
Complements MorphicExtras-ct.305 (two fixes for MIDI).
=============== Diff against EToys-ct.455 ===============
Item was added:
+ ----- Method: MIDIPianoKeyboardMorph>>basicMouseDownPitch: (in category 'simple keyboard') -----
+ basicMouseDownPitch: midiKey
+
+ midiPort ifNil: [^ super basicMouseDownPitch: midiKey - 1].
+
+ soundPlaying
+ ifNil: [midiPort ensureOpen]
+ ifNotNil: [self turnOffNote].
+ self turnOnNote: midiKey + 23.!
Item was added:
+ ----- Method: MIDIPianoKeyboardMorph>>basicMouseUpPitch: (in category 'simple keyboard') -----
+ basicMouseUpPitch: midiKey
+
+ midiPort ifNil: [
+ ^ super basicMouseUpPitch: midiKey].
+
+ soundPlaying ifNotNil: [self turnOffNote].!
Item was removed:
- ----- Method: MIDIPianoKeyboardMorph>>mouseDownPitch:event:noteMorph: (in category 'simple keyboard') -----
- mouseDownPitch: midiKey event: event noteMorph: noteMorph
-
- midiPort ifNil: [^ super mouseDownPitch: midiKey-1 event: event noteMorph: noteMorph].
- noteMorph color: playingKeyColor.
- soundPlaying
- ifNil: [midiPort ensureOpen]
- ifNotNil: [self turnOffNote].
- self turnOnNote: midiKey + 23.
- !
Item was removed:
- ----- Method: MIDIPianoKeyboardMorph>>mouseUpPitch:event:noteMorph: (in category 'simple keyboard') -----
- mouseUpPitch: midiKey event: event noteMorph: noteMorph
-
- midiPort ifNil: [
- ^ super mouseUpPitch: midiKey event: event noteMorph: noteMorph].
-
- noteMorph color:
- ((#(0 1 3 5 6 8 10) includes: midiKey \\ 12)
- ifTrue: [whiteKeyColor]
- ifFalse: [blackKeyColor]).
- soundPlaying ifNotNil: [self turnOffNote].
- !
More information about the Squeak-dev
mailing list
|