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