anchor.diff:  
   interface
   
  -uses IniFiles, Block, Menus, AreaDb, SysUtils, Classes,
  +uses IniFiles, Block, Menus, AreaDb, SysUtils, Classes, JsonDataObjects,
     IdContext, StrUtils, Area, Generics.Collections;
   
   type
  
positive.code: 
      function GetSettings(): TBlkLinkerSettings;
      procedure SetSettings(data: TBlkLinkerSettings);
  
      procedure ApproveRequest();
      function CanZTS(): Boolean;
  
negative.code: 
  /// /////////////////////////////////////////////////////////////////////////////
  
  procedure TBlkLinker.GetPtData(json: TJsonObject; includeState: Boolean);
  begin
    inherited;
  
    json['parent'] := Self.m_settings.parent;
  
    if (includeState) then
      Self.GetPtState(json['blockState']);
  end;
  
  procedure TBlkLinker.GetPtState(json: TJsonObject);
  begin
    json['enabled'] := Self.enabled;
    json['departureForbidden'] := Self.departureForbidden;
    json['emLock'] := Self.emLock;
    json['request'] := Self.request;
  
    if (Self.note <> '') then
      json['note'] := Self.note;
  end;
  
  /// /////////////////////////////////////////////////////////////////////////////
  
  end.// unit
  