[PD-cvs] pd/src desire.tk,1.1.2.600.2.228,1.1.2.600.2.229
chunlee
chunlee at users.sourceforge.net
Fri Jul 13 13:06:25 CEST 2007
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
}
More information about the Pd-cvs
mailing list