Displaying 5 results from an estimated 5 matches for "withtag".
Did you mean:
with_tag
2005 Jul 31
3
Drawing a graph with vertices and edges using tcl/tk
Dear all; I would like to draw a graph with vertices and edges, and I guess tcl/tk would be appropriate. I don't know tcl/tk but have googled for a 10-page (or so) introduction to 'getting started with tcl/tk in R' but without any luck.
- Does anyone know of the existence of such a document or any other web-based material on the subject?
- Does anyone have an (informative) piece of
2005 Sep 05
1
tcltk, X11 protocol error: Bug?
...t;- 300/n.col
xl <- 0
#barlst <- vector(length=n.col,mode="list")
barlst <- tclArray()
for(i in 1:n.col){
item<-tkcreate(canvas.r,"rect",xl,0,xl+inc,50,
fill=rmpcol[i],outline=rmpcol[i])
##tkaddtag(canvas.r, "point", "withtag", item)
barlst[[i]]<-item
xl <- xl+inc
}
tkgrab.set(tt)
tkwait.window(tt)
##tkdestroy(tt)
invisible(cr)
}
2007 May 22
0
font test does not go higher than 49 - centos 4 x86_64
...When I run this script and move the slider bar at the bottom on centos 4
x86_64 I get increasing font sizes
from 5 to 49. Anything 50 and after is all the same size.
How do I get bigger fonts?
THanks,
Jerry
--------------------------------------
proc updateText {args} {
set text [.c1 find withtag text]
foreach {name size type} [.c1 itemcget $text -font] {break}
set font [list $name $::value $type]
.c1 itemconfigure $text -font $font
}
set c [canvas .c1 -width 800 -height 600 -bg white]
set s [scale .s1 -from 5 -to 200 -orient horizontal -var ::value -length
400]
set text [$c c...
2007 May 23
1
fonts on X and centos 4.4
...as "wish -f file.tcl"
Why can I not increase the font size - using the slider bar at the bottom
to anything higher than 50??? Does this work for anyone else?
Using xlsfonts there are sizes higher than 50.
Jerry
--------------------------
proc updateText {args} {
set text [.c1 find withtag text]
foreach {name size type} [.c1 itemcget $text -font] {break}
set font [list $name $::value $type]
.c1 itemconfigure $text -font $font
}
set c [canvas .c1 -width 800 -height 600 -bg white]
set s [scale .s1 -from 5 -to 200 -orient horizontal -var ::value -length
400]
set text [$c c...
2007 May 24
2
fonts on centos 4 and 5
...s the same issue.
What can be happening here??? xlsfonts shows that bigger fonts are
available.
How can I get bigger fonts???
Note - I had to do a "yum install tk" also...
Thanks,
Jerry
---------------------------------
#!/usr/bin/wish
proc updateText {args} {
set text [.c1 find withtag text]
foreach {name size type} [.c1 itemcget $text -font] {break}
set font [list $name $::value $type]
.c1 itemconfigure $text -font $font
}
set c [canvas .c1 -width 800 -height 600 -bg white]
set s [scale .s1 -from 5 -to 200 -orient horizontal -var ::value -length
400]
set text [$c c...