pd/src desire.tk,1.1.2.447,1.1.2.448 - Pd-cvs

1 Sep 2006


      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}
  }