home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / new < prev    next >
Encoding:
Text File  |  1987-12-30  |  298 b   |  28 lines
  1. Class Acl
  2. | vara |
  3. [
  4.      new
  5.           vara <- 'correct'
  6. |
  7.      printa
  8.           vara print
  9. ]
  10.  
  11. Class Bcl :Acl
  12. | varb |
  13. [
  14.      new
  15.           varb <- 'correct'
  16. |
  17.      printb
  18.           varb print
  19. ]
  20.  
  21. Class Main
  22. [
  23.      main      | i |
  24.           i <- Bcl new .
  25.           i printb .
  26.           i printa
  27. ]
  28.