Index: tests/parameters.xotcl =================================================================== diff -u -r536cacc0e51390f46b6bde5874c823ea03e732e2 -r2cd9b650a6c6bb8a50473195278c7005e75188b0 --- tests/parameters.xotcl (.../parameters.xotcl) (revision 536cacc0e51390f46b6bde5874c823ea03e732e2) +++ tests/parameters.xotcl (.../parameters.xotcl) (revision 2cd9b650a6c6bb8a50473195278c7005e75188b0) @@ -790,6 +790,29 @@ "fail o last value" ####################################################### +# application specific multivalued converter +####################################################### +Test case shadowing-app-converter + +Object create mySlot { + :method type=integer {name value arg:optional} { + return [expr {$value + 1}] + } +} +Object create o { + :method foo {x:integer,slot=::mySlot} { + return $x + } +} + +? {::xotcl::valuecheck integer,slot=::mySlot 1} 1 +? {o foo 3} 4 + +o destroy +mySlot destroy + + +####################################################### # slot specific converter ####################################################### Test case slot-specfic-converter