Tk Library Source Code

The procedure "ProcedureArgumentEvaluation" incorrectly assumes that if a procedure name returned by [info level -1] doesn't start with "::" then the procedure isn't qualified with a namespace designation at all, neglecting the possibility of a relative namespace qualifier.  This leads to failure to match the called procedure with its definition stored in array ProcDef, and no arguments corresponding to command line flags are defined.

The problem is illustrated in the attached file.  A tepam procedure is defined, then called first with an absolute namespace qualifier, then again with a relative qualifier.  The first call succeeds, the second fails.

The "if" statement starting at line 642 appears to be the cause of the problem.  Replacing the entire "if" statement with the line "set ProcName [uplevel 2 "info command $ProcName"]" appears to fix the problem (only lightly tested).

tepam version 0.4.0

allow_comments - 0

I have downloaded version 0.4.1 from fossil.  It passes the test script and I have put it into my application where it works fine.  I consider the issue closed.

Stephen,
Please check my comment I posted on May 21. For me this issue is already fixed in the newest package that is inside the Fossil repository (revision 0.4.1 from March 25th). Please confirm.
Thanks,
Andreas

Better quoting would be

set ProcName [uplevel 2 [list info command $ProcName]]"

in case proc name contains spaces.

File Added - 463452: tepam_patched.tcl

File Added - 463451: test.tcl