8 lines
143 B
Tcl
8 lines
143 B
Tcl
|
package require TclOO
|
||
|
|
|
||
|
|
oo::class create Camera
|
||
|
|
oo::class create MobilePhone
|
||
|
|
oo::class create CameraPhone {
|
||
|
|
superclass Camera MobilePhone
|
||
|
|
}
|