Hello,
Many thanks to John Verzani and Michael Lawrence for providing those
very useful libraries gWidgets and RGtk2.
I am facing the following problem with some code that used to work: the
gWidgets command svalue(some.gtable.widget) does not seem to work.
I can reproduce the error by using the first example in the gtable help
file:
m <- getCRANmirrors()[,c(1,4)]
setCRAN <- function(URL) { ## see chooseCRANmirror
repos = getOption("repos")
repos["CRAN"] <- gsub("/$", "", URL)
options(repos=repos)
}
w <- gwindow("gtable example",width=400)
gp = ggroup(horizontal=FALSE, cont=w)
tab <- gtable(m, chosencol = 2, cont=gp, expand=TRUE,
handler = function(h,...) setCRAN(svalue(h$obj)))
bg <- ggroup(cont=gp)
addSpring(bg)
gbutton("dismiss", cont=bg, handler = function(h,...) dispose(w))
Then, selecting one of the elements, and trying to get access to the
gtable value, I get:
> svalue(tab)
Error in function (classes, fdef, mtable) :
unable to find an inherited method for function ".svalue", for
signature "gGridRGtk", "guiWidgetsToolkitRGtk2", "NULL", "NULL"
Is this a problem related to the recent redefinition of the svalue
method as generic?
Thanks a lot,
Yvonnick Noel, PhD
University of Brittany at Rennes, France
_______________________________________________
R-SIG-GUI mailing list
R-SIG-GUI@stat.math.ethz.ch
https://stat.ethz.ch/mailman/listinfo/r-sig-gui
