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:     constructor Create(AFontID, AFontDesc: string);
    end;
  
    TWidgetFriend = class(TfpgWidget);  // so we can get access to the Protected section
  
  constructor TNamedFontItem.Create(AFontID, AFontDesc: string);
  begin
  
negative.code: procedure DebugLn(const s1, s2, s3, s4: TfpgString);
  begin
    DebugLn(s1 + ' ' + s2 + ' ' + s3 + ' ' + s4);
  end;
  
  procedure DebugLn(const s1, s2, s3, s4, s5: TfpgString);
  begin
    DebugLn(s1 + ' ' + s2 + ' ' + s3 + ' ' + s4 + ' ' + s5);
  end;
  
  function DebugMethodEnter(const s1: TfpgString): IInterface;
  begin
    Result := TDebugMethodHelper.Create(s1);
  end;
  
  procedure DebugSeparator;
  begin
    DebugLn('>--------------------------<');
  end;
  
  operator = (a: TRect; b: TRect): boolean;
  