[PD-cvs] pd/src desire.tk,1.1.2.600.2.312,1.1.2.600.2.313

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
correct reindexing for the copy (clipboard) feature


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.312
retrieving revision 1.1.2.600.2.313
diff -C2 -d -r1.1.2.600.2.312 -r1.1.2.600.2.313
*** desire.tk	7 Aug 2007 16:49:00 -0000	1.1.2.600.2.312
--- desire.tk	7 Aug 2007 18:30:48 -0000	1.1.2.600.2.313
***************
*** 3588,3594 ****
  	$self copy_times= 1
  	array unset obj_index_sel $self:*
  	foreach i [lsort [$@objectsel keys]] {
  		set child [$@objectsel get $i]
! 		set obj_index_sel($self:$child) [$@objectsel search $child]
  		$child deconstruct_to $clipboard
  	}
--- 3588,3596 ----
  	$self copy_times= 1
  	array unset obj_index_sel $self:*
+ 	set j 0
  	foreach i [lsort [$@objectsel keys]] {
  		set child [$@objectsel get $i]
! 		#set obj_index_sel($self:$child) [$@objectsel search $child]
! 		set obj_index_sel($self:$child) $j; incr j
  		$child deconstruct_to $clipboard
  	}
***************
*** 3735,3743 ****
  	mset {from outlet to inlet} [$wire report]
  	switch $type {
! 	    i {if   {$to==$obj &&  $inlet==$port} {$self disconnect [$wire connects]; if  {!$inlet} {lappend @auto_wire_from $from}}}
! 	    o {if {$from==$obj && $outlet==$port} {$self disconnect [$wire connects]; if {!$outlet} {lappend @auto_wire_to   $to}}}
  	    none {
  		$self disconnect [$wire connects]
! 		if {$from==$obj && !$outlet} {lappend @auto_wire_to   $to}
  		if {  $to==$obj && ! $inlet} {lappend @auto_wire_from $from}
  	    }
--- 3737,3745 ----
  	mset {from outlet to inlet} [$wire report]
  	switch $type {
! 	    i {if {  $to==$obj &&  $inlet==$port} {$self disconnect [$wire connects]; if { !$inlet} {lappend @auto_wire_from $from}}}
! 	    o {if {$from==$obj && $outlet==$port} {$self disconnect [$wire connects]; if {!$outlet} {lappend @auto_wire_to   $to  }}}
  	    none {
  		$self disconnect [$wire connects]
! 		if {$from==$obj && !$outlet} {lappend @auto_wire_to   $to  }
  		if {  $to==$obj && ! $inlet} {lappend @auto_wire_from $from}
  	    }
***************
*** 3833,3837 ****
  	netsend [list #X restore $x $y pd sub]
  	netsend [list .$self "pop"]
- 
  }
  
--- 3835,3838 ----
***************
*** 4110,4114 ****
  		return
  	}
- 
  }
  
--- 4111,4114 ----