pd/src desire.tk,1.1.2.100,1.1.2.101 - Pd-cvs

4 Nov 2005


      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