Displaying 5 results from an estimated 5 matches for "tkcget".
Did you mean:
target
2005 Feb 28
1
Getting width of Tk text widget via tcltk
...- tktoplevel()
> textWindow <- tktext(top, bg="white", height=20, width=80, wrap="none")
> tkgrid(textWindow, sticky="news")
<Tcl>
> tkgrid.rowconfigure(top, 0, weight=1)
<Tcl>
> tkgrid.columnconfigure(top, 0, weight=1)
<Tcl>
> tkcget(textWindow, width=NULL)
<Tcl> 80
> tkwinfo("width", textWindow$ID)
<Tcl> 486
> # resize window with mouse
> tkcget(textWindow, width=NULL)
<Tcl> 80
> tkwinfo("width", textWindow$ID)
<Tcl> 743
I could convert pixels to characters, but wo...
2006 Jul 29
1
fancier plotting
...i <- 100
ol <- as.numeric(tclvalue(oldleft))
tclvalue(left) <- as.character(ol+i)
tclvalue(oldleft) <- as.character(ol+i)
r <- as.numeric(tclvalue(right))
tclvalue(right) <- as.character(r+i)
tkrreplot(img)
}
iw <- as.numeric(tcl('image','width', tkcget(img,'-image')))
ih <- as.numeric(tcl('image','height',tkcget(img,'-image')))
mm <- function(x,Y){
tx <- (as.numeric(x)-1)/iw
ty <- 1-(as.numeric(Y)-1)/ih
if( tx > tmpplt[1] & tx < tmpplt[2] &
ty > tmpplt[3] & ty < tm...
2006 Apr 17
0
autoscall the y-axis
...lt;- as.numeric(tclvalue(oldleft))
tclvalue(left) <- as.character(ol+10)
tclvalue(oldleft) <- as.character(ol+10)
r <- as.numeric(tclvalue(right))
tclvalue(right) <- as.character(r+10)
tkrreplot(img)
}
iw <- as.numeric(tcl('image','width', tkcget(img,'-image')))
ih <- as.numeric(tcl('image','height',tkcget(img,'-image')))
mm <- function(x,Y){
tx <- (as.numeric(x)-1)/iw
ty <- 1-(as.numeric(Y)-1)/ih
if( tx > tmpplt[1] & tx < tmpplt[2] &
ty > tmpplt[3] & ty...
2013 Sep 01
1
[PATCH] remove a duplicate tk function definition (and alphabetize)
...ry/tcltk/R/Tk.R (working copy)
@@ -493,12 +493,11 @@
tkbbox <- function(widget, ...) tcl(widget, "bbox", ...)
tkcanvasx <- function(widget, ...) tcl(widget, "canvasx", ...)
tkcanvasy <- function(widget, ...) tcl(widget, "canvasy", ...)
+tkcget <- function(widget, ...) tcl(widget, "cget", ...)
tkcompare <- function(widget, ...) tcl(widget, "compare", ...)
tkconfigure <- function(widget, ...) tcl(widget, "configure", ...)
tkcoords <- function(widget, ...) tcl(widget, &q...
2005 Jul 12
1
help: how to use tkevent.generate(...)
Hello,
I use package "tcltk" to do some GUI programming, and want to find a
function which can do the operation "click a button", just like using
a mouse to click. If tkevent.generate can do that? I tried it as
below, but failed. Please give me a hint!
tt <- tktoplevel()
tkwm.title(tt,"Simple Dialog")
onOK <- function(){print("OK")}
onCancel <-