sig
  external load : string -> unit = "ml_gtk_accel_map_load"
  external save : string -> unit = "ml_gtk_accel_map_save"
  val add_entry :
    ?key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> string -> unit
  val change_entry :
    ?key:Gdk.keysym ->
    ?modi:Gdk.Tags.modifier list -> ?replace:bool -> string -> bool
  external foreach :
    (path:string ->
     key:int -> modi:Gdk.Tags.modifier list -> changed:bool -> unit) ->
    unit = "ml_gtk_accel_map_foreach"
end