`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`