anchor.diff:  end;
   
   procedure DebugLn(const s1: TfpgString);
  +var
  +  s: string;
   begin
     if not Assigned(uDebugText) then
       Exit; //==>
  -  writeln(uDebugText^, fpgConvertLineEndings(s1));
  +  s := DupeString(' ', uDebugIndent);
  +  writeln(uDebugText^, s + fpgConvertLineEndings(s1));
   end;
   
   procedure DebugLn(const s1, s2: TfpgString);
  
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: 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;
  