external get_base : style -> state_type -> Gdk.color
      = "ml_gtk_style_get_base"