Artifact
450a1bc8de599d7f4e38af93f322f85cfd8ee7ea:
Attachment "oo_forward_cosmetic.tcl" to
ticket [3400658fff]
added by
rsooltan
2011-08-30 17:50:36.
set info {
# Cosmetic defect, returns incorrect number of args when forwarding to another method.
# No functional impact but misleading when debugging.
% puts $tcl_patchLevel
8.6b1.2
}
proc _phandler {arg1 arg2} {}
oo::class create test {
forward test1 my _mhandler
forward test2 my _mhandler arg
forward test3 _phandler
forward test4 _phandler arg
method _mhandler {arg1 arg2} {}
}
set o [test new]
catch {$o test1} err; puts $err ;# Should show 2 x args
catch {$o test2} err; puts $err ;# Should show 1 x arg
catch {$o test3} err; puts $err ;# Shows 2 x args as expected
catch {$o test4} err; puts $err ;# Shows 1 x arg as expected
