[PD-cvs] pd/src poe.tcl,1.1.2.2.2.6,1.1.2.2.2.7
Mathieu Bouchard
matju at users.sourceforge.net
Wed Dec 13 17:10:47 CET 2006
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
More information about the Pd-cvs
mailing list