[Rd] windows(record=T) loses last plot (PR#3663)

[arnima at u.washington.edu]

Dear r-bugs,

It seems like the windows graphics device is having problems
recording plots when they are 5, 9, 13, ... in number. Given

temp <- function(nplt)
{
  if(exists(".SavedPlots")) rm(.SavedPlots,pos=1)
  for(d in dev.list()) dev.off()
  windows(record=T)
  for(i in 1:nplt) plot(0,0,pch=as.character(i),cex=4)
}

the results are:

temp(1)  # Ok, except PgUp generates unnecessary popup window
temp(2)  # Ok
temp(3)  # Ok
temp(4)  # Ok
temp(5)  # After cycling with PgUp and PgDn, plot 5 is lost
temp(6)  # Ok
temp(7)  # Ok
temp(8)  # Ok
temp(9)  # After cycling with PgUp and PgDn, plot 9 is lost
temp(10) # Ok
temp(11) # Ok
temp(12) # Ok
temp(13) # After cycling with PgUp and PgDn, plot 13 is lost
...
temp(4n+1)


Regards,
Arni

OS: Windows XP
R:  1.7.1