sig
  val create :
    parent:'a Widget.widget ->
    title:string ->
    message:string ->
    buttons:string list ->
    ?name:string -> ?bitmap:Tk.bitmap -> ?default:int -> unit -> int
end