method save_to_file f =
try
let oc = open_out f in
let l = List.rev phrases in
List.iter
(fun s -> Printf.fprintf oc "%s\n" s)
l;
close_out oc
with
Sys_error s ->
GToolbox.message_box param#s_error s
| e ->
GToolbox.message_box param#s_error (Printexc.to_string e)