class['a]
dialog_signals :[> Gtk.dialog ] Gtk.obj -> decode:(int -> 'a) ->
object
..end
val obj : ([> Gtk.dialog ] as 'b) Gtk.obj
method response : callback:('a -> unit) -> GtkSignal.id
method close : callback:(unit -> unit) -> GtkSignal.id