anchor.diff:  procedure DebugLn(const s1, s2: TfpgString);
   procedure DebugLn(const s1, s2, s3: TfpgString);
   procedure DebugLn(const s1, s2, s3, s4: TfpgString);
  +procedure DebugLn(const s1, s2, s3, s4, s5: TfpgString);
  +function DebugMethodEnter(const s1: TfpgString): IInterface;
  +procedure DebugSeparator;
   
   // operator overloading of some useful structures
   operator = (a: TRect; b: TRect): boolean;
  
positive.code: procedure DebugLn(const s1, s2, s3, s4: TfpgString);
  begin
    DebugLn(s1 + ' ' + s2 + ' ' + s3 + ' ' + s4);
  end;
  
  operator = (a: TRect; b: TRect): boolean;
  
negative.code:   uMsgQueueList: TList;
    uDebugText: ^Text;
    uDebugTextAllocated: Boolean;
    uDebugIndent: integer;
  
  type
  
    TDebugMethodHelper = class(TInterfacedObject)
    private
      FMethod: string;
    public
      constructor Create(const AMethodName: string);
      destructor Destroy; override;
    end;
  
  
    TNamedFontItem = class
    public
      FontID: string;
  