`sig
val cast : 'a Gobject.obj -> Gtk.scale Gtk.obj
module P :
sig
val digits : ([> `scale ], int) Gobject.property
val draw_value : ([> `scale ], bool) Gobject.property
val value_pos : ([> `scale ], GtkEnums.position_type) Gobject.property
end
module S :
sig val format_value : ([> `scale ], float -> string) GtkSignal.t end
val create :
Gtk.Tags.orientation -> Gtk.scale Gobject.param list -> Gtk.scale Gtk.obj
val make_params :
cont:(([> `scale ] as 'a) Gobject.param list -> 'b) ->
'a Gobject.param list ->
?digits:int ->
?draw_value:bool -> ?value_pos:GtkEnums.position_type -> 'b
end`