[PD-cvs] pd/src poe.tcl,1.1.2.2.2.7,1.1.2.2.2.8

[Mathieu Bouchard]

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

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
introducing real destructors


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.7
retrieving revision 1.1.2.2.2.8
diff -C2 -d -r1.1.2.2.2.7 -r1.1.2.2.2.8
*** poe.tcl	13 Dec 2006 16:10:44 -0000	1.1.2.2.2.7
--- poe.tcl	14 Dec 2006 02:56:33 -0000	1.1.2.2.2.8
***************
*** 149,153 ****
  
  # virtual destructor
! def Thing delete {} {}
  
  def Thing vars {} {
--- 149,156 ----
  
  # virtual destructor
! def Thing delete {} {
! 	foreach elem [array names _ $self:*] {array unset _ $elem}
! 	rename $self ""
! }
  
  def Thing vars {} {
***************
*** 229,231 ****
  	}
  	puts "} ($n objects)"
! }
\ No newline at end of file
--- 232,234 ----
  	}
  	puts "} ($n objects)"
! }