search for: tklistbox

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(tk...

Hi, I'm posting yet another question about tcltk since I'm still struggling with the package. I'm trying to create a 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...

...grid(tklabel(janela,text="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])...

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<-tkscro...

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...

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...

In R-1.7.1, I used to be able to append a character vector to a 'tklistbox' with e.g. listio <- tklistbox( tktoplevel(), font='Courier', height=20, width=20, setgrid=TRUE) tkinsert( listio, 'end', letters[1:3]) tkpack( listio,side='left', expand=TRUE, fill='both') and three items would be added to 'listio'. This doesn't...

Hello R and tcltk users... I'm running into difficulties applying the tkmenubutton() and tklistbox() functions, found in the tcltk package, to a simple gui. My search for R code which utilizes these two functions has come up empty. Currently, I am attempting to translate pure "Tcl/Tk" code to R with little to no success. So far, the most helpful tool for learning the tcltk R com...

...wse<-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=FA...

...toplevel window tkwm.geometry(tt, "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(...

...ing item of listbox B should be highlited. Doing this, 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...

...= FALSE) tcl(combo_topology, "setvalue", "first") 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")...

...grab() and tkgrab.release(). You can 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(windo...

Hallo! Can anyone explain to me how to add a vert. scrollbar to a listbox using tcltk please? Thanks -- Frank Gerrit Zoellner -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send "info", "help", or "[un]subscribe" (in the "body", not the subject

Hello..!!! I got a problem while built R program with tcltk. I try to list the name of all data frame in my memory by "tklistbox". when we choose the name of data frame, then i capture the name, and catch the data frame by tclObj(dat)<-as.data.frame(get(x,envir=.GlobalEnvir)) tclvalue(dat) where x is the name of the data frame.The error is "Cannot handle object of mode "list"". Note...

...writing a GUI for my R script. It is a very basic form consisting of textboxes and buttons. I tried to run the following example to learn how to read value currently entered into the textbox: ( it requires tcltk/tcltk2 packages ) # Create the widgets base <- tktoplevel() list <- tklistbox(base, width = 20, height = 5) entry <- tkentry(base) text <- tktext(base, width = 20, height = 5) tkpack(list, entry, text) # Write and read from the widgets writeList(list, c("Option1", "Option2", "Option3")) writeList(entry, "An En...

Dear r-devel list members, I've experienced the following problem in getting 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 <- functi...