let edit_available_languages_styles ?modal () =
let d = GWindow.dialog ?modal ~type_hint: `DIALOG ~width: 400 ~height: 400 () in
let b = new multi_lang_style_box () in
let f_ok () = b#save; d#destroy () in
let f_cancel () = b#restore; d#destroy () in
d#vbox#pack ~expand: true ~fill: true b#box;
d#add_button_stock `OK `OK;
d#add_button_stock `CANCEL `CANCEL;
match d#run () with
`OK -> f_ok ()
| `CANCEL
| `DELETE_EVENT -> f_cancel ()