Blame builtin/optionmenu.mli

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