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