Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4383
Modified Files: Tag: desiredata desire.tk Log Message: fix TextBox update_size
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.240 retrieving revision 1.1.2.600.2.241 diff -C2 -d -r1.1.2.600.2.240 -r1.1.2.600.2.241 *** desire.tk 15 Jul 2007 13:16:23 -0000 1.1.2.600.2.240 --- desire.tk 15 Jul 2007 22:56:18 -0000 1.1.2.600.2.241 *************** *** 2347,2352 **** set c [$self cwidget] set t $c.${self}text - #set width [font measure [$self look font] W] - #set ls [font metrics [$self look font] -linespace] if {[winfo exists $c.${self}text]} { set nl [lindex [$t configure -height] 4] --- 2347,2350 ---- *************** *** 2361,2366 **** } catch { ! set text [$c.${self}text get $@longline.0 $@longline.end] ! set textwidth [expr {[font measure [$self look font] $text]+20}];#+20 hack } set iowidth [$self look iowidth] --- 2359,2366 ---- } catch { ! #set text [$c.${self}text get $@longline.0 $@longline.end] ! #set textwidth [expr {[font measure [$self look font] $text]+20}];#+20 hack ! mset {x1 y1 x2 y2} [[[$self canvas] widget] bbox ${self}text] ! set textwidth [expr $x2-$x1+2] } set iowidth [$self look iowidth]