Displaying 3 results from an estimated 3 matches for "itemconfigure".
2007 May 22
0
font test does not go higher than 49 - centos 4 x86_64
...thing 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 create text 400 300 -text "Test" -anchor c -fill red -tag
text -font Helvetica]
trace variable ::value w updateText
pack $c...
2007 May 23
1
fonts on X and centos 4.4
...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 create text 400 300 -text "Test" -anchor c -fill red -tag
text -font Helvetica]
trace variable ::value w updateText
pack $c...
2007 May 24
2
fonts on centos 4 and 5
...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 create text 400 300 -text "Test" -anchor c -fill red -tag
text -font Helvetica]
trace variable ::value w updateText
pack $c...