[PD-cvs] pd/src desire.tk,1.1.2.600.2.321,1.1.2.600.2.322

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	desire.tk 
Log Message:
fix wire connection/disconnection/etc (proc dex)


Index: desire.tk
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v
retrieving revision 1.1.2.600.2.321
retrieving revision 1.1.2.600.2.322
diff -C2 -d -r1.1.2.600.2.321 -r1.1.2.600.2.322
*** desire.tk	8 Aug 2007 21:33:55 -0000	1.1.2.600.2.321
--- desire.tk	8 Aug 2007 21:43:51 -0000	1.1.2.600.2.322
***************
*** 2807,2811 ****
  
  # this is a shim between the client's new-style indices and the server's remaining old-style indices
! proc dex {h k} {lsearch [lsort [$h keys]] $k}
  
  # for undo; calls the server
--- 2807,2811 ----
  
  # this is a shim between the client's new-style indices and the server's remaining old-style indices
! proc dex {h k} {lsearch [lsort -integer [$h keys]] $k}
  
  # for undo; calls the server
***************
*** 3688,3695 ****
  }
  
! def Canvas duplicate {} {
! 	$self do_duplicate 15
! }
! 
  
  def Canvas do_duplicate {offset} {
--- 3688,3692 ----
  }
  
! def Canvas duplicate {} {$self do_duplicate 15}
  
  def Canvas do_duplicate {offset} {