[PD-cvs] pd/src desire.tk,1.1.2.600.2.240,1.1.2.600.2.241

[chunlee]

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]