method delete () = 
   begin
   let start,stop = buffer#bounds in
   buffer#delete ~start ~stop ;
   iter <- buffer#get_iter_at_char 0
   end