[PD-cvs] pd/src desire.tk,1.1.2.100,1.1.2.101

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed 3 calls to bbox


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.100
retrieving revision 1.1.2.101
diff -C2 -d -r1.1.2.100 -r1.1.2.101
*** desire.tk	2 Nov 2005 15:18:06 -0000	1.1.2.100
--- desire.tk	4 Nov 2005 00:18:41 -0000	1.1.2.101
***************
*** 1208,1212 ****
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
  	pd .x$@canvas text_setto !$self $l
! 	eval "focus $c"
  }
  
--- 1208,1212 ----
  	foreach char [split $@text ""] {lappend l [scan $char %c]}
  	pd .x$@canvas text_setto !$self $l
! 	focus $c
  }
  
***************
*** 1398,1403 ****
  	if {$@editmode} {set event motionedit} {set event motion}
  	$id $event $self $x $y $mods
! 	if {$@editmode && [llength [$id bbox $self]]} {
! 	  mset {x1 y1 x2 y2} [$id bbox $self]
  	  if {abs($y1+3-$y)<=3} {
  		set port [$id hilite_io $self i $x $y]
--- 1398,1403 ----
  	if {$@editmode} {set event motionedit} {set event motion}
  	$id $event $self $x $y $mods
! 	if {$@editmode && [llength [$id bbox]]} {
! 	  mset {x1 y1 x2 y2} [$id bbox]
  	  if {abs($y1+3-$y)<=3} {
  		set port [$id hilite_io $self i $x $y]
***************
*** 1509,1513 ****
  	if {!($f&8) && $@editmode && [llength [$id bbox]]} {
  	    #$self start_wire
! 	    mset {x1 y1 x2 y2} [$id bbox $self]
  	    if {abs($y2-3-$y)<=3} {
  		set outs 0
--- 1509,1513 ----
  	if {!($f&8) && $@editmode && [llength [$id bbox]]} {
  	    #$self start_wire
! 	    mset {x1 y1 x2 y2} [$id bbox]
  	    if {abs($y2-3-$y)<=3} {
  		set outs 0