Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv28093
Modified Files: Tag: desiredata desire.tk Log Message: fix
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.380 retrieving revision 1.1.2.600.2.381 diff -C2 -d -r1.1.2.600.2.380 -r1.1.2.600.2.381 *** desire.tk 16 Aug 2007 05:59:45 -0000 1.1.2.600.2.380 --- desire.tk 16 Aug 2007 08:37:01 -0000 1.1.2.600.2.381 *************** *** 3971,3974 **** --- 3971,3975 ----
def Canvas subpatcherize_mkio {center iolist offset} { + puts "iolist>>>> $iolist" mset {x y} $center; set inx 0; set outx 0 for {set i 0} {$i < [llength $iolist]} {incr i} { *************** *** 3992,3995 **** --- 3993,3997 ---- set ins {}; set outs {} foreach obj [$@objectsel values] { + puts "\t \t \t \t obj:: $obj" for {set i 0} {$i < [$obj ninlets]} {incr i} { mset {brk_wires brk_quads} [$self broken_wires2 i [$@objects search $obj] $i $self] *************** *** 4009,4012 **** --- 4011,4016 ---- set ins [lsort -unique $ins]; set outs [lsort -unique $outs] # iolist stores in/outlets to be conected inside the subpatch + puts "ins ::: $ins" + puts "out ::: $outs" foreach in $ins {mset {idx p} $in; lappend iolist [list i [$self idx_map $idx] $p]} foreach out $outs {mset {idx p} $out; lappend iolist [list o [$self idx_map $idx] $p]} *************** *** 4023,4039 **** netsend [list [concat #X restore $center pd sub]] puts "\t \t Pop..................." ! netsend [list .$self "pop"] [list $self subpatcherize_rewire $broken] }
def Canvas subpatcherize_id {id} {set @subpatcherize_id $id}
! def Canvas subpatcherize_rewire {wires bogus} { set obj $@subpatcherize_id foreach wire $wires { mset {type f o t i} $wire if {$type == "i"} { ! $self connect [list $f $o [$@objects search $obj] $i] } else { ! $self connect [list [$@objects search $obj] $o $t $i] } } --- 4027,4046 ---- netsend [list [concat #X restore $center pd sub]] puts "\t \t Pop..................." ! netsend [list .$self "pop"] [list $self subpatcherize_rewire $broken $ins $outs] }
def Canvas subpatcherize_id {id} {set @subpatcherize_id $id}
! def Canvas subpatcherize_rewire {wires inlist outlist bogus} { set obj $@subpatcherize_id foreach wire $wires { mset {type f o t i} $wire + puts "wire:::: $wire" if {$type == "i"} { ! set idx [lsearch $inlist [list $t $i]] ! $self connect [list $f $o [$@objects search $obj] $idx] } else { ! set idx [lsearch $outlist [list $f $o]] ! $self connect [list [$@objects search $obj] $idx $t $i] } } *************** *** 5219,5223 ****
def Wire delete {} { - if {![winfo exists .$@canvas.c]} {return} $self unsubscribe $@canvas $@from delete_wire $self --- 5226,5229 ----