[PD-cvs] pd/src poe.tcl,1.1.2.2.2.23,1.1.2.2.2.24
Mathieu Bouchard
matju at users.sourceforge.net
Thu Aug 30 00:06:28 CEST 2007
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]"
} {
More information about the Pd-cvs
mailing list