kapo coulibaly wrote: > This is approximately what I get: > ------------------------ -- --------------------------- > ! ! !S! ! !S! > ! ! !C! ! !C! > ! ! !R! ! !R! > ! ! !O! ! !O! > ! ! !L! ! !L! > ! ! !L! ! !L! > ! ListBox1 ! !B! ! ListBox2 !B! > ! ! !A! ! !A! > ! ! !R! ! !R! > ! ! !1! ! !2! > ------------------------- -- --------------------------- > > I could never get the 1st scrollbar to stick to the 1st ListBox!! > > Is there a delay somewhere? The reason and a fix has already been posted twice (by me and Jonne Zutt) > On 10/8/07, Peter Dalgaard <[EMAIL PROTECTED]> wrote: > >> kapo coulibaly wrote: >> >>> 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. >>> >>> >>> >> Er,...... >> >> I just don't see it. What exactly goes wrong for you? >> >> >>> 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") >>> >>> >> -- >> O__ ---- Peter Dalgaard Øster Farimagsgade 5, Entr.B >> c/ /'_ --- Dept. of Biostatistics PO Box 2099, 1014 Cph. K >> (*) \(*) -- University of Copenhagen Denmark Ph: (+45) >> 35327918 >> ~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) >> 35327907 >> >> >> >> > >
-- O__ ---- Peter Dalgaard Øster Farimagsgade 5, Entr.B c/ /'_ --- Dept. of Biostatistics PO Box 2099, 1014 Cph. K (*) \(*) -- University of Copenhagen Denmark Ph: (+45) 35327918 ~~~~~~~~~~ - ([EMAIL PROTECTED]) FAX: (+45) 35327907 ______________________________________________ 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.