[R] Interactive plot

[Megh Dal]

I have created following interactive plot :

library(TeachingDemos)
plott = function(x)
   {
    return(hist(rnorm(as.integer(1000, 10, x)), xlab=NA))
   }
tkexamp(plott, list(x=list('slider',from=1,to=40, resolution=0.1, init=2)), plotloc='top')

Here everything works fine, but the problaem is whenever I try to drag the slider the entire plot window goind behind the screen. Can anyone please tell me what should I do?

Regards,