6 lines
129 B
Forth
6 lines
129 B
Forth
Property new: Camera
|
|
Property new: MobilePhone
|
|
|
|
Object Class new: CameraPhone
|
|
CameraPhone is: Camera
|
|
CameraPhone is: MobilePhone
|