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)