Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv384
Modified Files: Tag: desiredata desire.tk Log Message: fixed variable width font bug for tk>8.5a5
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.228 retrieving revision 1.1.2.600.2.229 diff -C2 -d -r1.1.2.600.2.228 -r1.1.2.600.2.229 *** desire.tk 13 Jul 2007 10:36:53 -0000 1.1.2.600.2.228 --- desire.tk 13 Jul 2007 11:06:21 -0000 1.1.2.600.2.229 *************** *** 2292,2298 **** set textpix [font measure [$self look font] $text] set fwidth [font measure [$self look font] 0] ! set width [expr ($textpix+$fwidth-1)/$fwidth] } ! if {$key == "BackSpace"} {set width [expr $width - 1]} $t configure -width $width } --- 2292,2298 ---- set textpix [font measure [$self look font] $text] set fwidth [font measure [$self look font] 0] ! set width [expr (($textpix+$fwidth-1)/$fwidth)+1] } ! if {$key == "BackSpace"} {set width [expr $width - 2]} $t configure -width $width }