Index: generic/gentclAPI.decls =================================================================== diff -u -rc09536ecf46b5a272a87a42a7deb59b852df5ec8 -r1a2ed9fd48d2c4326e27378a9a8accae1c008bad --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision c09536ecf46b5a272a87a42a7deb59b852df5ec8) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision 1a2ed9fd48d2c4326e27378a9a8accae1c008bad) @@ -301,13 +301,13 @@ infoObjectMethod method XOTclObjInfoMethodMethod { {-argName "object" -type object} - {-argName "infomethodsubcmd" -type "args|definition|name|parameter|type"} + {-argName "infomethodsubcmd" -type "args|definition|name|parameter|type|pre|post"} {-argName "name"} } ### TODO move finally to infoclassmethod infoClassMethod method XOTclClassInfoMethodMethod { {-argName "class" -type class} - {-argName "infomethodsubcmd" -type "args|definition|name|parameter|type"} + {-argName "infomethodsubcmd" -type "args|definition|name|parameter|type|pre|post"} {-argName "name"} } @@ -342,14 +342,6 @@ infoObjectMethod parent XOTclObjInfoParentMethod { {-argName "object" -required 1 -type object} } -infoObjectMethod post XOTclObjInfoPostMethod { - {-argName "object" -required 1 -type object} - {-argName "methodName" -required 1} -} -infoObjectMethod pre XOTclObjInfoPreMethod { - {-argName "object" -required 1 -type object} - {-argName "methodName" -required 1} -} infoObjectMethod precedence XOTclObjInfoPrecedenceMethod { {-argName "object" -required 1 -type object} {-argName "-intrinsic"} @@ -396,7 +388,7 @@ {-argName "-definition"} {-argName "name"} } -infoClassMethod instinvar XOTclClassInfoInstinvarMethod { +infoClassMethod invar XOTclClassInfoInvarMethod { {-argName "class" -required 1 -type class} } infoClassMethod mixin XOTclClassInfoMixinMethod { @@ -414,14 +406,6 @@ {-argName "-closure"} {-argName "pattern" -type objpattern} } -infoClassMethod instpost XOTclClassInfoInstpostMethod { - {-argName "class" -required 1 -type class} - {-argName "methodName" -required 1} -} -infoClassMethod instpre XOTclClassInfoInstpreMethod { - {-argName "class" -required 1 -type class} - {-argName "methodName" -required 1} -} infoClassMethod mixinof XOTclClassInfoMixinofMethod { {-argName "class" -required 1 -type class} {-argName "-closure"}