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