Displaying 10 results from an estimated 10 matches for "repeatinterval".
Did you mean:
repeat_interval
2007 Oct 08
3
tcltk scrollbar
...e(family="times",size=16)
lbl.MainT<-tklabel(tt,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)
lsbD...
2010 Jul 21
1
tcltk resizing when using tkgrid for layout
...er than posting my lengthy and
complicated code, I'll post this example instead from
bioinf.wehi.edu.au/~wettenhall/RTclTkExamples/ (a very helpful site
without which I would never have been able to use the tcltk package at all).
require(tcltk)
tt<- tktoplevel()
xscr<- tkscrollbar(tt, repeatinterval=5,orient="horizontal",
command=function(...)tkxview(txt,...))
yscr<- tkscrollbar(tt, repeatinterval=5,
command=function(...)tkyview(txt,...))
txt<- tktext(tt,bg="white",font="courier",
xscrollcommand=function(....
2007 Oct 09
1
misbehaviour of some tk windows, R 2.6.0 on SUSE 10.1?
...ent")
[1] TRUE
> local({
+
+ tt <- tktoplevel()
+ tkwm.title(tt, "R FAQ")
+ # Gave tiny font on some systems
+ # txt <- tktext(tt, bg="white", font="courier")
+ txt <- tktext(tt, bg="white")
+ scr <- tkscrollbar(tt, repeatinterval=5,
+ .... [TRUNCATED]
******************************************************
The source for this demo can be found in the file:
/home/david/lib/R/library/tcltk/demo/tkfaq.R
******************************************************
> Error in structure(.External("dotTclObjv", ob...
2010 Mar 01
0
Multicolumn Listbox selectcommand trouble
...uot;, label = "col2", width = 40)
tk2column(mlb, "add", "listprice", label = "col3", width = 15)
tk2column(mlb, "add", "categ", label = "col4", width = 20)
# Collect data from insurance companies
scr1 <- tkscrollbar(listings, repeatinterval = 5, command =
function(...)tkyview(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,
yscrol...
2009 Oct 12
0
tktext-window smaller than text
...ext in it has a length greater 100.
But I don't want the window to just wrap 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(...)...
2012 Nov 20
1
tcl/tk problem with tklistbox,the " " character and Rcmdr.
...t; " 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","end")
for (var in vec) {tkinsert(levels.list2, "end", var)}
tclv...
2009 Aug 24
1
Copy & Paste from tktext on Mac
...Is there an
easy way to map copy&paste functions to a text window under Mac 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...
2003 Jun 06
4
stuck tcltk scrollbars under Windows XP
...and found that the problem appears to go away when I remove the calls to
tkgrab() 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, "...
2007 Feb 14
1
monitor a simulation with a special console box?
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]]
2006 Oct 21
0
tcltk: multiple listboxes, selection
...= "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, "end", yvals[[i]])
}
tkselection.set(tl.y, 0)
tkgrid(tl.y, scr.y, sticky="news")
# Packing
tkgrid(frame.x, frame.y, sticky="ne...