[PD-cvs] pd/src poe.tcl,1.1.2.2.2.15,1.1.2.2.2.16

Mathieu Bouchard matju at users.sourceforge.net
Sun Jul 29 21:21:41 CEST 2007


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

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
added proc object_exists


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.15
retrieving revision 1.1.2.2.2.16
diff -C2 -d -r1.1.2.2.2.15 -r1.1.2.2.2.16
*** poe.tcl	18 Jul 2007 03:01:36 -0000	1.1.2.2.2.15
--- poe.tcl	29 Jul 2007 19:21:38 -0000	1.1.2.2.2.16
***************
*** 238,247 ****
  
  proc object_table {} {
- 	global _
  	set n 0
  	puts "poe.tcl object_table: {"
! 	foreach o [lsort [array names _ *:_class]] {
  		set oo [lindex [split $o :] 0]
! 		set class $_($o)
  		incr by_class($class)
  		puts "  $oo is a $class"
--- 238,246 ----
  
  proc object_table {} {
  	set n 0
  	puts "poe.tcl object_table: {"
! 	foreach o [lsort [array names ::_ *:_class]] {
  		set oo [lindex [split $o :] 0]
! 		set class $::_($o)
  		incr by_class($class)
  		puts "  $oo is a $class"
***************
*** 257,258 ****
--- 256,259 ----
  	puts "} ($n classes)"
  }
+ 
+ proc object_exists {self} {info exists ::_($self:_class)}





More information about the Pd-cvs mailing list