Anonymous user
Inheritance/Single: Difference between revisions
→{{header|Smalltalk}}: + Tcl
m (lang+omit from) |
(→{{header|Smalltalk}}: + Tcl) |
||
Line 379:
!Dog subclass: #Collie
"* etc. *" !</lang>
=={{header|Tcl}}==
<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>
{{Omit From|Metafont}}
| |||