Index: generic/predefined.h =================================================================== diff -u -r199681097494e7dbacc4e1cc368638a058fec73d -r261afd3f6e91b27144e6614a535518bbec6d5cde --- generic/predefined.h (.../predefined.h) (revision 199681097494e7dbacc4e1cc368638a058fec73d) +++ generic/predefined.h (.../predefined.h) (revision 261afd3f6e91b27144e6614a535518bbec6d5cde) @@ -91,14 +91,10 @@ "{*}[expr {${objscope} ? \"-objscope\" : \"\"}] \\\n" "{*}[expr {${nonleaf} ? \"-nonleaf\" : \"\"}] \\\n" "$cmd}\n" -"Object public method setter {methodName value:optional} {\n" -"if {[info exists value]} {\n" -"::xotcl::setter [::xotcl::current object] -per-object $methodName $value} else {\n" -"::xotcl::setter [::xotcl::current object] -per-object $methodName}}\n" -"Class public method setter {methodName value:optional} {\n" -"if {[info exists value]} {\n" -"::xotcl::setter [::xotcl::current object] $methodName $value} else {\n" -"::xotcl::setter [::xotcl::current object] $methodName}}\n" +"Object public method setter {methodName} {\n" +"::xotcl::setter [::xotcl::current object] -per-object $methodName}\n" +"Class public method setter {methodName} {\n" +"::xotcl::setter [::xotcl::current object] $methodName}\n" "Object create ::xotcl2::objectInfo\n" "Object create ::xotcl2::classInfo\n" "objectInfo eval {\n"