Index: TODO =================================================================== diff -u -r0d35d1ccd86f2b72296ff01d0d83747ca1c0de65 -rbc264a2e24d7693798442800b62829f8b73cfb86 --- TODO (.../TODO) (revision 0d35d1ccd86f2b72296ff01d0d83747ca1c0de65) +++ TODO (.../TODO) (revision bc264a2e24d7693798442800b62829f8b73cfb86) @@ -1683,9 +1683,12 @@ after: parameters/parametercheck.007: 2.32 mms, ::nsf::is baseclass C - remove scripted definition of "baseclass" and "metaclass" +- keep track of defaultMethodCallProtection and defaultAttributeCallProtection + in serailizer + TODO: -- cleanup of xotcl-aol +- test xotcl-aol + aolserver 4.* - method-modifiers/attribute-method.002: incorrect result for 'set _ {}' expected: '::C::A', got '' @@ -1701,7 +1704,6 @@ - extend coro regression test - serializer: - * keep track of defaultMethodProtection * handing of xo::at_cleanup in serializer (either generailization or move to OpenACS/aolserver init/naviserver init) Index: library/serialize/serializer.tcl =================================================================== diff -u -rfdab3b9e05d21cb92835b9128193c7ba329d583d -rbc264a2e24d7693798442800b62829f8b73cfb86 --- library/serialize/serializer.tcl (.../serializer.tcl) (revision fdab3b9e05d21cb92835b9128193c7ba329d583d) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision bc264a2e24d7693798442800b62829f8b73cfb86) @@ -668,7 +668,11 @@ array set :ignorePattern [list "::nsf::*" 1 "::nx::*" 1 "::xotcl::*" 1] :public method serialize-all-start {s} { - set intro "package require nx" + set intro [subst { + package require nx + ::nx::configure defaultMethodCallProtection [::nx::configure defaultMethodCallProtection] + ::nx::configure defaultAttributeCallProtection [::nx::configure defaultAttributeCallProtection] + }] if {[info command ::Object] ne "" && [namespace origin ::Object] eq "::nx::Object"} { append intro "\n" "namespace import -force ::nx::*" }