25 lines
310 B
Text
25 lines
310 B
Text
|
class Camera
|
||
|
|
string cbuf
|
||
|
|
method TakePhoto()
|
||
|
|
end method
|
||
|
|
method ViewPhoto()
|
||
|
|
end method
|
||
|
|
end class
|
||
|
|
|
||
|
|
class MobilePhone
|
||
|
|
string pbuf
|
||
|
|
method MakeCall()
|
||
|
|
end method
|
||
|
|
method TakeCall()
|
||
|
|
end method
|
||
|
|
end class
|
||
|
|
|
||
|
|
class CameraPhone
|
||
|
|
has Camera,MobilePhone
|
||
|
|
end class
|
||
|
|
|
||
|
|
CameraPhone cp
|
||
|
|
|
||
|
|
cp.ViewPhoto
|
||
|
|
cp.MakeCall
|