12 lines
268 B
Text
12 lines
268 B
Text
class Camra
|
|
string name = "nikkon"
|
|
end class
|
|
class Mobile
|
|
-- string name = "nokia" -- oops!
|
|
string mane = "nokia" -- ok!
|
|
end class
|
|
class CamraPhone extends Camra,Mobile
|
|
procedure show() ?{name,mane} end procedure
|
|
end class
|
|
CamraPhone cp = new()
|
|
cp.show()
|