[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