[PD-cvs] pd/src desire.tk,1.1.2.600.2.309,1.1.2.600.2.310

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27647

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fixed the fart in def Canvas connect


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.309
retrieving revision 1.1.2.600.2.310
diff -C2 -d -r1.1.2.600.2.309 -r1.1.2.600.2.310
*** desire.tk	7 Aug 2007 16:16:51 -0000	1.1.2.600.2.309
--- desire.tk	7 Aug 2007 16:21:00 -0000	1.1.2.600.2.310
***************
*** 3712,3717 ****
  	mset {from outlet to inlet} $wire
  	switch $callback {
! 		none    {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]]}
! 		default {netsend [list .$self connect $from [dex $@objects $outlet] $to [dex $@objects $inlet]] $callback}
  	}
  	$@history add [list $self disconnect $wire]
--- 3712,3717 ----
  	mset {from outlet to inlet} $wire
  	switch $callback {
! 		none    {netsend [list .$self connect [dex $@objects $from] $outlet [dex $@objects $to] $inlet]}
! 		default {netsend [list .$self connect [dex $@objects $from] $outlet [dex $@objects $to] $inlet] $callback}
  	}
  	$@history add [list $self disconnect $wire]