RosettaCodeData/Task/Inheritance-Single/OxygenBasic/inheritance-single.oxy
Ingy döt Net d066446780 langs a-z
2013-04-10 22:43:41 -07:00

37 lines
564 B
Text

class animal
method show() as string
return "Animal "
end method
end Class
class dog
from Animal Animal
method show() as string
return animal.show()+"dog "
end method
end Class
class cat
from animal animal
method show() as string
return animal.show()+"cat "
end method
end Class
class Lab
from dog dog
method show() as string
return dog.show()+"Lab "
end method
end Class
class Collie
from dog dog
method show() as string
return dog.show()+"Collie "
end method
end Class
Collie c
print c.show 'result: Animal Dog Collie