sig
  val cast : 'a Gobject.obj -> Gtk.progress_bar Gtk.obj
  module P :
    sig
      val adjustment :
        ([> `progressbar ], Gtk.adjustment Gtk.obj) Gobject.property
      val orientation :
        ([> `progressbar ], GtkEnums.progress_bar_orientation)
        Gobject.property
      val activity_blocks : ([> `progressbar ], int) Gobject.property
      val activity_step : ([> `progressbar ], int) Gobject.property
      val bar_style :
        ([> `progressbar ], GtkEnums.progress_bar_style) Gobject.property
      val discrete_blocks : ([> `progressbar ], int) Gobject.property
      val fraction : ([> `progressbar ], float) Gobject.property
      val pulse_step : ([> `progressbar ], float) Gobject.property
      val text : ([> `progressbar ], string) Gobject.property
      val ellipsize :
        ([> `progressbar ], PangoEnums.ellipsize_mode) Gobject.property
    end
  val create :
    Gtk.progress_bar Gobject.param list -> Gtk.progress_bar Gtk.obj
  external pulse : [> `progressbar ] Gtk.obj -> unit
    = "ml_gtk_progress_bar_pulse"
  val make_params :
    cont:(([> `progressbar ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list ->
    ?orientation:GtkEnums.progress_bar_orientation -> ?pulse_step:float -> 'b
end