Index: generic/gentclAPI.decls =================================================================== diff -u -ra47d62c39a33a69e4550eab30369560d56baf574 -re849d060161385466c782e46c19344428934cd7f --- generic/gentclAPI.decls (.../gentclAPI.decls) (revision a47d62c39a33a69e4550eab30369560d56baf574) +++ generic/gentclAPI.decls (.../gentclAPI.decls) (revision e849d060161385466c782e46c19344428934cd7f) @@ -573,6 +573,14 @@ objectInfoMethod filterguard XOTclObjInfoFilterguardMethod { {-argName "filter" -required 1} } +objectInfoMethod mixinclasses XOTclObjInfoMixinclassesMethod { + {-argName "-guards"} + {-argName "-order"} + {-argName "pattern" -type objpattern} +} +objectInfoMethod mixinguard XOTclObjInfoMixinguardMethod { + {-argName "mixin" -required 1} +} objectInfoMethod vars XOTclOVarsMethod { {-argName "pattern" -required 0} } @@ -584,6 +592,14 @@ classInfoMethod filterguard XOTclClassInfoFilterguardMethod { {-argName "filter" -required 1} } +classInfoMethod mixinclasses XOTclClassInfoMixinclassesMethod { + {-argName "-closure"} + {-argName "-guards"} + {-argName "pattern" -type objpattern} +} +classInfoMethod mixinguard XOTclClassInfoMixinguardMethod { + {-argName "mixin" -required 1} +} # # class methods @@ -810,13 +826,6 @@ {-argName "-incontext"} {-argName "pattern"} } -infoObjectMethod mixin XOTclObjInfoMixinMethod { - {-argName "object" -required 1 -type object} - {-argName "-guard"} - {-argName "-guards"} - {-argName "-order"} - {-argName "pattern" -type objpattern} -} infoObjectMethod parent XOTclObjInfoParentMethod { {-argName "object" -required 1 -type object} } @@ -865,13 +874,6 @@ {-argName "-incontext"} {-argName "pattern"} } -infoClassMethod mixin XOTclClassInfoMixinMethod { - {-argName "class" -required 1 -type class} - {-argName "-closure"} - {-argName "-guard"} - {-argName "-guards"} - {-argName "pattern" -type objpattern} -} infoClassMethod mixinof XOTclClassInfoMixinOfMethod { {-argName "class" -required 1 -type class} {-argName "-closure"}