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