external create : unit -> style = "ml_gtk_style_new"