Karl Ramberg uploaded a new version of Morphic to project Etoys: http://source.squeak.org/etoys/Morphic-kfr.67.mcz
==================== Summary ====================
Name: Morphic-kfr.67 Author: kfr Time: 30 September 2011, 1:07:34 am UUID: 70373fef-b0b3-1f49-97ba-f5d6f84d08ad Ancestors: Morphic-kfr.66
Fix keyDown/keyUp events. Must not be interpreted. Berts fix
=============== Diff against Morphic-kfr.66 ===============
Item was changed: ----- Method: HandMorph>>generateKeyboardEvent: (in category 'private events') ----- generateKeyboardEvent: evtBuf "Generate the appropriate mouse event for the given raw event buffer"
+ | buttons modifiers type pressType stamp keyValue | - | buttons modifiers type pressType stamp char | stamp := evtBuf second. stamp = 0 ifTrue: [stamp := Time millisecondClockValue]. pressType := evtBuf fourth. pressType = EventKeyDown ifTrue: [type := #keyDown]. pressType = EventKeyUp ifTrue: [type := #keyUp]. pressType = EventKeyChar ifTrue: [type := #keystroke]. modifiers := evtBuf fifth. buttons := modifiers bitShift: 3. + type = #keystroke + ifTrue: [keyValue := (self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf) asInteger] + ifFalse: [keyValue := evtBuf third]. - char _ self keyboardInterpreter nextCharFrom: Sensor firstEvt: evtBuf. ^ KeyboardEvent new setType: type buttons: buttons position: self position + keyValue: keyValue - keyValue: char asciiValue hand: self stamp: stamp. !