With version 1.3.0 I've tried to extend the class to support a new option in using the following code:

xotcl::nonPosArgs proc in { allowedValues argName args} {
 if { [lsearch $allowedValues $args] == -1 } {
     error "Invalid value |$args| for option $argName (allowed values: [join $allowedValues {, }])"
 }
}

example:

Class create A
A proc y {{{-q:in {add remove}} add}} {} {
puts $q
}
A y; # prints add
A t -q bad; # throw an error
A y -q remove; # prints remove

With version 1.3.1 this code doesn't work anymore and the error returned is:

::xotcl::nonPosArgs: unable to dispatch method 'in {add remove}'

How can I change the prototype to make it work again ?

Thanks,
Giovanni.

--------------------------------------------------------------------
CONFIDENTIALITY NOTICE
This message and its attachments are addressed solely to the persons
above and may contain confidential information. If you have received
the message in error, be informed that any use of the content hereof
is prohibited. Please return it immediately to the sender and delete
the message. Should you have any questions, please contact us by
replying to webmaster@telecomitalia.it.
        Thank you
                                        www.telecomitalia.it
--------------------------------------------------------------------