[PD-cvs] pd/src desire.tk,1.1.2.600.2.228,1.1.2.600.2.229

[chunlee]

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
  }