let name_to_keysym =
("Button1", Configwin_keys.xk_Pointer_Button1) ::
("Button2", Configwin_keys.xk_Pointer_Button2) ::
("Button3", Configwin_keys.xk_Pointer_Button3) ::
("Button4", Configwin_keys.xk_Pointer_Button4) ::
("Button5", Configwin_keys.xk_Pointer_Button5) ::
Configwin_keys.name_to_keysym