method backward_word = let b = file#buffer in let it = b#get_iter `INSERT in self#place_cursor it#backward_word_start