method refresh () = begin let start,stop = buffer#bounds in buffer#apply_tag_by_name "word_wrap" ~start ~stop ; () end