[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