sig
  val create :
    ?name:string ->
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?cursor:Tk.cursor ->
    ?exportselection:bool ->
    ?font:string ->
    ?foreground:Tk.color ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?relief:Tk.relief ->
    ?selectbackground:Tk.color ->
    ?selectborderwidth:int ->
    ?selectforeground:Tk.color ->
    ?selectmode:Tk.selectModeType ->
    ?setgrid:bool ->
    ?takefocus:bool ->
    ?width:int ->
    ?xscrollcommand:(first:float -> last:float -> unit) ->
    ?yscrollcommand:(first:float -> last:float -> unit) ->
    'a Widget.widget -> Widget.listbox Widget.widget
  val activate :
    Widget.listbox Widget.widget -> index:Tk.listbox_index -> unit
  val bbox :
    Widget.listbox Widget.widget ->
    index:Tk.listbox_index -> int * int * int * int
  val configure :
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?cursor:Tk.cursor ->
    ?exportselection:bool ->
    ?font:string ->
    ?foreground:Tk.color ->
    ?height:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?relief:Tk.relief ->
    ?selectbackground:Tk.color ->
    ?selectborderwidth:int ->
    ?selectforeground:Tk.color ->
    ?selectmode:Tk.selectModeType ->
    ?setgrid:bool ->
    ?takefocus:bool ->
    ?width:int ->
    ?xscrollcommand:(first:float -> last:float -> unit) ->
    ?yscrollcommand:(first:float -> last:float -> unit) ->
    Widget.listbox Widget.widget -> unit
  val configure_get : Widget.listbox Widget.widget -> string
  val curselection : Widget.listbox Widget.widget -> [> `Num of int ] list
  val delete :
    Widget.listbox Widget.widget ->
    first:Tk.listbox_index -> last:Tk.listbox_index -> unit
  val get : Widget.listbox Widget.widget -> index:Tk.listbox_index -> string
  val get_range :
    Widget.listbox Widget.widget ->
    first:Tk.listbox_index -> last:Tk.listbox_index -> string list
  val index :
    Widget.listbox Widget.widget ->
    index:Tk.listbox_index -> [> `Num of int ]
  val insert :
    Widget.listbox Widget.widget ->
    index:Tk.listbox_index -> texts:string list -> unit
  val nearest : Widget.listbox Widget.widget -> y:int -> [> `Num of int ]
  val scan_dragto : Widget.listbox Widget.widget -> x:int -> y:int -> unit
  val scan_mark : Widget.listbox Widget.widget -> x:int -> y:int -> unit
  val see : Widget.listbox Widget.widget -> index:Tk.listbox_index -> unit
  val selection_anchor :
    Widget.listbox Widget.widget -> index:Tk.listbox_index -> unit
  val selection_clear :
    Widget.listbox Widget.widget ->
    first:Tk.listbox_index -> last:Tk.listbox_index -> unit
  val selection_includes :
    Widget.listbox Widget.widget -> index:Tk.listbox_index -> bool
  val selection_set :
    Widget.listbox Widget.widget ->
    first:Tk.listbox_index -> last:Tk.listbox_index -> unit
  val size : Widget.listbox Widget.widget -> int
  val xview : Widget.listbox Widget.widget -> scroll:Tk.scrollValue -> unit
  val xview_get : Widget.listbox Widget.widget -> float * float
  val xview_index :
    Widget.listbox Widget.widget -> index:Tk.listbox_index -> unit
  val yview : Widget.listbox Widget.widget -> scroll:Tk.scrollValue -> unit
  val yview_get : Widget.listbox Widget.widget -> float * float
  val yview_index :
    Widget.listbox Widget.widget -> index:Tk.listbox_index -> unit
end