Hi nicolas
this is strange because 10301 was a bunch for collection test and a
merge fix for traits.
then the 302 were mainly your fixes on numbers. So I have no idea about
what is happening.
Did that happened during 10303 because there the changes were the one
below + InputSensor initalization.
Stef
'From Pharo0.1 of 16 May 2008 [Latest update: #10300] on 11 May 2009
at 8:00:50 pm'!
!HostSystemMenusMenuItem class methodsFor: 'handlers' stamp:
'michael.rueger 5/11/2009 19:57'!
fakeKeyboardEventBlockasciiActual: anAsciiValue unicode: aUnicodeValue
event: evt
|event |
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: aUnicodeValue asInteger;
at: 4 put: 1; "key down"
at: 5 put: 8; "modifier keys (CmmandKeyBit)"
at: 8 put: (evt at: 8).
Sensor handleEvent: event.
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: anAsciiValue asInteger;
at: 4 put: 0; "key char"
at: 5 put: 8; "modifier keys (CmmandKeyBit)"
at: 8 put: (evt at: 8).
Sensor handleEvent: event.
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: aUnicodeValue asInteger;
at: 4 put: 2; "key press/release"
at: 5 put: 64; "modifier keys (CmmandKeyBit)"
at: 8 put: (evt at: 8).
Sensor handleEvent: event! !
!HostSystemMenusMenuItem class methodsFor: 'handlers' stamp:
'michael.rueger 5/11/2009 19:57'!
fakeKeyboardEventBlockasciiActual: anAsciiValue unicode: aUnicodeValue
event: evt virtualKey: aVirtualKeyValue
|event |
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: aVirtualKeyValue asInteger;
at: 4 put: 1; "key down"
at: 5 put: 8; "modifier keys (CmmandKeyBit)"
at: 8 put: (evt at: 8).
Sensor handleEvent: event.
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: anAsciiValue asInteger;
at: 4 put: 0; "key char"
at: 5 put: 8; "modifier keys (CmmandKeyBit)"
at: 6 put: aUnicodeValue asInteger; "virtual key code"
at: 8 put: (evt at: 8).
Sensor handleEvent: event.
event := Array new: 8.
event at: 1 put: 2 "EventTypeKeyboard";
at: 2 put: Time millisecondClockValue;
at: 3 put: aVirtualKeyValue asInteger;
at: 4 put: 2; "key press/release"
at: 5 put: 64; "modifier keys (CmmandKeyBit)"
at: 8 put: (evt at: 8).
Sensor handleEvent: event! !
>
> Hmm, a high priority process taking CPU for a long time, that
> smells...
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
