superclass A:
foo x:
print "from A: $x"
class B extends A:
foo x:
super (x + 1)class Base:
f m/string: print "Base: $m"
b: f "b"
class Derived extends Base:
f m/string: print "Derived: $m"
d: b
main:
c := Derived
c.dsuperfclass Base:
static f m/string: print "Base: $m"
b: f "b"
class Derived extends Base:
static f m/string: print "Derived: $m"
d: b
main:
c := Derived
c.dsuperthisff