method set_lang o =
lang <- o;
match lang with
None -> taglist#update_data []
| Some l ->
let tags = List.map (fun t -> t#id) l#get_tags in
taglist#update_data tags;
self#update_params_widgets