method forward_char = let b = file#buffer in let it = b#get_iter `INSERT in self#place_cursor it#forward_cursor_position