Hi again, in the meantime I found the mistake I made. "variable" had not the same identifier.
Regards, Alex -----Original Message----- From: Alexander Wurzer [mailto:[EMAIL PROTECTED] Sent: Thursday, 26. July 2007 09:06 To: (r-sig-gui@stat.math.ethz.ch) Subject: TCLTK Radiobutton-Problem 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
