Nothing
## Copyright (C) 2011 John Verzani
##
## This program is free software: you can redistribute it and/or modify
## it under the terms of the GNU General Public License as published by
## the Free Software Foundation, either version 3 of the License, or
## (at your option) any later version.
##
## This program is distributed in the hope that it will be useful,
## but WITHOUT ANY WARRANTY; without even the implied warranty of
## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
## GNU General Public License for more details.
##
## You should have received a copy of the GNU General Public License
## along with this program. If not, see <http://www.gnu.org/licenses/>.
##' @include gwidget.R
NULL
##' A label widget
##'
##' @param text text for label. Main property. Use \code{svalue<-} to change.
##' @param markup logical. Ignored, but see example for
##' \code{ext.args} usage or use \code{ghtml} widget and
##' HTML-formatted text
##' @param editable logical. Ignored
##' @inheritParams gwidget
##' @return an ExtWidget object
##' @export
##' @examples
##' w <- gwindow()
##' sb <- gstatusbar("Powered by gWidgetsWWW and Rook", cont=w)
##' g <- ggroup(cont=w)
##' glabel("A label widget", cont=g)
##' glabel("A red label", cont=g, ext.args=list(style=list("color"="red")))
##' glabel("A <font color='blue'>blue</font> label", cont=g)
glabel <- function(text = "", markup = FALSE, editable = FALSE,
handler = NULL, action = NULL, container = NULL,...,
width=NULL, height=NULL, ext.args=NULL
) {
l <- GLabel$new(container, ...)
l$init(text, markup, editable, handler, action, container, ...,
width=width, height=height, ext.args=ext.args)
l
}
GLabel <- setRefClass("GLabel",
contains="GWidget",
method=list(
init = function(text = "", markup = FALSE, editable = FALSE,
handler = NULL, action = NULL, container = NULL,...,
width=NULL, height=NULL, ext.args=NULL) {
text <- as.character(text)
value <<- text
constructor <<- "Ext.form.Label"
arg_list <- list(
html=text
)
add_args(arg_list)
setup(container, handler, action, ext.args, ...)
.self
},
set_value = function(value, ...) {
value <<- value
call_Ext("setText", value, FALSE)
parent$do_layout()
}
))
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.