Index: tests/protected.xotcl =================================================================== diff -u -r142687efa93af981936db61ecfde494d8f269b0a -r2f283277aff2bb9488419a4fbe2442a5b17546e5 --- tests/protected.xotcl (.../protected.xotcl) (revision 142687efa93af981936db61ecfde494d8f269b0a) +++ tests/protected.xotcl (.../protected.xotcl) (revision 2f283277aff2bb9488419a4fbe2442a5b17546e5) @@ -81,10 +81,10 @@ ? {c2 bar-SET} 1 ? {catch {c2 bar-foo} errorMsg; set errorMsg} {::c1: unable to dispatch method 'foo'} -? {::xotcl::methodproperty C SET static true} 1 +? {::xotcl::methodproperty C SET redefine-protected true} 1 ? {catch {C method SET {a b c} {...}} errorMsg; set errorMsg} \ {Method 'SET' of ::C can not be overwritten. Derive e.g. a sub-class!} -? {::xotcl::methodproperty C foo static true} 1 +? {::xotcl::methodproperty C foo redefine-protected true} 1 ? {catch {C method foo {a b c} {...}} errorMsg; set errorMsg} \ {Method 'foo' of ::C can not be overwritten. Derive e.g. a sub-class!} # check a predefined protection @@ -103,7 +103,7 @@ # overwrite-protect object specific method Object create o o method foo {} {return 13} -::xotcl::methodproperty o foo static true +::xotcl::methodproperty o foo redefine-protected true ? {catch {o method foo {} {return 14}} errorMsg; set errorMsg} \ {Method 'foo' of ::o can not be overwritten. Derive e.g. a sub-class!}