# NOT RUN {
object=new("ref_textbox")
object<- charge(object,title="le titre",label="20")
win=gwindow(title="test ref_textbox")
group=ggroup(container=win,horizontal=FALSE)
choice(object)
dispose(win)
# }
Run the code above in your browser using DataLab