[R-gui] TCLTK Radiobutton-Problem

[Alexander Wurzer]

Hi everybody,

I'm currently working on my first tcl-Interface and now I have troubles with
radiobuttons. Everything works fine with a static set of radiobuttons.
But I need a dynamic solution. 

Here is a simplified example what I mean:

# static solution works fine
require(tcltk)
tt <- tktoplevel()
rb1 <- tkradiobutton(tt)
rb2 <- tkradiobutton(tt)
rbValue <- tclVar("oranges")
tkconfigure(rb1,variable=rbValue,value="apples")
tkconfigure(rb2,variable=rbValue,value="oranges")
tkgrid(tklabel(tt,text="Which do you prefer?"))
tkgrid(tklabel(tt,text="Apples "),rb1)
tkgrid(tklabel(tt,text="Oranges "),rb2)

# troubles with dynamic version 
require(tcltk)
tt <- tktoplevel()
fruits=c("Apple","Orange","Banana")
tkgrid(tklabel(tt,text="Which do you prefer?"))
myenv <<- new.env() # I thought this help, but it doesn't change anything...

for(i in 1:length(fruits))
{  eval(parse(text=paste("rb",i,"=tkradiobutton(tt)",sep="")),env=myenv)
   rbValue <- tclVar("Orange")
 
eval(parse(text=paste("tkconfigure(rb",i,",variable=rbValue,value=fruits[i])
",sep="")),env=myenv)
 
eval(parse(text=paste("tkgrid(tklabel(tt,text=fruits[i]),rb",i,")",sep="")),
env=myenv)
}
tkfocus(tt)

The Problem is, that in the dynamic version each radiobutton can be selected
and I don't know why.

Has anybody an idea what to do to solve this problem?

Many thanks for your support!

Regards,
Alex