search for: yscrollcommand

Full_Name: Sundar Dorai-Raj Version: 2.8.0 OS: Windows Submission from: (NULL) (76.220.41.126) The following code crashes R: library(tcltk) tt <- tktoplevel() tc <- tkcanvas(tt, yscrollcommand = function(...) tkset(ts, ...)) > sessionInfo() R version 2.8.0 (2008-10-20) i386-pc-mingw32 locale: LC_COLLATE=English_United States.1252;LC_CTYPE=English_United States.1252;LC_MONETARY=English_United States.1252;LC_NUMERIC=C;LC_TIME=English_United States.1252 attached base packages: [1] t...

...rowse) 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",...

..."horizontal", command=function(...) tkxview(.messages, ...)) messagesYscroll <- ttkscrollbar(messagesFrame, command=function(...) tkyview(.messages, ...)) tkconfigure(.messages, xscrollcommand=function(...) tkset(messagesXscroll, ...)) tkconfigure(.messages, yscrollcommand=function(...) tkset(messagesYscroll, ...)) For the script window (note that "log" is a hold-over from earlier terminology): logFrame <- tkframe(CommanderWindow()) putRcmdr("logWindow", tktext(logFrame, bg="white", foreground=getRcmdr("log.text.color&q...

...or online help in this area. tt <- tktoplevel() # Create a new 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")...

...achieved by .Tk.ID(). Is there a way to avoid to call .Tk.ID --- perhaps by using tkyview? tk.test1 <- function(nmax=3){ library("tcltk") tl <- tktoplevel() tl.text <- tktext(tl) tl.yscroll <- tkscrollbar(tl) tkconfigure(tl.text, yscrollcommand=paste(.Tk.ID(tl.yscroll),"set" )) tkconfigure(tl.yscroll, command=paste(.Tk.ID(tl.text), "yview")) tkpack(tl.text, tl.yscroll, side="left", fill="y") tkpack(tkbutton(tl, text="exit", command=function()tclvar$done<-"T&...

...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")) tkconfigure(prot.yscroll,command=paste(.Tk.ID(prot.listbox),"yview")) tkpack(prot.yscroll,prot.listbox,side="left",fill="y") tkbind(prot.listbox,"<Button-1>",function() { protas.listbox<-tklistbox(an...

I like to monitor simulation by reporting some current values to the console, every 25th iteration say. I think it might be nice to have that appear in a separate window. Anyone know how? regards, David Farrar New River Analytic [[alternative HTML version deleted]]

...Price", "Category"))) base <- tktoplevel() listings <- tkframe(parent = base) editor <- tkframe(parent = base) tkwm.title(base, "my super program") #changeeditor function(){ # } mlb <- tk2mclistbox(listings, height = 20, width = 95, resizablecolumns = TRUE, yscrollcommand = function(...)tkset(scr1,...)) #?tk2mclistbox # Define the columns tk2column(mlb, "add", "date", label = "col1", width = 20) tk2column(mlb, "add", "title", label = "col2", width = 40) tk2column(mlb, "add", "listprice"...

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","b",""," "," ") tkdelete(levels.list2,&qu...

...OS X? This is what I'm doing with my text window: tt <- tktoplevel() txt <- tktext(tt, bg = "white", height=30, width=100, borderwidth=2) scr <- tkscrollbar(tt, orient = "vertical", repeatinterval = 1, command = function(...) tkyview(txt, ...)) tkconfigure(txt, yscrollcommand = function(...) tkset(scr, ...)) tkgrid(txt, column=0, row=0, columnspan=2, sticky="nwse") Session Info: R version 2.9.1 (2009-06-26) i386-apple-darwin8.11.1 locale: de_DE.UTF-8/de_DE.UTF-8/C/C/de_DE.UTF-8/de_DE.UTF-8 attached base packages: [1] tcltk stats graphics grDevices...

...izontal", command=function(...)tkxview(txt,...)) yscr<- tkscrollbar(tt, repeatinterval=5, command=function(...)tkyview(txt,...)) txt<- tktext(tt,bg="white",font="courier", xscrollcommand=function(...)tkset(xscr,...),yscrollcommand=function(...)tkset(yscr,...), wrap="none") tkgrid(txt,yscr) tkgrid(xscr) tkgrid.configure(yscr,sticky="ns") tkgrid.configure(xscr,sticky="ew") for (i in (1:100)) tkinsert(txt,"end",paste(i,"^ 2 =",i*i,", ")) tkconfigure(txt, state=&qu...

...evel() 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) tkdestroy(window2) } OKbutton <- tkbutton(window2, text="OK", width="12&quot...

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

Hi, Using the functions in the tcltk library (R1.5.0 Windows, tcltk v1.5.0), does anyone know a simple way to create a list box with a scroll bar? I'm stuck on what to supply to the -xscrollcommand in order to do this but I might be on the wrong track. Best wishes, Jess _____________________________________ Jess Mar Department of Mathematics University of Queensland QLD 4072 AUSTRALIA

Can anyone show me how to connect a scrollbar to a text widget using the tcltk library? I'm confused about how to make sure the two widgets know about each other and how to set up the appropriate call-backs for scrolling. Mike -.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.-.- r-help mailing list -- Read http://www.ci.tuwien.ac.at/~hornik/R/R-FAQ.html Send

..., 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(yscr,...)) <SNIP> > > When I go to the right border with the scrollbar, I see a > wihte column without cells and without titlerow. I could > determine where the problem is. > But I don't know why this problem is. When I set the "WIDTH" >...

Hello, i'm trying to translate following tcltk source code, which I found in newsgroup comp.lang.tcl, written by Tom Wilkason, into R Code. proc scrolled_Canvas {base} { frame $base.fm -borderwidth 2 -relief sunken canvas $base.fm.cv -yscrollcommand "$base.fm.cv_vertscrollbar set" scrollbar $base.fm.cv_vertscrollbar -orient vertical \ -command "$base.fm.cv yview" pack $base.fm.cv -side left -fill both -expand true pack $base.fm.cv_vertscrollbar -side right -fill y pack $base.fm -side top -fill both -expand t...

...tl.x, "end", xvals[[i]]) } tkselection.set(tl.x, 0) tkgrid(tl.x, sticky="news") # Y values frame.y <- tkwidget(tt, "labelframe", text = "Y value(s)") tl.y <- tklistbox(frame.y, height = 20, #length(yvals) / yvals.field.count, yscrollcommand=function(...) tkset(scr.y,...), width = 50, selectmode = "extended", background = "white") scr.y <- tkscrollbar(frame.y, repeatinterval = 5, command = function(...) tkyview(tl.y, ...)) for(i in seq(from=1, to=length(yvals), by=yvals.field.count)) {...

...the line, but to belong to scrollbar that is able to scroll to the end of the text. tt <- tktoplevel() txt <- tktext(tt, width=100, height=30) scrergVert <- tkscrollbar(tt, orient = "vertical", repeatinterval = 1, command = function(...) tkyview(txt, ...)) tkconfigure(txt, yscrollcommand = function(...) tkset(scrergVert, ...)) scrergHor <- tkscrollbar(tt, orient = "horizontal", repeatinterval = 1, command = function(...) tkxview(txt, ...)) tkconfigure(txt, xscrollcommand = function(...) tkset(scrergHor, ...)) tkgrid(txt, column=0, row=0, sticky="nwse") tkg...

Hi all, Roger Peng and Jason Turner's suggestion with ImageMagick seem to be the simplest "dirty" way to get the problem solved. But I ran into yet another interesting but quite round-about way to solve the problem (partially). Through tcltk package, one can read in the gif image with > x <- tkcmd("image", "create", "photo", file=mypic.gif)