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
        ()