Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26208
Modified Files: Tag: desiredata desire.tk Log Message: fixed serial on connecting objects
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.63 retrieving revision 1.1.2.600.2.64 diff -C2 -d -r1.1.2.600.2.63 -r1.1.2.600.2.64 *** desire.tk 12 Dec 2006 17:18:13 -0000 1.1.2.600.2.63 --- desire.tk 12 Dec 2006 18:00:41 -0000 1.1.2.600.2.64 *************** *** 3079,3083 **** def Canvas connect {wire} { mset {from outlet to inlet} $wire ! netsend [list .$self connect $from $outlet $to $inlet] $@history add [list $self disconnect $wire] } --- 3079,3083 ---- def Canvas connect {wire} { mset {from outlet to inlet} $wire ! netsend [list .$self connect $from $outlet $to $inlet] {none} $@history add [list $self disconnect $wire] } *************** *** 3852,3869 **** } } else { - puts " iosel_i ---> $@keynav_iosel_i" - puts " iosel_o ---> $@keynav_iosel_o" foreach out_obj $@keynav_iosel_o { ! set out_idx [$self children_idx $out_obj] ! set out_port [lindex $_($out_obj:ioselect) 0] ! puts " ----> $out_obj :: $out_idx :: $out_port" foreach in_obj $@keynav_iosel_i { ! set in_idx [$self children_idx $in_obj] ! set in_port [lindex $_($in_obj:ioselect) 0] ! puts " ----> $in_obj :: $in_idx :: $in_port" ! netsend [list .$self connect $out_idx $out_port $in_idx $in_port] } ! } ! $self dehilite_io } } --- 3852,3865 ---- } } else { foreach out_obj $@keynav_iosel_o { ! set from [$self children_idx $out_obj] ! set outlet [lindex $_($out_obj:ioselect) 0] foreach in_obj $@keynav_iosel_i { ! set to [$self children_idx $in_obj] ! set inlet [lindex $_($in_obj:ioselect) 0] ! $self connect [list $from $outlet $to $inlet] } ! } ! $self dehilite_io } }