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 draw_hline :
    Gtk.style ->
    Gdk.window -> Gtk.Tags.state_type -> x:int -> x:int -> y:int -> unit
    = "ml_gtk_draw_hline_bc" "ml_gtk_draw_hline"
  external draw_vline :
    Gtk.style ->
    Gdk.window -> Gtk.Tags.state_type -> y:int -> y:int -> x:int -> unit
    = "ml_gtk_draw_vline_bc" "ml_gtk_draw_vline"
  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"
  external get_colormap : Gtk.style -> Gdk.colormap
    = "ml_gtk_style_get_colormap"
  external get_font : Gtk.style -> Gdk.font = "ml_gtk_style_get_font"
  external set_font : Gtk.style -> Gdk.font -> unit = "ml_gtk_style_set_font"
end