external
create : unit
->
style =
"ml_gtk_style_new"