search for: tkset

...essagesXscroll <- ttkscrollbar(messagesFrame, orient="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,...

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] tcltk stats gra...

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

...orient="horizontal", 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,", ")) t...

...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") tkgrid(column1,yscr,...

...ows="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(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 th...

...ot;))) 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", label = "col3&...

...crollbar 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") tkgrid(scrergVert, column...

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,"0","en...

...ing 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 utils datasets...

...ame(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", command=onOK, de...

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

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

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

...[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)) { tkinsert(tl.y, &quo...

...nction(widget, ...) tcl(widget, "search", ...) tksee <- function(widget, ...) tcl(widget, "see", ...) tkselect <- function(widget, ...) tcl(widget, "select", ...) @@ -563,7 +562,6 @@ tcl(widget, "selection", "to", ...) tkset <- function(widget, ...) tcl(widget, "set", ...) tksize <- function(widget, ...) tcl(widget, "size", ...) -tktoggle <- function(widget, ...) tcl(widget, "toggle", ...) tktag.add <- function(widget, ...) tcl(widget, "ta...

Sorry, for my mail from last night contains no subject. Therefore, I send it again and two tcltk questions are appended. ---------------------------------------------------------------------------- Prasad wrote: > I wrote a function in R which uses tcltk package .... essentially I wanted > to give within that function, a widget with 2 radiobuttons to choose > between plotting Precip

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)