[PD-cvs] pd/src desire.tk,1.1.2.600.2.63,1.1.2.600.2.64

[Mathieu Bouchard]

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
  			}
  		}