pd/src desire.tk,1.1.2.81,1.1.2.82 - Pd-cvs

27 Sep 2005


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