Home Explore Help
Sign In
blitz
/
blitzmax
mirror of https://github.com/blitz-research/blitzmax.git
2
0
Fork 0
Files Issues 0 Wiki
Branch: master
Branches Tags
blitzmax
/
samples
/
hitoro
/
extendednewtest.bmx

extendednewtest.bmx 618 B
Permalink History Raw

1234567891011121314151617181920212223242526272829303132333435363738394041 
  1. 

  2. ' This just shows that when you create an object of type 'Tester',
    3. 

  3. ' it inherits the New method of 'Test'...
    4. 

  4. 

  5. ' Base type...
    6. 

  6. 

  7. Type Test
    8. 

  8. 

  9.      Global Oink
    10. 

  10. 

  11.      Field x
    12. 

  12.      Field y
    13. 

  13. 

  14.      Method New ()
    15. 

  15.             x = 100
    16. 

  16.             y = 200
    17. 

  17.             Oink = Oink + 1
    18. 

  18.      End Method
    19. 

  19. 

  20. End Type
    21. 

  21. 

  22. ' Another type extending the base type above...
    23. 

  23. 

  24. Type Tester Extends Test
    25. 

  25. 

  26.      Field z = 99
    27. 

  27. 

  28. End Type
    29. 

  29. 

  30. ' Create a 'Tester' object...
    31. 

  31. 

  32. t:Tester = New Tester
    33. 

  33. 

  34. ' As well as the 'z' field of 't', x and y have values, demonstrating
    35. 

  35. ' that they must have been set by the Test.New () method...
    36. 

  36. 

  37. Print t.x
    38. 

  38. Print t.y
    39. 

  39. Print t.z
    40. 

  40. 

  41.