Index: library/serialize/serializer.tcl =================================================================== diff -u -r9c88df9238035222940d88ce46a0fddb0ae85075 -r8e7f8bc4e54a54485ce8fa216f4a9e5d2f52e25f --- library/serialize/serializer.tcl (.../serializer.tcl) (revision 9c88df9238035222940d88ce46a0fddb0ae85075) +++ library/serialize/serializer.tcl (.../serializer.tcl) (revision 8e7f8bc4e54a54485ce8fa216f4a9e5d2f52e25f) @@ -679,8 +679,10 @@ foreach i [lsort [$o ::nsf::methods::object::info::methods -callprotection all]] { append cmd [:method-serialize $o $i "class-object"] "\n" } + set vars [:collectVars $o] + if {[llength $vars]>0} {append cmd [list $o eval [join $vars "\n "]]\n} + append cmd \ - [list $o eval [join [:collectVars $o] "\n "]]\n \ [:frameWorkCmd ::nsf::relation $o object-mixin] \ [:frameWorkCmd ::nsf::assertion $o object-invar] @@ -714,7 +716,7 @@ } # register serialize a global method - ::nx::Object method serialize {} { + ::nx::Object public method serialize {} { ::Serializer deepSerialize [::nsf::current object] } @@ -859,7 +861,6 @@ ::xotcl::Object instproc serialize {} { ::Serializer deepSerialize [::nsf::current object] } - # include this method in the serialized code #Serializer exportMethods {