open Tk
open Widget
open Mstring

class t (top) =
 val private top = top

method f msg =
  Frx_dialog.f top (gensym "error")
     (I18n.sprintf "MMM Error")
     msg
     (Predefined "error") 0 ["Ok"];
   ()


method ok msg = 
  Frx_dialog.f  top (gensym "error")
     (I18n.sprintf "MMM Notify")
     msg
     (Predefined "info") 0 ["Ok"];
   ()

method choose msg =
 0 =
  Frx_dialog.f top (gensym "error")
    (I18n.sprintf "MMM Choice")
    msg
    (Predefined "question") 1 ["Yes"; "No"]

method ari msg =
  Frx_dialog.f top (gensym "error")
    (I18n.sprintf "MMM Error")
    msg
    (Predefined "question") 1 
    [I18n.sprintf "A)bort"; I18n.sprintf "R)etry"; I18n.sprintf "I)gnore"]

end

let default = new t default_toplevel

(* backward compatibility *)
let f msg = default#f msg
and ok msg = default#ok msg
and choose msg = default#choose msg
and ari msg = default#ari msg
