([> Gtk.dialog ] as 'a) Gtk.obj ->
decode:(int -> 'b) ->
object ('c)
  val obj : 'a Gtk.obj
  method add : callback:(GObj.widget -> unit) -> GtkSignal.id
  method after : 'c
  method close : callback:(unit -> unit) -> GtkSignal.id
  method destroy : callback:(unit -> unit) -> GtkSignal.id
  method remove : callback:(GObj.widget -> unit) -> GtkSignal.id
  method response : callback:('b -> unit) -> GtkSignal.id
end