let main () =
  let _ = GMain.Main.init () in
  let files = ref [] in
  let set_locale s =
    ignore(Glib.Main.setlocale `CTYPE (Some s))
  in
  Arg.parse
    [
      "--locale"Arg.String set_locale,
      "<locale>\n\t\tset locale, for example fr_FR" ;
    ]
    (fun s -> files := !files @ [s])
    usage;

  ignore(new Rss_gui.gui !files);
  GMain.Main.main ()