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