Anonymous user
Inheritance/Single: Difference between revisions
→{{header|Tcl}}: added comment markers
(→{{header|Smalltalk}}: + Tcl) |
(→{{header|Tcl}}: added comment markers) |
||
Line 383:
<lang Tcl>
oo::class create Animal {
# ...
}
oo::class create Dog {
superclass Animal
# ...
}
oo::class create Cat {
superclass Animal
# ...
}
oo::class create Collie {
superclass Dog
# ...
}
oo::class create Lab {
superclass Dog
# ...
}
</lang>
|