Index: generic/predefined.h =================================================================== diff -u -r15b6823910520e77bfa8c2cf4ea78289af91c28c -r199681097494e7dbacc4e1cc368638a058fec73d --- generic/predefined.h (.../predefined.h) (revision 15b6823910520e77bfa8c2cf4ea78289af91c28c) +++ generic/predefined.h (.../predefined.h) (revision 199681097494e7dbacc4e1cc368638a058fec73d) @@ -312,14 +312,14 @@ "array set \"\" [$slot toParameterSyntax]\n" "lappend parameterdefinitions -$(oparam)}\n" "return $parameterdefinitions}\n" -"::xotcl2::Object protected method objectparameter {} {\n" +"::xotcl2::Object protected method objectparameter {{lastparameter arg:initcmd,optional}} {\n" "set parameterdefinitions [::xotcl::parametersFromSlots [::xotcl::current object]]\n" "if {[::xotcl::objectproperty [::xotcl::current object] class]} {\n" "lappend parameterdefinitions -parameter:method,optional}\n" "lappend parameterdefinitions \\\n" "-noinit:method,optional,noarg \\\n" "-volatile:method,optional,noarg \\\n" -"arg:initcmd,optional\n" +"{*}$lastparameter\n" "return $parameterdefinitions}\n" "::xotcl::MetaSlot create ::xotcl::RelationSlot\n" "createBootstrapAttributeSlots ::xotcl::RelationSlot {\n"