[R-gui] svalue(gtable)

[jverzani]

NOEL Yvonnick <yvonnick.noel <at> free.fr> writes:

> 
> Hello,
...
> 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))
y> 
> 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
> 

Hi,

I don't see this problem with my version of RGtk2. Can you email me offline with
your version of gWidgets, gWidgetsRgtk2 and R so I can check?I did make a minor
change to .svalue as there was a mistake in the signature. It may have
introduced the error you see.

--John