22 lines
723 B
OCaml
22 lines
723 B
OCaml
##ifdef CAMLTK
|
|
|
|
(* Support for tk_optionMenu *)
|
|
val create: ?name: string ->
|
|
widget -> textVariable -> string list -> widget * widget
|
|
(** [create ?name parent var options] creates a multi-option menubutton and
|
|
its associated menu. The option is also stored in the variable.
|
|
Both widgets (menubutton and menu) are returned. *)
|
|
|
|
##else
|
|
|
|
(* Support for tk_optionMenu *)
|
|
val create:
|
|
parent:'a widget ->
|
|
variable:textVariable ->
|
|
?name: string -> string list -> menubutton widget * menu widget
|
|
(** [create ~parent ~var ~name options] creates a multi-option menubutton
|
|
and its associated menu. The option is also stored in the variable.
|
|
Both widgets (menubutton and menu) are returned *)
|
|
|
|
##endif
|