sig
  val cast : 'a Gobject.obj -> Gtk.adjustment Gtk.obj
  module P = GtkBaseProps.Adjustment.P
  module S = GtkBaseProps.Adjustment.S
  val make_params :
    cont:(([> `adjustment ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list ->
    ?lower:float ->
    ?page_increment:float ->
    ?page_size:float ->
    ?step_increment:float -> ?upper:float -> ?value:float -> 'b
  external create :
    value:float ->
    lower:float ->
    upper:float ->
    step_incr:float ->
    page_incr:float -> page_size:float -> Gtk.adjustment Gtk.obj
    = "ml_gtk_adjustment_new_bc" "ml_gtk_adjustment_new"
  external clamp_page :
    [> `adjustment ] Gtk.obj -> lower:float -> upper:float -> unit
    = "ml_gtk_adjustment_clamp_page"
end