Update of /cvsroot/pure-data/pd/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv22372
Modified Files: Tag: desiredata poe.tcl Log Message: tracedef can exclude methods (thanks to federico)
Index: poe.tcl =================================================================== RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v retrieving revision 1.1.2.2.2.23 retrieving revision 1.1.2.2.2.24 diff -C2 -d -r1.1.2.2.2.23 -r1.1.2.2.2.24 *** poe.tcl 18 Aug 2007 08:21:24 -0000 1.1.2.2.2.23 --- poe.tcl 29 Aug 2007 22:06:26 -0000 1.1.2.2.2.24 *************** *** 63,68 **** 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]" } { --- 63,71 ---- 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(*:*)]) ! && ![info exists __trace($self:!$selector)] ! && ![info exists __trace(*:!$selector)] ! } { proc* $name $argnames "global _; [expand_macros $body]" } {