I have this really short script below that only lets me
set the font size from 5 to 50 using the slider at the bottom. Anything
higher than 50 it will not do.
run the program 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 create text 400 300 -text "Test" -anchor c -fill red -tag
text -font Helvetica]
trace variable ::value w updateText
pack $c $s
On Wed, 2007-05-23 at 07:10 -0400, Jerry Geis wrote:> I have this really short script below that only lets me > set the font size from 5 to 50 using the slider at the bottom. Anything > higher than 50 it will not do. > run the program as "wish -f file.tcl"Including the following line at the top and doing "chmod +x file.tcl" allows the simpler invocation "./file.tcl": #!/usr/bin/wish> Why can I not increase the font size - using the slider bar at the bottom > to anything higher than 50???Don't know, but another data point - on my system (CentOS-5/KDE the slider maxes out at 23, not 50.> Does this work for anyone else? > > Using xlsfonts there are sizes higher than 50.Phil