method insert_text (buffer: GText.buffer) =
let iter = buffer#get_iter `START in
let metrics_data = self#get_data in
buffer#insert ~iter (string_of_int metrics_data.cslocs);
buffer#insert ~iter (string_of_int metrics_data.cifs);
buffer#insert ~iter (string_of_int metrics_data.cassigns);
buffer#insert ~iter (string_of_int metrics_data.cloops);
buffer#insert ~iter (string_of_int metrics_data.ccalls);
buffer#insert ~iter (string_of_int metrics_data.cgotos);
buffer#insert ~iter (string_of_int metrics_data.cptrs);
buffer#insert ~iter (string_of_int (cyclo metrics_data))