Displaying 1 result from an estimated 1 matches for "aux_function".
Did you mean:
add_function
2008 Mar 19
1
Radio Buttons or similars
...t;)
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)
value<-0;
aux_function<- function()
{
rbVal <- as.character(tclvalue(rbValue))
tkdestroy(tt)
if (rbVal=="apples")
tkmessageBox(message="Good choice! An apple a day keeps the doctor
away!")
if (rbVal=="oranges")
tkmessageBox(message="Good choice!...