Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26131
Modified Files: Tag: desiredata desire.tk Log Message: fixed def Canvas del
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.600.2.308 retrieving revision 1.1.2.600.2.309 diff -C2 -d -r1.1.2.600.2.308 -r1.1.2.600.2.309 *** desire.tk 7 Aug 2007 15:41:21 -0000 1.1.2.600.2.308 --- desire.tk 7 Aug 2007 16:16:51 -0000 1.1.2.600.2.309 *************** *** 2775,2779 ****
def Canvas del {i} { ! set o [$self child_by_idx $i] #this keynav should be better sorted out if {$o == $@keynav_current || $o == $@keynav_last_obj} { --- 2775,2779 ----
def Canvas del {i} { ! set o [$@objects get $i] #this keynav should be better sorted out if {$o == $@keynav_current || $o == $@keynav_last_obj} { *************** *** 2790,2794 **** $meuh delete } ! netsend [list .$self object_delete [dex $@objects $o]] }
--- 2790,2794 ---- $meuh delete } ! netsend [list .$self object_delete $o] }