method forward_word =
      let b = file#buffer in
      let it = b#get_iter `INSERT in
      self#place_cursor it#forward_word_end