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)" ! }