home *** CD-ROM | disk | FTP | other *** search
/ Really Useful CD 1 / ReallyUsefulCD1.iso / extras / languages / smalltalk / _smalltalk / tests / copy < prev    next >
Encoding:
Text File  |  1987-12-30  |  576 b   |  34 lines
  1. Class Main
  2. | i j k l |
  3. [
  4.      main
  5.           i <- Test new.
  6.           i set: 17.
  7.           j <- Test new.
  8.           j set: i.
  9.           k <- j deepCopy.
  10.           l <- j shallowCopy.
  11.           i set: 12.
  12.           k print.
  13.           l print.
  14.           i <- Test new.
  15.           i set: 17.
  16.           j <- #(2).
  17.           j at: 1 put: i.
  18.           k <- j deepCopy.
  19.           l <- j shallowCopy.
  20.           i set: 12.
  21.           k print.
  22.           l print.
  23. ]
  24. Class Test
  25. | var |
  26. [
  27.      printString
  28.           ^ 'test value ', var printString
  29. |
  30.      set: aVal
  31.           var <- aVal
  32. ]
  33.  
  34.