Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv6531
Modified Files: Tag: devel_0_39 desire.tk Log Message: small bug objectbox_update_size fixed
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.58 retrieving revision 1.1.2.59 diff -C2 -d -r1.1.2.58 -r1.1.2.59 *** desire.tk 14 Sep 2005 17:38:03 -0000 1.1.2.58 --- desire.tk 15 Sep 2005 11:23:15 -0000 1.1.2.59 *************** *** 694,700 **** #-----------------------------------------------------------------------------------# # why didn't you use the font metrics function? --matju set font(size) 12 - set font(width) 0 - set font(height) 0 set font(pady) 3 set font(padx) 5 --- 694,699 ---- #-----------------------------------------------------------------------------------# # why didn't you use the font metrics function? --matju + # didn't know it then, was guessing the values to get it to work:/ --chun set font(size) 12 set font(pady) 3 set font(padx) 5 *************** *** 1278,1282 **** def* objectbox update_size {} { global font ! set @xs [expr $font(padx)+$font(width)*([llength $@text]+$@isnew)] set @ys [expr $font(pady)+$font(height)] } --- 1277,1281 ---- def* objectbox update_size {} { global font ! set @xs [expr $font(padx)+$font(width)*([expr [string length $@text]+1]+$@isnew)] set @ys [expr $font(pady)+$font(height)] }