The following code should give me (at least that's what I think) two list
boxes with their individual scrollbars. But instead both scrollbars stick to
the same listbox even though they work as they should (scroll individual
listboxes). When I remove all the widgets on top everything works perfectly.
Any help would be highly apprecciated.
ps: all subsequent listboxes and scrollbars work perfectly, the first one
(column 1 of main window) is the only one constantly off.
library(tcltk)
tt<-tktoplevel()
mainFont<-tkfont.create(family="times",size=16)
lbl.MainT<-tklabel(tt,text="Basic Manipulation",font=mainFont)
tkgrid(lbl.MainT,sticky="nw")
but.Browse<-tkbutton(tt,text=" Browse ",command=browse)
but.Apply<-tkbutton(tt,text=" Apply ")
scr1 <- tkscrollbar(tt,
repeatinterval=5,command=function(...)tkyview(lsbDim1,...))
scr2 <- tkscrollbar(tt,
repeatinterval=5,command=function(...)tkyview(lsbDim2,...))
lsbDim1<-tklistbox(tt,height=10,selectmode="multiple",yscrollcommand=function(...)tkset(scr1,...),background="white",exportselection=FALSE)
lsbDim2<-tklistbox(tt,height=10,selectmode="multiple",yscrollcommand=function(...)tkset(scr2,...),background="white",exportselection=FALSE)
for (i in 1:70) {
tkinsert(lsbDim1,"end",i)
}
for (i in 1:70) {
tkinsert(lsbDim2,"end",i)
}
tkgrid(lsbDim1,scr1,lsbDim2,scr2)
tkgrid.configure(scr1,rowspan=10,sticky="nsw")
tkgrid.configure(scr2,rowspan=10,sticky="nsw")
[[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.
