## basic group
group = ggroup(horizontal=FALSE, container=gwindow())
add(group, glabel("widget 1"))
add(group, gbutton("widget 2"))
## nested groups
group = ggroup(horizontal=FALSE, container=gwindow())
innergroup = ggroup(container = group)
add(innergroup, gbutton("button 1"))
add(innergroup, gbutton("button 2"))
add(group, gtext("Text area"))
## expand argument
group = ggroup(horizontal=FALSE, container=gwindow())
add(group,gbutton("no expand"))
add(group,gbutton("expand=TRUE"), expand=TRUE)
## add spring
group = ggroup(container=gwindow("menubar-like example"))
add(group, glabel("File",handler=function(h,...) print("file")))
add(group, glabel("Edit",handler=function(h,...) print("edit")))
addSpring(group)
add(group, glabel("Help",handler=function(h,...) print("help")))
Run the code above in your browser using DataLab