Index: generic/gentclAPI.decls
===================================================================
diff -u -raef09781efb62a6336ecf355e927549d72b37a7a -ra4d1fd30453e4e87467b02ed749fb4007d46a5e0
--- generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision aef09781efb62a6336ecf355e927549d72b37a7a)
+++ generic/gentclAPI.decls	(.../gentclAPI.decls)	(revision a4d1fd30453e4e87467b02ed749fb4007d46a5e0)
@@ -60,7 +60,7 @@
   {-argName "object" -required 1 -type object}
   {-argName "methodName" -required 1}
   {-argName "-per-object"}
-  {-argName "methodproperty" -required 1 -type "protected|public|slotobj"}
+  {-argName "methodproperty" -required 1 -type "protected|static|slotobj"}
   {-argName "value" -type tclobj}
 }
 xotclCmd my XOTclMyCmd {
@@ -135,7 +135,8 @@
   {-argName "invariantlist" -required 1 -type tclobj}
 }
 objectMethod method XOTclOMethodMethod {
-  {-argName "-inner-namespace" -type switch}
+  {-argName "-inner-namespace"}
+  {-argName "-protected"}
   {-argName "name" -required 1 -type tclobj}
   {-argName "args" -required 1 -type tclobj}
   {-argName "body" -required 1 -type tclobj}
@@ -211,21 +212,15 @@
   {-argName "name" -required 1}
 }
 classMethod method XOTclCMethodMethod {
-  {-argName "-per-object" -type switch}
   {-argName "-inner-namespace" -type switch}
+  {-argName "-per-object" -type switch}
+  {-argName "-protected"}
   {-argName "name" -required 1 -type tclobj}
   {-argName "args" -required 1 -type tclobj}
   {-argName "body" -required 1 -type tclobj}
   {-argName "-precondition"  -nrargs 1 -type tclobj}
   {-argName "-postcondition" -nrargs 1 -type tclobj}
 }
-classMethod classscopedinstproc XOTclCInstProcMethodC {
-  {-argName "name" -required 1 -type tclobj}
-  {-argName "args" -required 1 -type tclobj}
-  {-argName "body" -required 1 -type tclobj}
-  {-argName "precondition"  -type tclobj}
-  {-argName "postcondition" -type tclobj}
-}
 classMethod instforward XOTclCInstForwardMethod {
   {-argName "name" -required 1 -type tclobj}
   {-argName "-default" -nrargs 1 -type tclobj}
@@ -244,10 +239,6 @@
   {-argName "name" -required 1 -type tclobj}
   {-argName "args" -type allargs}
 }
-classMethod unknown XOTclCUnknownMethod {
-  {-argName "name" -required 1}
-  {-argName "args" -type allargs}
-}
 
 #
 # check methods