Hi Vincent,
This is probably because Rcmdr redefine the tclvalue command (check the
message frame of the Rcmdr window).
You can try:
tcltk::tclvalue(tkget(levels.list2,"4"))
HTH,
Yves
Le 20/11/2012 11:25, vincent guyader a écrit :
> I everyone,
>
> i have a little problem with tklistbox,the " " character and Rcmdr.
>
> Please look at this code
>
> require(tcltk)
> tt<-tktoplevel()
> levels.list2 <-tklistbox(tt,selectmode="multiple",exportselection="FALSE",
> height=4, yscrollcommand=function(...)tkset(levels.list2.scroll,...))
> levels.list2.scroll<-tkscrollbar(tt,repeatinterval=5,command=function(...)tkyview(levels.list2,...))
>
> tkgrid(levels.list2,levels.list2.scroll)
>
> vec<-c("a","b",""," "," ")
> tkdelete(levels.list2,"0","end")
> for (var in vec) {tkinsert(levels.list2, "end", var)}
>
>
>
> tclvalue(tkget(levels.list2,"0"))# a
> tclvalue(tkget(levels.list2,"1"))# b
> tclvalue(tkget(levels.list2,"2"))# ""
> tclvalue(tkget(levels.list2,"3"))# " " it's ok
> tclvalue(tkget(levels.list2,"4"))# " " it's ok
>
>
> library(Rcmdr)
> #same command :
> tclvalue(tkget(levels.list2,"0"))# a
> tclvalue(tkget(levels.list2,"1"))# b
> tclvalue(tkget(levels.list2,"2"))# ""
> tclvalue(tkget(levels.list2,"3"))# "" instead of " "
> tclvalue(tkget(levels.list2,"4"))# "" instead of " "
>
>
> it's crazy!?
> any idea
>
> Thank you
>
> [[alternative HTML version deleted]]
>
> ______________________________________________
> R-help@r-project.org mailing list
> https://stat.ethz.ch/mailman/listinfo/r-help
> PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
> and provide commented, minimal, self-contained, reproducible code.
[[alternative HTML version deleted]]
______________________________________________
R-help@r-project.org mailing list
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.
