Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2072
Modified Files: Tag: devel_0_39 desire.tk Log Message: fixed some broken stuff on wires
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.577 retrieving revision 1.1.2.578 diff -C2 -d -r1.1.2.577 -r1.1.2.578 *** desire.tk 20 Nov 2006 06:48:57 -0000 1.1.2.577 --- desire.tk 20 Nov 2006 11:29:29 -0000 1.1.2.578 *************** *** 2151,2155 **** } if {[$@canvas action] == "chain_obj"} { ! set obj1_idx [$@canvas children_idx [$@canvas selection]] set obj2_idx [$@canvas children_idx $self] $@canvas connect [list $obj1_idx 0 $obj2_idx 0] --- 2151,2155 ---- } if {[$@canvas action] == "chain_obj"} { ! set obj1_idx [$@canvas children_idx [lindex [$@canvas selection] 0]] set obj2_idx [$@canvas children_idx $self] $@canvas connect [list $obj1_idx 0 $obj2_idx 0] *************** *** 2868,2872 **** set type [lindex [$obj ioselect] 1] } ! foreach wire [$obj wires] { mset {obj1 port1 obj2 port2} [$wire report] switch $type { --- 2868,2872 ---- set type [lindex [$obj ioselect] 1] } ! foreach wire [$obj wires2] { mset {obj1 port1 obj2 port2} [$wire report] switch $type { *************** *** 3135,3139 **** } } ! 2 {if {![llength [$id wires]]} {return}; $self auto_wire} } } --- 3135,3139 ---- } } ! 2 {if {![llength [$id wires2]]} {return}; $self auto_wire} } }