`sig
val cast : 'a Gobject.obj -> Gtk.adjustment Gtk.obj
module S :
sig
val changed : ([> `adjustment ], unit -> unit) GtkSignal.t
val value_changed : ([> `adjustment ], unit -> unit) GtkSignal.t
end
val create : Gtk.adjustment Gobject.param list -> Gtk.adjustment Gtk.obj
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 set_value : [> `adjustment ] Gtk.obj -> float -> unit
= "ml_gtk_adjustment_set_value"
external clamp_page :
[> `adjustment ] Gtk.obj -> lower:float -> upper:float -> unit
= "ml_gtk_adjustment_clamp_page"
external get_lower : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_lower"
external get_upper : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_upper"
external get_value : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_value"
external get_step_increment : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_step_increment"
external get_page_increment : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_page_increment"
external get_page_size : [> `adjustment ] Gtk.obj -> float
= "ml_gtk_adjustment_get_page_size"
external set :
?lower:float ->
?upper:float ->
?step_incr:float ->
?page_incr:float -> ?page_size:float -> [> `adjustment ] Gtk.obj -> unit
= "ml_gtk_adjustment_set_bc" "ml_gtk_adjustment_set"
val set_bounds :
[> `adjustment ] Gtk.obj ->
?lower:float ->
?upper:float ->
?step_incr:float -> ?page_incr:float -> ?page_size:float -> unit -> unit
end`