dialog#check_widgets ();
dialog
- method newConfirmationDialog ~title ~msg () =
+ method newConfirmationDialog () =
let dialog = new confirmationDialog ~file () in
- dialog#confirmationDialog#set_title title;
- dialog#confirmationDialogLabel#set_label msg;
+ dialog#check_widgets ();
+ dialog
+
+ method newTextDialog () =
+ let dialog = new textDialog ~file () in
dialog#check_widgets ();
dialog