# NOT RUN {
if(interactive()) {
w <- gwindow("Box containers")
g <- gvbox(cont=w) # ggroup(horizonta=FALSE, ...)
nb <- gnotebook(cont=g); gbutton("one", label="one", cont=nb)
gframe("Frame", cont=g)
pg <- gpanedgroup(cont=g); gbutton("one", cont=pg); gbutton("two", cont=pg)
}
# }
Run the code above in your browser using DataLab