pd/src desire.tk,1.1.2.93,1.1.2.94 - Pd-cvs

1 Nov 2005


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1935
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.93
retrieving revision 1.1.2.94
diff -C2 -d -r1.1.2.93 -r1.1.2.94
*** desire.tk	1 Nov 2005 16:51:02 -0000	1.1.2.93
--- desire.tk	1 Nov 2005 17:23:16 -0000	1.1.2.94
***************
*** 1162,1166 ****
  def* textbox update_size {} {
    global font
! 	set @xs [expr $font(padx)+$font(width)*([expr [string length $@text]]-$@valid)]
    set @ys [expr $font(pady)+$font(height)]
  }
--- 1162,1167 ----
  def* textbox update_size {} {
    global font
! 	#added +1 below that fixs the initial box size on my side - chun
! 	set @xs [expr $font(padx)+$font(width)*([expr [string length $@text]+1]-$@valid)]
    set @ys [expr $font(pady)+$font(height)]
  }