inst/Tests/test-gcheckbox.R

fn <- "gcheckbox"

w <- gwindow(sprintf("test %s", fn))

g <- ggroup(cont=w, horizontal=FALSE)

widget <- gcheckbox("label", checked=TRUE, cont=g)
widget1 <- gcheckbox("togglebutton", use.togglebutton=TRUE, checked=TRUE, cont=g)

## handlers
## changed
addHandlerChanged(widget, handler=function(h,..) {
  galert(svalue(h$obj), parent=w)
})

## click, doubleclick, ...

## methods

## svalue
gbutton("click to set svalue<- ", cont=g, handler=function(h,..) {
  svalue(widget) <- FALSE
})

gbutton("click to get svalue", cont=g, handler=function(h,..) {
  galert(svalue(widget), parent=w)
})

## gbutton("click to get svalue, index=TRUE", cont=g, handler=function(h,..) {
##   galert(svalue(widget, index=TRUE), parent=w)
## })

## gbutton("click to get svalue, index=FALSE", cont=g, handler=function(h,..) {
##   galert(svalue(widget, index=FALSE), parent=w)
## })


## [
gbutton("click to get [", cont=g, handler=function(h,..) {
  galert(paste(capture.output(widget[]), collapse="<br />"), parent=w)
})

##[<-
gbutton("click to set [<- ", cont=g, handler=function(h,..) {
  widget[] <- "new label"
})

                  
gstatusbar(sprintf("Tests for %s", fn), cont=w)
visible(w) <- TRUE

Try the gWidgetsWWW package in your browser

Any scripts or data that you put into this service are public.

gWidgetsWWW documentation built on May 2, 2019, 4:47 p.m.