Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32680
Modified Files: Tag: devel_0_39 desire.tk Log Message: t_canvas doesn't preserve index numbers from when file was last saved, so why should def canvas add,del ?
Index: desire.tk =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/desire.tk,v retrieving revision 1.1.2.81 retrieving revision 1.1.2.82 diff -C2 -d -r1.1.2.81 -r1.1.2.82 *** desire.tk 24 Sep 2005 23:21:15 -0000 1.1.2.81 --- desire.tk 27 Sep 2005 11:07:34 -0000 1.1.2.82 *************** *** 1258,1263 **** #-----------------------------------------------------------------------------------# def* canvas window_title {title} {wm title .x$self $title} ! def* canvas add {i obj} {lset @children $i $obj} ! def* canvas del {i} {lset @children $i ""}
def canvas delete_selection {} { --- 1258,1274 ---- #-----------------------------------------------------------------------------------# def* canvas window_title {title} {wm title .x$self $title} ! #def* canvas add {i obj} {lset @children $i $obj} ! #def* canvas del {i} {lset @children $i ""} ! ! def* canvas add {obj} { ! set i [lsearch $@children $obj] ! if {!$i} {lappend @children $obj} ! } ! ! def* canvas del {obj} { ! set i [lsearch $@children $obj] ! if {$i} {set @children [lreplace $@children $i $i]} ! } !
def canvas delete_selection {} {