[PD-cvs] pd/src desire.tk,1.1.2.569,1.1.2.570

chunlee chunlee at users.sourceforge.net
Sun Nov 19 23:47:14 CET 2006


Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15786

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
now use font measure in TextBox update_size


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.569
retrieving revision 1.1.2.570
diff -C2 -d -r1.1.2.569 -r1.1.2.570
*** desire.tk	19 Nov 2006 22:28:13 -0000	1.1.2.569
--- desire.tk	19 Nov 2006 22:47:10 -0000	1.1.2.570
***************
*** 2057,2065 ****
  	}
  	catch {
- 		#ymset {x1 y1 w h} [$c.${self}text bbox $@longline.$n]
  		set text [$c.${self}text get $@longline.0 $@longline.end]
! 		mset {x1 y1 w h} [$c.${self}text bbox 0.0]
! 		set textlen [string length [$c.${self}text get $@longline.0 $@longline.end]]
! 		set textwidth [expr ($textlen * $w / [$@canvas zoom]) + $padx*2 + 2]
  	}
  	set iowidth [$self look iowidth]
--- 2057,2062 ----
  	}
  	catch {
  		set text [$c.${self}text get $@longline.0 $@longline.end]
! 		set textwidth [expr [font measure [$self look font] $text]+$padx*2+2]
  	}
  	set iowidth [$self look iowidth]





More information about the Pd-cvs mailing list