method insert_text (buffer: GText.buffer) =
let iter = buffer#get_iter `START in
let data = self#get_data in
let (slocs,ifs,assigns,loops,calls, gotos, mems,cyclos) = data in
buffer#insert ~iter (string_of_int slocs);
buffer#insert ~iter (string_of_int ifs);
buffer#insert ~iter (string_of_int assigns);
buffer#insert ~iter (string_of_int loops);
buffer#insert ~iter (string_of_int calls);
buffer#insert ~iter (string_of_int gotos);
buffer#insert ~iter (string_of_int mems);
buffer#insert ~iter (string_of_int cyclos)