package require clay

::oo::class create foo {}
foo clay set this/means something
::oo::class create bar {
  superclass foo
}
bar clay set this/is madness

set obj [bar new]
puts this/means
puts [$obj clay get this/means]
puts this/is
puts [$obj clay get this/is]
puts this
puts [$obj clay get this]
puts SET
puts [$obj clay set this/is Sanity]
puts this/is
puts [$obj clay get this/is]

###
# Whoa nelly...
###
puts this
puts [$obj clay get this]
