[PD-cvs] pd/src poe.tcl,1.1.2.2.2.21,1.1.2.2.2.22

[Mathieu Bouchard]

Update of /cvsroot/pure-data/pd/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16851

Modified Files:
      Tag: desiredata
	poe.tcl 
Log Message:
print selector when tracedef on "unknown" method


Index: poe.tcl
===================================================================
RCS file: /cvsroot/pure-data/pd/src/Attic/poe.tcl,v
retrieving revision 1.1.2.2.2.21
retrieving revision 1.1.2.2.2.22
diff -C2 -d -r1.1.2.2.2.21 -r1.1.2.2.2.22
*** poe.tcl	13 Aug 2007 03:18:07 -0000	1.1.2.2.2.21
--- poe.tcl	13 Aug 2007 05:25:52 -0000	1.1.2.2.2.22
***************
*** 40,44 ****
  	set argl {}
  	foreach arg $args {set arg [lindex $arg 0]; lappend argl "$arg=\$$arg"}
! 	proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
  }
  
--- 40,48 ----
  	set argl {}
  	foreach arg $args {set arg [lindex $arg 0]; lappend argl "$arg=\$$arg"}
! 	if {[regexp {_unknown$} $name]} {
! 		proc $name $args "upvar 1 selector ___; puts \"\[VTgreen\]CALL TO PROC $name selector=\$___ [join $argl " "]\[VTgrey\]\"; $body"
! 	} else {
! 		proc $name $args "puts \"\[VTgreen\]CALL TO PROC $name [join $argl " "]\[VTgrey\]\"; $body"
! 	}
  }