l4/pkg/ocaml/ocaml/contrib/otherlibs/labltk/builtin/dialog.mli

   1 ##ifdef CAMLTK
   2
   3 val create : ?name: string ->
   4   widget -> string -> string -> bitmap -> int -> string list -> int
   5   (* [create ~name parent title message bitmap default button_names]
   6      cf. tk_dialog *)
   7
   8 val create_named :
   9   widget -> string -> string -> string -> bitmap -> int -> string list -> int
  10   (* [create_named parent name title message bitmap default button_names]
  11      cf. tk_dialog *)
  12
  13 ##else
  14
  15 val create :
  16   parent: 'a widget ->
  17   title: string ->
  18   message: string ->
  19   buttons: string list ->
  20   ?name: string -> ?bitmap: bitmap -> ?default: int -> unit ->int
  21   (* [create title message bitmap default button_names parent]
  22      cf. tk_dialog *)
  23
  24 ##endif