Constructor for a stack of widgets
This widget is like a notebook – it holds a stack of pages, but does not provide the tabs to work with. Most methods are inherited from gnotebook's.
generic for toolkit dispatch
gstackwidget(container = NULL, ..., toolkit = guiToolkit()) .gstackwidget(toolkit, container = NULL, ...)
container |
A parent container. When a widget is created it can be incorporated into the widget heirarchy by passing in a parent container at construction time. (For some toolkits this is not optional, e.g. gWidgets2tcltk or gWidgets2WWW2.) |
... |
These values are passed to the |
toolkit |
Each widget constructor is passed in the toolkit it
will use. This is typically done using the default, which will
lookup the toolkit through |
## Not run:
w <- gwindow("stack widget", visible=FALSE)
add_page <- function(cont, i) {
g <- gvbox(container=cont)
glabel(sprintf("page %s",i), container=g)
bg <- ggroup(container=g); addSpring(bg)
lb <- gbutton("Previous", container=bg, handler=function(h,...) {
svalue(cont) <- max(1, i - 1)
})
rb <- gbutton("Next", container=bg, handler=function(h,...) {
svalue(cont) <- min(i + 1, length(cont))
})
}
sw <- gstackwidget(cont=w)
sapply(1:5, add_page, cont=sw)
visible(w) <- TRUE
## End(Not run)Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.