Displaying 2 results from an estimated 2 matches for "scr2".
Did you mean:
cr2
2007 Oct 08
3
tcltk scrollbar
...,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="mu...
2010 Mar 01
0
Multicolumn Listbox selectcommand trouble
...kyview(mlb,...))
tkgrid(mlb, scr1)
tkgrid.configure(scr1, stick = "ns")
tk2insert.multi(mlb, "end", idb[,c(1,2,3,4)])
tkpack(listings, side = "top")
txtviewer <- tktext(editor, font = "courier", width = 66, height = 20,
yscrollcommand = function(...)tkset(scr2,...))
scr2 <- tkscrollbar(editor, repeatinterval = 5, command =
function(...)tkyview(txtviewer,...))
tkgrid(txtviewer, scr2)
tkgrid.configure(scr2, sticky = "ns")
tkmark.set(txtviewer,"insert","0.0")
tkinsert(txtviewer,"end","This is some stuff"...