## button group example
w <- gwindow("Button examples")
g <- ggroup(cont = w)
addSpring(g) ## push to right of widget
gbutton("help", cont = g)
addSpace(g, 20) ## some breathing room
gbutton("cancel", cont = g)
gbutton("ok", cont = g, handler = function(h, ...) cat("do it\n"))
Run the code above in your browser using DataLab