# NOT RUN {
w <- gwindow("gformlayout", visible=FALSE)
f <- gframe("frame", horizontal=FALSE, container=w)
glabel("Lorem ipsum dolor sit amet, \nconsectetur adipiscing elit.", container=f)
gbutton("change name", container=f, handler=function(h,...) {
names(f) <- "new name"
})
visible(w) <- TRUE
# }
Run the code above in your browser using DataLab