[R] tcltk crashing R after the (ab)use of tkwait

[Alberto Monteiro]

Dieter Menne wrote:
> 
>> library(tcltk)
>> tt <- tktoplevel()
>> done <- tclVar(0)
>> but <- tkbutton(tt, text="OK", command=function() tclvalue(done) <- 1)
>> tkpack(but)
>> tkwait.variable(done)
>> 
>> works as fine as long as I click the OK. However, if I close
>> the window (by clicking in the X), R enters into an infinite loop
>> and there's no way of returning except by closing the R window.
> 
> Works for me with R-2.4.1 on Windows 2000. So better tell us about 
> the details of your operating system.
>
R 2.4.1 on Windows XP. Should they work differently?

Alberto Monteiro