search for: selectmod

...t=" 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) {...

...tklistbox and a ttkcombobox on the same parent and am having a problem. Here's an example: library(tcltk) tt <- tktoplevel() tcl1 <- tclVar() tcl2 <- tclVar() tclObj(tcl1) <- letters[1:5] tclObj(tcl2) <- LETTERS[1] tb1 <- tklistbox(tt, listvariable = tcl1, selectmode = "multiple") tb2 <- ttkcombobox(tt, values = LETTERS[1:2], textvariable = tcl2) tkpack(tb1, tb2) First, I select some values in the list box. But when I select a value from the combo box, the selection from the list box is no longer highlighted. Is this a bug o...

...;700x600") tkwm.geometry(tt,"+5+5") ... yscr <- tkscrollbar(tt,orient="vertical", command=function(...) tkyview(column1,...) ) column1 = tkcanvas(tt, height=200, yscrollcommand = function(...) tkset(yscr, ...)) divBandListbox1 = tklistbox(column1, width=65, height=15, selectmode="single") divBandListbox2 = tklistbox(column1, width=65,height=15, selectmode="single") divBandListbox3 = tklistbox(column1, width=65,height=15, selectmode="single") tkgrid(column1,yscr,sticky="ew") tkgrid.configure(yscr, sticky="ns") -- also tr...

Dear experts, I am trying to understand why is it that when I paste (into the R console) the following code to select an option from a list: require(tcltk) tt<-tktoplevel() tl<-tklistbox(tt,height=ntx,selectmode="single",background="white") tkgrid(tklabel(tt,text="Select the legend of" )) tkgrid(tl) treatments<<-levels.tx for(i in (1:ntx)) { tkinsert(tl,"end",treatments[i]) } OnOK<-function() { tx.choice1<<-treatments[as.i...

On Wed, 30 Jul 2003 TSudler at ch.imshealth.com wrote: <SNIP> table1 <- tkwidget(tt,"table",variable="tclArray", rows=as.character(dim(datifram)[1]+1), cols=as.character(dim(datifram)[2]),titlerows="1", titlecols="3",selectmode="extended",height="27", width="13",bg="white",state="disabled",cursor="arrow", drawmode="single",selectmode="single",invertselected=TRUE, xscrollcommand=function(...)tkset(xscr,...), yscrollcommand=function(...) tkset(...

...tkgrid(tklabel(frame.1, text="Network topology"), combo_topology) tkgrid(frame.1, sticky = "w") # X values frame.x <- tkwidget(tt, "labelframe", text = "X value") tl.x <- tklistbox(frame.x, height = length(xvals) / 2, width = 50, selectmode = "browse", background = "white") for(i in seq(from=1, to=length(xvals), by=2)) { tkinsert(tl.x, "end", xvals[[i]]) } tkselection.set(tl.x, 0) tkgrid(tl.x, sticky="news") # Y values frame.y <- tkwidget(tt, "labelframe", text = &q...

...quot;Trimestre:",font=estilo_texto)) cb1 <- tkcheckbutton(janela) cb1Valor <- tclVar("0") tkconfigure(cb1,variable=cb1Valor) tkgrid(tklabel(janela,text="1T"),cb1) #Listbox com os trimestres #janela <-tkframe(janela) tl<-tklistbox(janela,height=4,selectmode="multiple",background="white") tkgrid(tklabel(janela,text="Seleccione o(s) trimestre(s):")) tkgrid(tl) trim <- c("T1","T2","T3","T4") for (i in (1:4)) { tkinsert(tl,"end",trim[i]) } #tkselection.set(tl,2...

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",&...

Hello, I have a problem with a tklistbox. The user should be able to choose one out of two calculation methods needed for further calculations. My r-script for that purpose looks like that: require(tcltk) tt<-tktoplevel() tl<-tklistbox(tt,height=4,selectmode="single",background="white") tkgrid(tklabel(tt,text="select method for LAI calculation")) tkgrid(tl) method<- c("method1","method2") for (i in (1:2)){ tkinsert(tl,"end",method[i]) } tkselection.set(t...

...and it seems to crash executing dirtree<-tkwidget(base, "hierarchy_dir", root=path, showparent="Parent", showfiles=1, showall=all.names, selectmode=if(multiple) "multiple" else "browse") with the following error message Error in structure(.External("dotTcl", ..., PACKAGE = "tcltk"), class = "tclObj") : [tcl] megawidget initialization error: expected integer but got " --1"....

How can i replicate this in Linux: source(file.choose()) I've tried source(tkgetOpenFile()) but with no luck

...test for the problem with the following code: window1 <- tktoplevel() window2 <- tktoplevel() xFrame <- tkframe(window2) xScroll <- tkscrollbar(xFrame, repeatinterval=5, command=function(...) tkyview(xBox, ...)) xBox <- tklistbox(xFrame, height=4, selectmode="single", background="white", exportselection="FALSE", yscrollcommand=function(...) tkset(xScroll, ...)) for (x in letters) tkinsert(xBox, "end", x) onOK <- function() { tkgrab.release(window2) tkfocus(window1)...

Turns out I needed to add "exportselection=0". So: foo.lb <- tklistbox(root, height = 5, selectmode = "extended", exportselection = 0) Got this from: http://tolstoy.newcastle.edu.au/R/e2/help/06/12/6955.html (That's what I get for assuming there'd be no tcl/tk questions on this list. D'oh!) Cheers! Mark -- I'm taking reality in small doses to build immunity.

...ng a selection from a Tk list box using tcltk. This is a long-standing problem, but I've finally decided to tackle it. Consider the following: Library(tcltk) top <- tktoplevel() listbox <- tklistbox(top, height="10", width="2", exportselection="FALSE", selectmode="single") for (x in letters[1:10]) tkinsert(listbox, "end", x) value <- tclVar("") entry <- tkentry(top, width="2", textvariable=value) onOK <- function(){ tkdestroy(top) print(tclvalue(value)) return() } onSelect <- function(){...

..., the event is one timestep behind. For example selecting first element in A, no slection in B becaus eof the error mentioned above. Then selecting the second item in A , the first of B is highlited. Below the source fragments: prot.listbox<-tklistbox(anzeigeframe,exportselection="0",selectmode="browse") prot.yscroll<-tkscrollbar(anzeigeframe) i <- 1 while (i <= length(resultset[,1])) { tkinsert(prot.listbox,'end',paste(resultset[i,1],resultset[i,2],sep=".")) i<- i+1 } tkconfigure(prot.listbox,yscrollcommand=paste(.Tk.ID(prot.yscroll),"set&...