slider widget constructor
A slider widgets allows a selection from a range of numeric values. The widget presents the user with a quick to adjust, but relatively difficult to adjust precisely way to to pick a number.
generic for toolkit dispatch
gslider(from = 0, to = 100, by = 1, length.out = NULL, along.with = NULL, value = from[1], horizontal = TRUE, handler = NULL, action = NULL, container = NULL, ..., toolkit = guiToolkit()) .gslider(toolkit, from = 0, to = 100, by = 1, value = from, horizontal = TRUE, handler = NULL, action = NULL, container = NULL, ...)
from |
If a number of length one then a starting point, in
which case to, by are passed to |
to |
ending point when from is starting point |
by |
step size if not specified by |
length.out |
in place of by |
along.with |
in place of length.out |
value |
initial value |
horizontal |
Logical. Is separator drawn horizontally? |
handler |
A handler assigned to the default change
signal. Handlers are called when some event triggers a widget to
emit a signal. For each widget some default signal is assumed, and
handlers may be assigned to that through Handlers may also be added via |
action |
User supplied data passed to the handler when it is called |
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 |
if(interactive()) { ## a range widget uses either a slider or a linked spinbutton to select a value w <- gwindow("Range widget", visible=FALSE) g <- ggroup(cont=w, horizontal=TRUE) sl <- gslider(from=0, to=100, by=1, value=0, cont=g, expand=TRUE, fill="both") sp <- gspinbutton(from=0, to=100, by=1, value=0, cont=g) ## Two ways to do this: ## addHandlerChanged(sl, function(...) svalue(sp) <- svalue(sl)) ## addHandlerChanged(sp, function(...) svalue(sl) <- svalue(sp)) f <- function(h, ...) svalue(h$action) <- svalue(h$obj) addHandlerChanged(sl, f, action=sp) addHandlerChanged(sp, f, action=sl) visible(w) <- TRUE }
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.