17 lines
266 B
Text
17 lines
266 B
Text
|
;;; load object support
|
||
|
|
lib objectclass;
|
||
|
|
|
||
|
|
define :class Camera;
|
||
|
|
;;; slots go here
|
||
|
|
enddefine;
|
||
|
|
|
||
|
|
define :class MobilePhone;
|
||
|
|
;;; slots go here
|
||
|
|
enddefine;
|
||
|
|
|
||
|
|
define :class CameraPhone is Camera, MobilePhone;
|
||
|
|
;;; extra slots go here
|
||
|
|
enddefine;
|
||
|
|
|
||
|
|
;;; methods go here
|