On Sun, 30 Apr 2006, adam wrote:
Is there any way to get better font handling? that would also improve the readability a lot.
Someone should run this program (using "wish") on each supported OS:
pack [text .log] -expand 1 -fill both foreach face {Courier Helvetica Sans} { foreach n {8 10 12 14} { set font [list $face -$n] .log insert end "$font: [font metrics $font]\n" for {set i 65} {$i < 123} {incr i} { set t [format %c $i] .log insert end [format "%s:%-2d " $t [font measure $font $t]] if {($i&31)==13} {.log insert end "\n"} if {($i&31)==26} {.log insert end "\n"; set i [expr $i+6]} } } }
_ _ __ ___ _____ ________ _____________ _____________________ ... | Mathieu Bouchard - tél:+1.514.383.3801 - http://artengine.ca/matju | Freelance Digital Arts Engineer, Montréal QC Canada