Usage des combobox dans gwidgetRgtk2

[cedric]

Les combobox de gwidget Rgtk2 ne permettent pas les sélections multiples. Un des moyens est d'utiliser un gradiobutton mais ne marchera pas avec une liste importante telle que les taxon (OK pour stades, DC). Il faudra progammer l'ajout d'un taxon supplémentaire à l'aide d'un bouton '+'

[cedric]

J'ai trouvé ça sur internet et ça marche !

options(guiToolkit="RGtk2")
library(gWidgets)

select <- function(x,multiple=TRUE,...){
	ans<-new.env()
	
	x1<-ggroup(horizontal=FALSE) # no parent container here
	x2<-gtable(x,multiple=multiple,con=x1,expand=TRUE)
	ret <- gbasicdialog(title="select a widget", widget=x1,handler=function(h,...){
				value <- svalue(x2)
				if (length(value)==0) value=""
				assign("selected",value,env=h$action$env)
				dispose(x1)
			},action=list(env=ans))
	ans
}

ans <- select(c("a","b"))
print(ans$selected) 

[cedric]

fixé dans la version 0.5