Nothing
##' @include methods.R
NULL
##' constructor to add a status bar to main window
##'
##' @param text inital status text
##' @inheritParams gcontainer
##' @export
##' @examples
##' \dontrun{
##' w <- gwindow("Statusbar", visible=FALSE)
##' sb <- gstatusbar("status text", container=w)
##' g <- gvbox(container=w)
##' gbutton("update", container=g, handler=function(...) svalue(sb) <- "new value")
##' visible(w) <- TRUE
##' }
gstatusbar <- function(
text = "", container = NULL, ... ,
toolkit=guiToolkit()){
obj <- .gstatusbar (toolkit,
text=text, container=container ,...
)
check_return_class(obj, "GStatusBar")
return(obj)
}
##' generic for toolkit dispatch
##'
##' @rdname gstatusbar
##' @export
.gstatusbar <- function(toolkit,
text = "", container = NULL, ... )
UseMethod( '.gstatusbar' )
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.