# NOT RUN {
object=new("ref_choice")
object<-charge(object,vecteur=c("oui","non"),label="essai",selected=as.integer(1))
win=gwindow(title="test ref_choice")
group=ggroup(container=win,horizontal=FALSE)
choice(object)
dispose(win)
# }
Run the code above in your browser using DataLab