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