RosettaCodeData/Task/Inheritance-Multiple/Tcl/inheritance-multiple.tcl

package require TclOO

oo::class create Camera
oo::class create MobilePhone
oo::class create CameraPhone {
    superclass Camera MobilePhone
}