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" ! } }