Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8614
Modified Files: Tag: desiredata poe.tcl Log Message: tracedef can use "*" as wildcard
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.18 retrieving revision 1.1.2.2.2.19 diff -C2 -d -r1.1.2.2.2.18 -r1.1.2.2.2.19 *** poe.tcl 12 Aug 2007 20:06:46 -0000 1.1.2.2.2.18 --- poe.tcl 12 Aug 2007 22:59:36 -0000 1.1.2.2.2.19 *************** *** 58,62 **** set name ${self}_$selector set argnames [concat [list self] $argnames] ! if {[info exists __trace($self:$selector)]} { proc* $name $argnames "global _; [expand_macros $body]" } { --- 58,63 ---- set name ${self}_$selector set argnames [concat [list self] $argnames] ! if {[info exists __trace($self:$selector)] || [info exists __trace(*:$selector)] ! || [info exists __trace($self:*)] || [info exists __trace(*:*)]} { proc* $name $argnames "global _; [expand_macros $body]" } {