TCurrentCallStack

type TCurrentCallStack = class(TIdeCallStack)

protected

  function GetCurrent; override;

  procedure SetCurrent(); override;

  procedure Clear; override;

  function GetCount; override;

  function GetCountValidity; override;

  procedure SetCount(); override;

  function GetEntry(); override;

  procedure AddEntry(); override;

  procedure AssignEntriesTo(); override;

  function GetRawEntries; override;

  function GetLowestUnknown; override;

  function GetHighestUnknown; override;

  function GetNewCurrentIndex; override;

public

  constructor Create();

  destructor Destroy; override;

  procedure Assign(); override;

  procedure PrepareRange(); override;

  procedure ChangeCurrentIndex(); override;

  procedure DoEntriesCreated; override;

  procedure DoEntriesUpdated; override;

  function HasAtLeastCount(); override;

  property NewCurrentIndex: Integer; [r]

  property SnapShot: TIdeCallStack; [rw]

  procedure SetCountValidity(); override;

  procedure SetHasAtLeastCountInfo(); override;

  procedure SetCurrentValidity(); override;

end;

TCurrentCallStack

TIdeCallStack

TObject