## basic group
group <- ggroup(horizontal=FALSE, container=gwindow())
l <- glabel("widget 1") ## not in gWidgetstcltk -- needs a container
add(group, l)
glabel("widget 2", container = group) ## style for all toolkits
## nested groups
group <- ggroup(horizontal=FALSE, container=gwindow())
innergroup <- ggroup(container = group)
gtext("Text area", container=group)
gbutton("button 1", container = innergroup)
gbutton("button 2", container = innergroup)
## expand argument
group <- ggroup(horizontal=FALSE, container=gwindow())
gbutton("no expand", container=group)
gbutton("expand=TRUE", container=group, expand=TRUE)
## anchor argument
w <- gwindow("Anchor")
size(w) <- c(500,500)
group <- ggroup(container=w)
glabel("upper left", container=group, anchor=c(-1,1))
glabel("lower right", container=group, anchor=c(1,-1))
## add spring
group <- ggroup(container=gwindow("menubar-like example"))
gbutton("File",handler=function(h,...) print("file"), container=group)
gbutton("Edit",handler=function(h,...) print("edit"), container=group)
addSpring(group)
gbutton("Help",handler=function(h,...) print("help"), container=group)
Run the code above in your browser using DataLab