Etoys: Morphic-kfr.67.mcz

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

_______________________________________________
etoys-dev mailing list
[hidden email]
http://lists.squeakland.org/mailman/listinfo/etoys-dev