core/interface/AutoReleasePool.tcl


@interface AutoReleasePool : Object {
  {
    # the pool instance variable contains all autoreleased objects
    pool
  }

  # to add an object to the pool
  - add: anObject ;

  # to remove an object from the pool
  - remove: anObject ;

  # to get the pool content
  - pool ;
}