This sounds like it was in the middle of a conversation offlist :)
lb wrote:
Hi??Michal
I used Pharo 3 or 4 and happened to the similar problem, l found: (Pls
notice the Bold Part)
HandMorph>>generateKeyboardEvent: evtBuf
"Generate the appropriate mouse event for the given raw event buffer"
| buttons modifiers type pressType stamp charCode keyValue keyEvent |
stamp := evtBuf second.
stamp = 0 ifTrue: [stamp := Time millisecondClockValue].
pressType := evtBuf fourth.
pressType = EventKeyDown
ifTrue: [
type := #keyDown.
lastKeyScanCode := evtBuf third].
pressType = EventKeyUp ifTrue: [type := #keyUp].
pressType = EventKeyChar ifTrue: [
type := #keystroke].
modifiers := evtBuf fifth.
buttons := modifiers bitShift: 3.
keyValue := evtBuf third.
charCode := evtBuf sixth.
* "Adjustments to provide consistent key value data for different VM's :*
* - charCode always contains unicode code point.*
* - keyValue contains 0 if input is outside legacy range "*
* "If there is no unicode data in the event, assume keyValue contains a
correct (<256) Unicode codepoint, and use that"*
* (charCode isNil*
* or: [charCode = 0])*
* ifTrue: [charCode := keyValue].*
* "If charCode is not single-byte, we definately have Unicode input. Nil
keyValue to avoid garbage values from some VMs." *
* charCode > 255 ifTrue: [keyValue := 0].*
type = #keystroke
ifTrue: [combinedChar
ifNil: [
| peekedEvent |
peekedEvent := Sensor peekEvent.
(peekedEvent notNil
and: [peekedEvent fourth = EventKeyDown])
ifTrue: [
(CombinedChar isCompositionCharacter: charCode)
ifTrue: [
combinedChar := CombinedChar new.
combinedChar simpleAdd: charCode asCharacter.
(combinedChar combinesWith: peekedEvent third asCharacter)
ifTrue: [^nil].
]]]
ifNotNil: [
(combinedChar simpleAdd: charCode asCharacter)
ifTrue: [charCode := combinedChar combined charCode].
combinedChar := nil]].
self flag: #fixme.
"This piece of code handles the creation of scrolling events. When a
scroll is done by the user, the VM forwards a keystroke event with the
up/down key. So we reconvert it to a MouseWheelEvent in that case."
(type = #keystroke and: [(buttons anyMask: 16)
and: [charCode = 30 or: [charCode = 31]]])
ifTrue: [^MouseWheelEvent new
setType: #mouseWheel
position: lastMouseEvent cursorPoint
direction: (charCode = 30 ifTrue: [#up] ifFalse: [#down])
buttons: buttons
hand: self
stamp: stamp].
keyEvent := KeyboardEvent new
setType: type
buttons: buttons
position: self position
keyValue: keyValue
charCode: charCode
hand: self
stamp: stamp.
keyEvent scanCode: lastKeyScanCode.
^keyEvent
MayBe it works.
Have a fun!
BingLiang
