anchor.diff:  function TdbgpAction.Stay: boolean;
   begin
     Result := False;
  -end;
  -
  -procedure TdbgpAction.Process(Respond: TdbgpRespond);
  -begin
  -
   end;
   
   function TdbgpAction.Accept: boolean;
  
positive.code:     Result := Result + ' -d ' + IntToStr(aDepth);}
  end;
  
  procedure TdbgpGetCurrent.Process(Respond: TdbgpRespond);
  var
    i: Integer;
  begin
    inherited;
  (*
    <response xmlns="urn:debugger_protocol_v1" xmlns:xdebug="http://xdebug.org/dbgp/xdebug" command="stack_get" transaction_id="8">
    <stack where="App-&gt;__construct" level="0" type="file" filename="file:///W:/web/sites/abrash.com/websale/fw/core/ui/app.php" lineno="200"></stack>
  
negative.code:   public
      function GetCommand: string; override;
      function GetData: string; override;
      procedure Execute(Respond: TdbgpRespond); override;
    end;
  
    { TdbgpGetWatchInstance }
  