Tcl Library Source Code

Artifact 5a886f743ddc081faf39bf031e301648857b1a30:

• File modules/oometa/oometa.demo — part of check-in [a29f3952bd] at 2015-11-06 19:30:26 on branch odie — Added markdown documentation for oo::dialect and oo::meta (user: hypnotoad size: 556) [more...]

source ../dicttool/dicttool.tcl
source oometa.tcl

oo::class create animal {
  meta set biodata animal: 1
}
oo::class create mammal {
  superclass animal
  meta set biodata mammal: 1
}
oo::class create cat {
  superclass mammal
  meta set biodata diet: carnivore
}

cat create felix
puts [felix meta get biodata]

felix meta set biodata likes: {birds mice}
puts [felix meta get biodata]

mammal meta set biodata metabolism: warm-blooded
puts [felix meta get biodata]

# Overwrite class info
felix meta set biodata mammal: yes
puts [felix meta get biodata]