`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`