Re: [R] How to mimic select.list using RGtk2/gWidgetsRGtk2?

2008-12-12 Thread ronggui
Hi, John, Thanks very much. I have another question about gformlayout(). addSettingGUI <- function(container){ Setting <- list(type = "ggroup", horizontal = FALSE, children = list( list(type="fieldset", columns = 1,

Re: [R] How to mimic select.list using RGtk2/gWidgetsRGtk2?

2008-12-12 Thread John Verzani
ronggui gmail.com> writes: > > I want to write a function mimic the function of select.list(), here > is my preliminary version. > > select <- function(x,multiple=TRUE,...){ > ans<-new.env() > g <- gwindow(title=title,wid=200,heigh=500) > x1<-ggroup(FALSE,con=g) > x2<-gtable(x,multiple=multiple

[R] How to mimic select.list using RGtk2/gWidgetsRGtk2?

2008-12-12 Thread ronggui
I want to write a function mimic the function of select.list(), here is my preliminary version. select <- function(x,multiple=TRUE,...){ ans<-new.env() g <- gwindow(title=title,wid=200,heigh=500) x1<-ggroup(FALSE,con=g) x2<-gtable(x,multiple=multiple,con=x1,expand=TRUE) gbutton("OK",con=x1,handler