sig
  external load : string -> unit = "ml_gtk_accel_map_load"
  external save : string -> unit = "ml_gtk_accel_map_save"
  external add_entry :
    string -> key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> unit
    = "ml_gtk_accel_map_add_entry"
  val add_entry :
    ?key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> string -> unit
end