is.it.a.bug <- function() {
require(tcltk)
require(lattice)

OnOK <- function(...)
{
tkdestroy(tt)
curve(cos)
wireframe(cbind(rnorm(10),rnorm(10),rnorm(10)))
}

tt <- tktoplevel()
OK.but <- tkbutton(tt,text="OK",command=OnOK)
tkgrid(OK.but)
}

