GdkEvent.Key.state always indicates MOD2

[ildar]

I'm using lablgtk with GTK+2 on X11.

I've modified events.ml example and it shows that every key_press event's state has `MOD2.

I've checked with xkbwatch and it shows that mod2 is off as expected.

How I help with debugging that?

Thanks in advance.

[garrigue]

That's quite mysterious. I tried doing the same kind of experiment on MacOS, but MOD2 (which is mapped to the command key) only appears when it is pressed. This may be a Gtk issue.

[ildar]

Well, running this:

(**************************************************************************) (* Lablgtk - Examples *) (* *) (* This code is in the public domain. *) (* You may freely copy parts of it in your application. *) (* *) (**************************************************************************)

(* $Id$ *)

(* This is a direct translation to Gtk2. This is actually meaningless, as the new text widget lets you obtain an iterator from coordinates, but this just demonstrates the use of [#event#send]. ) ( Old comment by Benjamin: I cannot translate this program directly to Gtk 2. The event generation causes segfault and starts some drag-n-drop op. The default signal for left button has probably changed.) ( I don't see segfaults, just Gtk-criticals. Seems the default handler for button 3 is still called, and I see no way to disable that. But this is not really relevant to [#event#send]. *)

let string_of_event x = match GdkEvent.get_type x with | NOTHING -> "nothing" | DELETE -> "delete" | DESTROY -> "destroy" | EXPOSE -> "expose" | MOTION_NOTIFY -> "motion-notify" | BUTTON_PRESS -> "button-press" | TWO_BUTTON_PRESS -> "2 button-press" | THREE_BUTTON_PRESS -> "3 button-press" | BUTTON_RELEASE -> "button-release" | KEY_PRESS -> "key-press" | KEY_RELEASE -> "key-release" | ENTER_NOTIFY -> "enter-notfiy" | LEAVE_NOTIFY -> "leave-notify" | FOCUS_CHANGE -> "focus-change" | CONFIGURE -> "configure" | MAP -> "map" | UNMAP -> "unmap" | PROPERTY_NOTIFY -> "property-notify" | SELECTION_CLEAR -> "selection-clear" | SELECTION_REQUEST -> "selection-request" | SELECTION_NOTIFY -> "selection-notify" | PROXIMITY_IN -> "proximity-in" | PROXIMITY_OUT -> "proximiy-out" | DRAG_ENTER -> "drag-enter" | DRAG_LEAVE -> "drag-leave" | DRAG_MOTION -> "drag-motion" | DRAG_STATUS -> "drag-status" | DROP_START -> "drop-start" | DROP_FINISHED -> "drop-finish" | CLIENT_EVENT -> "client-event" | VISIBILITY_NOTIFY -> "visibility-notify" | NO_EXPOSE-> "no-expose" | SCROLL -> "scroll" | WINDOW_STATE -> "window-state" | SETTING -> "setting" | OWNER_CHANGE -> "owner-change" | GRAB_BROKEN -> "grab-broken" | DAMAGE -> "damage" | TOUCH_BEGIN -> "touch-begin" | TOUCH_UPDATE -> "touch-update" | TOUCH_END -> "touch-end" | TOUCH_CANCEL -> "touch-cancel" | TOUCHPAD_SWIPE -> "touchpad-swipe" | TOUCHPAD_PINCH -> "touchpad-pinch"

let rec string_of_event_key_state_list l = match l with | [] -> "[]" | [ BUTTON1 ] -> "BUTTON1" | [ BUTTON2 ] -> "BUTTON2" | [ BUTTON3 ] -> "BUTTON3" | [ BUTTON4 ] -> "BUTTON4" | [ BUTTON5 ] -> "BUTTON5" | [ CONTROL ] -> "CONTROL" | [ HYPER ] -> "HYPER" | [ LOCK ] -> "LOCK" | [ META ] -> "META" | [ MOD1 ] -> "MOD1" | [ MOD2 ] -> "MOD2" | [ MOD3 ] -> "MOD3" | [ MOD4 ] -> "MOD4" | [ MOD5 ] -> "MOD5" | [ RELEASE ] -> "RELEASE" | [ SHIFT ] -> "SHIFT" | [ SUPER ] -> "SUPER" | hd::tl -> String.concat (string_of_event_key_state_list [ hd ]) [string_of_event_key_state_list tl]

let _ = GMain.init (); let window = GWindow.window ~width:200 ~height:200 () in window#connect#destroy ~callback:GMain.quit ; window#event#add [ALL_EVENTS]; window#event#connect#key_press (fun x -> prerr_string ">> before "; prerr_endline (string_of_event x); prerr_endline (string_of_event_key_state_list @@ GdkEvent.Key.state x); false); let text = GText.view ~packing:window#add () in let buffer = text#buffer in text#event#connect#button_press ~callback: begin fun ev -> GdkEvent.Button.button ev = 3 && GdkEvent.get_type ev = BUTTON_PRESS && begin let pos = buffer#get_iter_at_mark INSERT in GdkEvent.Button.set_button ev 1; text#event#send (ev :> GdkEvent.any); Printf.printf "Position is %d.\n" pos#offset; flush stdout; buffer#move_mark INSERT ~where:pos; GtkSignal.stop_emit (); true end end; window#show (); GMain.main ()

I see this:

> before key-press
`MOD2
> before key-press
`MOD2

[ildar]

I couldn't find the original C GTK code to check.

[garrigue]

I tried your code, and only the correct modifiers appear. So this looks like a problem in the version of gtk you are using.