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

removeallmethods Block
removeallclassmethods Block

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: Block
value

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

%
category: 'Block Evaluation'
method: Block
value: anObject

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

%
category: 'Block Evaluation'
method: Block
value: firstObject value: secondObject

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

%
category: 'Block Evaluation'
method: Block
value: firstObject value: secondObject value: thirdObject

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

%
category: 'Block Evaluation'
method: Block
valueWithArguments: argList

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

%
category: 'Flow of Control'
method: Block
untilFalse

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

%
category: 'Flow of Control'
method: Block
untilTrue

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

%
category: 'Flow of Control'
method: Block
whileFalse: aBlock

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

%
category: 'Flow of Control'
method: Block
whileTrue: aBlock

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

%
category: 'Accessing'
method: Block
_report

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

%
category: 'Accessing'
method: Block
_initialPC

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

%
category: 'Accessing'
method: Block
_nargs

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

%
category: 'Accessing'
method: Block
_tempAt: anIndex

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

%
category: 'Copying'
method: Block
copy

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

%
category: 'Storing and Loading'
method: Block
writeTo: aPassiveObject

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

