sig
  val cast : 'a Gobject.obj -> Gtk.gtk_status_icon
  module P :
    sig
      val screen : ([> `gtkstatusicon ], Gdk.screen) Gobject.property
      val visible : ([> `gtkstatusicon ], bool) Gobject.property
      val blinking : ([> `gtkstatusicon ], bool) Gobject.property
    end
  module S :
    sig
      val activate : ([> `gtkstatusicon ], unit -> unit) GtkSignal.t
      val popup_menu : ([> `gtkstatusicon ], int -> int -> unit) GtkSignal.t
      val size_changed : ([> `gtkstatusicon ], int -> unit) GtkSignal.t
    end
  val create : Gtk.status_icon Gobject.param list -> Gtk.gtk_status_icon
  external set_from_pixbuf :
    [> `gtkstatusicon ] Gtk.obj -> GdkPixbuf.pixbuf -> unit
    = "ml_gtk_status_icon_set_from_pixbuf"
  external set_from_file : [> `gtkstatusicon ] Gtk.obj -> string -> unit
    = "ml_gtk_status_icon_set_from_file"
  external set_from_stock : [> `gtkstatusicon ] Gtk.obj -> string -> unit
    = "ml_gtk_status_icon_set_from_stock"
  external set_from_icon_name : [> `gtkstatusicon ] Gtk.obj -> string -> unit
    = "ml_gtk_status_icon_set_from_icon_name"
  external get_pixbuf : [> `gtkstatusicon ] Gtk.obj -> GdkPixbuf.pixbuf
    = "ml_gtk_status_icon_get_pixbuf"
  external get_stock : [> `gtkstatusicon ] Gtk.obj -> string
    = "ml_gtk_status_icon_get_stock"
  external get_icon_name : [> `gtkstatusicon ] Gtk.obj -> string
    = "ml_gtk_status_icon_get_icon_name"
  external get_size : [> `gtkstatusicon ] Gtk.obj -> int
    = "ml_gtk_status_icon_get_size"
  external set_screen : [> `gtkstatusicon ] Gtk.obj -> Gdk.screen -> unit
    = "ml_gtk_status_icon_set_screen"
  external get_screen : [> `gtkstatusicon ] Gtk.obj -> Gdk.screen
    = "ml_gtk_status_icon_get_screen"
  external set_tooltip : [> `gtkstatusicon ] Gtk.obj -> string -> unit
    = "ml_gtk_status_icon_set_tooltip"
  external set_visible : [> `gtkstatusicon ] Gtk.obj -> bool -> unit
    = "ml_gtk_status_icon_set_visible"
  external get_visible : [> `gtkstatusicon ] Gtk.obj -> bool
    = "ml_gtk_status_icon_get_visible"
  external set_blinking : [> `gtkstatusicon ] Gtk.obj -> bool -> unit
    = "ml_gtk_status_icon_set_blinking"
  external get_blinking : [> `gtkstatusicon ] Gtk.obj -> bool
    = "ml_gtk_status_icon_get_blinking"
  external is_embedded : [> `gtkstatusicon ] Gtk.obj -> bool
    = "ml_gtk_status_icon_is_embedded"
  val make_params :
    cont:(([> `gtkstatusicon ] as 'a) Gobject.param list -> 'b) ->
    'a Gobject.param list ->
    ?screen:Gdk.screen -> ?visible:bool -> ?blinking:bool -> 'b
end