inst/tests/statusbar.R

w <- gwindow("statusbar")
sb <- gstatusbar("statusbar", cont=w)

## test
## svsalu
expect_equal(svalue(sb), "statusbar")

## svalue<--
svalue(sb) <- "new"
expect_equal(svalue(sb), "new")

Try the gWidgets2 package in your browser

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

gWidgets2 documentation built on Jan. 11, 2022, 1:07 a.m.