# NOT RUN {
object=new("ref_checkbox")
object<- charge(object,title="essai",labels=c("par1","par2","par3"),checked=c(TRUE,TRUE,TRUE))
win=gwindow(title="test ref_checkbox")
group=ggroup(container=win,horizontal=FALSE)
choice(object)
dispose(win)
# }
Run the code above in your browser using DataCamp Workspace