[PD-cvs] pd/src poe.tcl,1.1.2.2.2.18,1.1.2.2.2.19

Mathieu Bouchard matju at users.sourceforge.net
Mon Aug 13 00:59:38 CEST 2007


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]"
  	} {





More information about the Pd-cvs mailing list