[PD-cvs] pd/src desire.tk,1.1.2.447,1.1.2.448

[Mathieu Bouchard]

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

Modified Files:
      Tag: devel_0_39
	desire.tk 
Log Message:
fixed SelRect and other subpatch-related problems


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.447
retrieving revision 1.1.2.448
diff -C2 -d -r1.1.2.447 -r1.1.2.448
*** desire.tk	1 Sep 2006 19:32:32 -0000	1.1.2.447
--- desire.tk	1 Sep 2006 19:41:30 -0000	1.1.2.448
***************
*** 1880,1884 ****
  	set born [lwithout $wires $@wires]
  	set born_num [expr [llength $born] - 1]
- 	puts "borns = $born"
  	foreach x $born {
  		$x subscribe $self
--- 1880,1883 ----
***************
*** 1887,1891 ****
  	}
  	set dead [lwithout $@wires $wires];
- 	puts "dead = $dead"
  	foreach x $dead {
  		$x delete
--- 1886,1889 ----
***************
*** 2499,2503 ****
  		default {$@action unclick $x $y $f $target}
        		}
! 		set @action [SelRect new $@canvas $x $y $f $target]
  		return
  	  }
--- 2497,2501 ----
  		default {$@action unclick $x $y $f $target}
        		}
! 		set @action [SelRect new $self $x $y $f $target]
  		return
  	  }
***************
*** 4531,4537 ****
  	super
  	set @canvas $canvas
! 	set @x 0
! 	set @y 0
! 	set @target {none}
  }
  
--- 4529,4533 ----
  	super
  	set @canvas $canvas
! 	$self data= 0 0 {none}
  }