Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25079
Modified Files: Tag: desiredata poe.tcl Log Message: added proc object_table, for debugging purposes
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.6 retrieving revision 1.1.2.2.2.7 diff -C2 -d -r1.1.2.2.2.6 -r1.1.2.2.2.7 *** poe.tcl 13 Dec 2006 06:40:00 -0000 1.1.2.2.2.6 --- poe.tcl 13 Dec 2006 16:10:44 -0000 1.1.2.2.2.7 *************** *** 218,219 **** --- 218,231 ---- puts "[VTyellow]HEY! at [info level -1] set $key [list $_($key)][VTgrey]" } + + proc object_table {} { + global _ + set n 0 + puts "poe.tcl object_table: {" + foreach o [array names _ *:_class] { + set oo [lindex [split $o :] 0] + puts " $oo $_($o)" + incr n + } + puts "} ($n objects)" + } \ No newline at end of file