home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / vol_300 / 310_01 / copy.st < prev    next >
Text File  |  1990-04-20  |  437b  |  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.