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))