method insert s_utf8 = if active then let it = buffer#get_iter `INSERT in let p = it#offset in if p >= editable_from then buffer#insert s_utf8 else () else ()