[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