In Playing with TclOO, Richard Suchenwirth provided a method to dump the class and variables of an object:
define oo::object method dump {{pat *}} {
set res [list class [info object class [self]]]
foreach i [info object vars [self] $pat] {
my variable $i
lappend res $i [set $i]
}
set res
}This page should explore ways to serialize/unserialize TclOO objects.