[PD-cvs] pd/src desire.tk,1.1.2.577,1.1.2.578

[chunlee]

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