sig
  val close : ([> `dialog ], unit -> unit) GtkSignal.t
  val response : ([> `dialog ], int -> unit) GtkSignal.t
end