sig
  val create :
    ?name:string ->
    ?activebackground:Tk.color ->
    ?activerelief:Tk.relief ->
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?command:(scroll:Tk.scrollValue -> unit) ->
    ?cursor:Tk.cursor ->
    ?elementborderwidth:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?jump:bool ->
    ?orient:Tk.orientation ->
    ?relief:Tk.relief ->
    ?repeatdelay:int ->
    ?repeatinterval:int ->
    ?takefocus:bool ->
    ?troughcolor:Tk.color ->
    ?width:int -> 'a Widget.widget -> Widget.scrollbar Widget.widget
  val activate :
    Widget.scrollbar Widget.widget -> element:Tk.scrollbarElement -> unit
  val activate_get : Widget.scrollbar Widget.widget -> Tk.scrollbarElement
  val configure :
    ?activebackground:Tk.color ->
    ?activerelief:Tk.relief ->
    ?background:Tk.color ->
    ?borderwidth:int ->
    ?command:(scroll:Tk.scrollValue -> unit) ->
    ?cursor:Tk.cursor ->
    ?elementborderwidth:int ->
    ?highlightbackground:Tk.color ->
    ?highlightcolor:Tk.color ->
    ?highlightthickness:int ->
    ?jump:bool ->
    ?orient:Tk.orientation ->
    ?relief:Tk.relief ->
    ?repeatdelay:int ->
    ?repeatinterval:int ->
    ?takefocus:bool ->
    ?troughcolor:Tk.color ->
    ?width:int -> Widget.scrollbar Widget.widget -> unit
  val configure_get : Widget.scrollbar Widget.widget -> string
  val delta : Widget.scrollbar Widget.widget -> x:int -> y:int -> float
  val fraction : Widget.scrollbar Widget.widget -> x:int -> y:int -> float
  val get : Widget.scrollbar Widget.widget -> float * float
  val identify :
    Widget.scale Widget.widget -> int -> int -> Tk.scrollbarElement
  val old_get : Widget.scrollbar Widget.widget -> int * int * int * int
  val old_set :
    Widget.scrollbar Widget.widget ->
    total:int -> window:int -> first:int -> last:int -> unit
  val set :
    Widget.scrollbar Widget.widget -> first:float -> last:float -> unit
end