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