+ self#buffer#insert text;
+ let hyperlink_tag = self#buffer#create_tag [`FOREGROUND "green"] in
+ List.iter
+ ( fun (start,stop,(href : string)) ->
+ self#buffer#apply_tag hyperlink_tag
+ ~start:(self#buffer#get_iter (`OFFSET start))
+ ~stop:(self#buffer#get_iter (`OFFSET stop))
+ ) hyperlinks