method backward_char = let b = file#buffer in let it = b#get_iter `INSERT in self#place_cursor it#backward_cursor_position