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