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
_______________________________________________
R-SIG-GUI mailing list
R-SIG-GUI@stat.math.ethz.ch
https://stat.ethz.ch/mailman/listinfo/r-sig-gui
