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