super.bmx 292 B

12345678910111213141516171819
  1. Rem
  2. Super evaluates to Self cast to the method's immediate base class.
  3. End Rem
  4. Type TypeA
  5. Method Report()
  6. print "TypeA reporting"
  7. End Method
  8. End Type
  9. Type TypeB extends TypeA
  10. Method Report()
  11. Print "TypeB Reporting"
  12. super.Report()
  13. End Method
  14. End Type
  15. b:TypeB=new TypeB
  16. b.Report()