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