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