sig
  external create : unit -> Gtk.style = "ml_gtk_style_new"
  external copy : Gtk.style -> Gtk.style = "ml_gtk_style_copy"
  external attach : Gtk.style -> Gdk.window -> Gtk.style
    = "ml_gtk_style_attach"
  external detach : Gtk.style -> unit = "ml_gtk_style_detach"
  external set_window_background :
    Gtk.style -> Gdk.window -> Gtk.Tags.state_type -> unit
    = "ml_gtk_style_set_background"
  external get_bg : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_bg"
  external set_bg : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_bg"
  external get_fg : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_fg"
  external set_fg : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_fg"
  external get_light : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_light"
  external set_light : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_light"
  external get_dark : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_dark"
  external set_dark : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_dark"
  external get_mid : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_mid"
  external set_mid : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_mid"
  external get_base : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_base"
  external set_base : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_base"
  external get_text : Gtk.style -> Gtk.Tags.state_type -> Gdk.color
    = "ml_gtk_style_get_text"
  external set_text : Gtk.style -> Gtk.Tags.state_type -> Gdk.color -> unit
    = "ml_gtk_style_set_text"
end