blob: c77941e4a7145eed7701996abcabdb205189b2af (
plain) (
tree)
|
|
discard """
output: '''derived class
base class
'''
"""
import amethods
type
TDerivedClass* = object of TBaseClass
proc newDerivedClass: ref TDerivedClass =
new result
method echoType*(x: ref TDerivedClass) =
echo "derived class"
var b, d: ref TBaseClass
b = newBaseClass()
d = newDerivedClass()
#b.echoType()
#d.echoType()
echoAlias d
echoAlias b
|