File: ex-gcheckboxgroup.R

package info (click to toggle)
r-cran-gwidgets 0.0-54.2-2
  • links: PTS, VCS
  • area: main
  • in suites: bookworm, bullseye, forky, sid, trixie
  • size: 2,360 kB
  • sloc: sh: 13; makefile: 2
file content (21 lines) | stat: -rw-r--r-- 405 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
w <- gwindow("test gcheckboxgroup", visible=FALSE)
items <- letters[1:4]
cbg <- gcheckboxgroup(items, checked= items=="a", cont=w, horizontal=TRUE)

## svalue
print(svalue(cbg))
svalue(cbg) <- c(T,F,T,T)
print(svalue(cbg))


## [
print(cbg[])
cbg[] <- letters[12:15]                 # same length

## handler
addHandlerChanged(cbg, handler=function(h,...) {
  print(svalue(h$obj))
})


visible(w) <- TRUE