Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15786
Modified Files: Tag: devel_0_39 desire.tk Log Message: now use font measure in TextBox update_size
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.569 retrieving revision 1.1.2.570 diff -C2 -d -r1.1.2.569 -r1.1.2.570 *** desire.tk 19 Nov 2006 22:28:13 -0000 1.1.2.569 --- desire.tk 19 Nov 2006 22:47:10 -0000 1.1.2.570 *************** *** 2057,2065 **** } catch { - #ymset {x1 y1 w h} [$c.${self}text bbox $@longline.$n] set text [$c.${self}text get $@longline.0 $@longline.end] ! mset {x1 y1 w h} [$c.${self}text bbox 0.0] ! set textlen [string length [$c.${self}text get $@longline.0 $@longline.end]] ! set textwidth [expr ($textlen * $w / [$@canvas zoom]) + $padx*2 + 2] } set iowidth [$self look iowidth] --- 2057,2062 ---- } catch { set text [$c.${self}text get $@longline.0 $@longline.end] ! set textwidth [expr [font measure [$self look font] $text]+$padx*2+2] } set iowidth [$self look iowidth]