sig
  external create : unit -> Gtk.accel_group = "ml_gtk_accel_group_new"
  external lock : Gtk.accel_group -> unit = "ml_gtk_accel_group_lock"
  external unlock : Gtk.accel_group -> unit = "ml_gtk_accel_group_unlock"
  val connect :
    key:Gdk.keysym ->
    ?modi:Gdk.Tags.modifier list ->
    ?flags:Gtk.Tags.accel_flag list ->
    callback:(unit -> unit) -> Gtk.accel_group -> unit
  val disconnect :
    key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> Gtk.accel_group -> bool
  val groups_activate :
    key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> 'a Gtk.obj -> bool
  external valid : key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> bool
    = "ml_gtk_accelerator_valid"
  external set_default_mod_mask : Gdk.Tags.modifier list option -> unit
    = "ml_gtk_accelerator_set_default_mod_mask"
  external parse : string -> Gdk.keysym * Gdk.Tags.modifier list
    = "ml_gtk_accelerator_parse"
  external name : key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> string
    = "ml_gtk_accelerator_name"
  external get_label :
    key:Gdk.keysym -> ?modi:Gdk.Tags.modifier list -> string
    = "ml_gtk_accelerator_get_label"
end