|
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
|