samples/testIVT.st

   1 class: TestBase [
   2   | iv0 iv1 |
   3
   4   ^new [
   5     | obj |
   6     obj := self basicNew.
   7     self;
   8       in: obj var: #iv0 put: 0;
   9       in: obj var: #iv1 put: 1.
  10     ^obj
  11   ]
  12
  13   dump [
  14     'iv0=' print. iv0 printNl.
  15     'iv1=' print. iv1 printNl.
  16   ]
  17 ]
  18
  19
  20 TestBase subclass: Test [
  21   | iv2 iv3 |
  22
  23   ^new [
  24     | obj |
  25     obj := super new.
  26     obj dump.
  27     self;
  28       in: obj var: #iv0 put: 10;
  29       in: obj var: #iv1 put: 11;
  30       in: obj var: #iv2 put: 12;
  31       in: obj var: #iv3 put: 13.
  32     ^obj
  33   ]
  34
  35   dump [
  36     super dump.
  37     'iv2=' print. iv2 printNl.
  38     'iv3=' print. iv3 printNl.
  39   ]
  40 ]
  41
  42
  43 {
  44   | tb t1 |
  45   tb := TestBase new. tb dump.
  46   t1 := Test new. t1 dump.
  47 }