type t
type kind =
| Horizontal
| HBar
| Vertical
| Circular
val size : t -> int * int
val value : t -> int
Get current value.
val get_max : t -> int
val set : t -> int -> unit
Set a new value.