Blame builtin/dialog.mli

Packit bd2e5d
##ifdef CAMLTK
Packit bd2e5d
Packit bd2e5d
val create : ?name: string ->
Packit bd2e5d
  widget -> string -> string -> bitmap -> int -> string list -> int
Packit bd2e5d
  (* [create ~name parent title message bitmap default button_names]
Packit bd2e5d
     cf. tk_dialog *)
Packit bd2e5d
Packit bd2e5d
val create_named :
Packit bd2e5d
  widget -> string -> string -> string -> bitmap -> int -> string list -> int
Packit bd2e5d
  (* [create_named parent name title message bitmap default button_names]
Packit bd2e5d
     cf. tk_dialog *)
Packit bd2e5d
Packit bd2e5d
##else
Packit bd2e5d
Packit bd2e5d
val create :
Packit bd2e5d
  parent: 'a widget ->
Packit bd2e5d
  title: string ->
Packit bd2e5d
  message: string ->
Packit bd2e5d
  buttons: string list ->
Packit bd2e5d
  ?name: string -> ?bitmap: bitmap -> ?default: int -> unit ->int
Packit bd2e5d
  (* [create title message bitmap default button_names parent]
Packit bd2e5d
     cf. tk_dialog *)
Packit bd2e5d
Packit bd2e5d
##endif