!=========================================================================
! Copyright (C) VMware, Inc. 1986-2011.  All Rights Reserved.
!
! $Id: reenter.gs,v 1.4 2008-01-09 22:50:14 stever Exp $
!
! Superclass Hierarchy:
!   ReenterBlock, MethodContext, Object.
!
!=========================================================================

removeallmethods ReenterBlock
removeallclassmethods ReenterBlock

category: 'For Documentation Installation only'
classmethod:
installDocumentation

| doc |
doc := GsClassDocumentation _newForObsoleteGsClass: self asOfGsVersion: '4.0'.

doc documentClassWith: (GsDocText new).

self description: doc.
%

category: 'Block Evaluation'
method: ReenterBlock
_blockCopy: numberOfArgs

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_blockCopy:) .
   self _uncontinuableError

%
category: 'Block Evaluation'
method: ReenterBlock
_selectBlockCopy: aSelectionBlock
          withPc: anIntegerOffset

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_selectBlockCopy:withPc:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_stepPoint: atTop

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_stepPoint:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_stepPointString: atTop

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_stepPointString:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableCount: aName

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableCount:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableList: aName

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableList:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableNames

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableNames) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_stackVars

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_stackVars) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableNamesAndValues

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableNamesAndValues) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableList: aName continuing: aBool

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableList:continuing:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_variableNames: continuing

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_variableNames:) .
   self _uncontinuableError

%
category: 'Debugging Support'
method: ReenterBlock
_report

   "Obsolete"
   self _error: #rtErrObsolete args: #(#_report) .
   self _uncontinuableError

%
