method load file =
      try
        channel <- Rss.channel_of_file file ;
        self#show_channel channel
      with
        Failure s ->
          GToolbox.message_box ~title: "Error" s
      |        Xml.File_not_found _ ->
          self#edit_channel ();
          self#show_channel channel
      |        Xml.Error e ->
          failwith (Printf.sprintf "Error while loading %s:\n%s" file
           (Xml.error e))