classCreate popup windows[[> `DELETE_EVENT ]]
dialog_ext :[> Gtk.dialog ] Gtk.obj ->
object
..end
val obj : ([> Gtk.dialog ] as 'a) Gtk.obj
method add_button : string -> ([> `DELETE_EVENT ] as 'b) -> unit
method add_button_stock : GtkStock.id -> 'b -> unit