Index: generic/gentclAPI.decls =================================================================== diff -u -r68e773f0a21300bd799c60fefc76f696fd230ca0 -rbe717fe9ef13e09dcfabf496ca61d75e4c042422 --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision 68e773f0a21300bd799c60fefc76f696fd230ca0) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision be717fe9ef13e09dcfabf496ca61d75e4c042422) @@ -18,9 +18,9 @@ # xotclCmd alias XOTclAliasCmd { {-argName "object" -type object} + {-argName "-per-object"} {-argName "methodName"} {-argName "-objscope"} - {-argName "-per-object"} {-argName "cmdName" -required 1 -type tclobj} } xotclCmd assertion XOTclAssertionCmd { @@ -44,7 +44,6 @@ xotclCmd dispatch XOTclDispatchCmd { {-argName "object" -required 1 -type object} {-argName "-objscope"} - {-argName "-noassertions"} {-argName "command" -required 1 -type tclobj} {-argName "args" -type args} } @@ -96,8 +95,8 @@ } xotclCmd methodproperty XOTclMethodPropertyCmd { {-argName "object" -required 1 -type object} - {-argName "methodName" -required 1 -type tclobj} {-argName "-per-object"} + {-argName "methodName" -required 1 -type tclobj} {-argName "methodproperty" -required 1 -type "protected|redefine-protected|slotobj"} {-argName "value" -type tclobj} } @@ -132,8 +131,8 @@ } xotclCmd setter XOTclSetterCmd { {-argName "object" -required 1 -type object} + {-argName "-per-object"} {-argName "methodName" -required 1} - {-argName "-per-object" -type switch} } # # object methods