samples/finalize/fintest01.st

   1 class: FinTest | cid | [
   2   | id |
   3
   4   ^new [
   5     | obj |
   6     cid ifNil: [ cid := 0 ].
   7     obj := self basicNew.
   8     self in: obj at: 1 put: (cid := cid + 1).
   9     'adding ' print. cid print. ' to st-finalize list' printNl.
  10     obj addToBeFinalized.
  11     ^obj
  12   ]
  13
  14   finalize [
  15     'finalizing ' print. id printNl.
  16   ]
  17
  18   ^runDummy [
  19     1 to: 50000 do: [ nil ].
  20   ]
  21 ]
  22
  23
  24 {
  25   FinTest new.
  26   FinTest new.
  27   FinTest new.
  28   FinTest new.
  29   System gc.
  30 "
  31   System newProcessGroupWith: (Process newWithMethod: #runDummy class: FinTest class).
  32   'running REPL' printNl.
  33   ^REPL new REPL.
  34 "
  35   "[ true ] whileTrue: [ nil ]."
  36   System eventWaitFor: 6699.
  37 }