pd/src desire.tk,1.1.2.518,1.1.2.519 - Pd-cvs

19 Oct 2006


      Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15261
Modified Files:
      Tag: devel_0_39
    desire.tk 
Log Message:
stupid bug fix...
Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.518
retrieving revision 1.1.2.519
diff -C2 -d -r1.1.2.518 -r1.1.2.519
*** desire.tk	19 Oct 2006 17:09:16 -0000	1.1.2.518
--- desire.tk	19 Oct 2006 18:01:08 -0000	1.1.2.519
***************
*** 2348,2356 ****
    		set obj2_idx [$self children_idx $obj2]
    		set obj3_idx [$self children_idx $obj]
! 			$self connect [list $obj1_idx $outlet $obj3_idx 0]
! 			$self connect [list $obj3_idx 0 $obj2_idx $inlet]
    		
    	}
- 		#		puts "  target:::: $target"
    	$obj move [expr $x-$ox] [expr $y-$oy]
    } else {
--- 2348,2360 ----
    		set obj2_idx [$self children_idx $obj2]
    		set obj3_idx [$self children_idx $obj]
! 			set w1 [list $obj1_idx $outlet $obj3_idx 0]
! 			set w2 [list $obj3_idx 0 $obj2_idx $inlet]
! 			if {[lsearch $@wires $w1] == -1} {$self connect $w1}
! 			if {[lsearch $@wires $w2] == -1} {$self connect $w2}
! 			#$self connect [list $obj1_idx $outlet $obj3_idx 0]
! 			#$self connect [list $obj3_idx 0 $obj2_idx $inlet]
! 			set @action move
    		
    	}
    	$obj move [expr $x-$ox] [expr $y-$oy]
    } else {