[PD-cvs] pd/src desire.tk,1.1.2.58,1.1.2.59

[chunlee]

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)]
  }