method reload =
      let f () =
        data := fill_data (Odoc_info.load_modules file);
        tree#update
      in
      Some f