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