[PD-cvs] pd/src desire.tk,1.1.2.518,1.1.2.519

chunlee chunlee at users.sourceforge.net
Thu Oct 19 20:01:12 CEST 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 {





More information about the Pd-cvs mailing list