let rc = ref false in
let callback _ = () in
let buttons = GWindow.Buttons.ok in
-( try
+ try
popup_message ~title ~message ~message_type:`ERROR ~callback ~buttons
?parent ()
with
| PopupClosed -> ()
-);prerr_endline "AAAAAAA"
let ask_text ~(gui:#gui) ?(title = "") ?(msg = "") ?(multiline = false) () =