method reload =
      main_group := safe_load to_utf8 filename;
      tree#set_modified false;
      tree#update