package req XOTcl
package req xotcl::serializer
namespace import ::xotcl::*


Class Super -slots {
  Attribute attribute -default "some_default_value"
}

# !!! critical !!!
Super create super
# !!!!!!!!!!!!!!!!

Class Sub -superclass Super
Sub create sub -attribute "some_new_value"

set stream [::Serializer all]
set f [open /tmp/stream w]
puts $f {
  package req XOTcl
}
puts $f $stream
catch {close $f}

