anchor.diff:    for NetAtom := Low(TNetAtomEnum) to High(TNetAtomEnum) do begin
       FNetAtoms[NetAtom] := XInternAtom(FDisplay, PChar(NetAtomStr[NetAtom]), True)
     end;
  +  UTF8_STRING := XInternAtom(FDisplay, 'UTF8_STRING', True);
   end;
   
   procedure TNETWindowLayer.UpdateSupportedAtoms;
  
positive.code:     procedure   WindowSetPropertyCardinal(const AWindow: TWindow; AProperty: TAtom; Count: Integer; Cards: PLongInt);
      function    WindowGetPropertyWindow(const AWindow: TWindow; AProperty: TAtom; var Count: Integer; var Windows: PWindow): Boolean;
      procedure   WindowSetPropertyWindow(const AWindow: TWindow; AProperty: TAtom; Count: Integer; Windows: PWindow);
  
      constructor Create(ADisplay: PXDisplay);
      destructor  Destroy; override;
  
negative.code:     FDisplay: PXDisplay;
      FRootWindow: TWindow;
      FNetAtoms: array[TNetAtomEnum] of TNetAtom;
      UTF8_STRING: TAtom;
      FAtomSupported: array[TNetAtomEnum] of Boolean;
      FTimeStamp: LongInt;
      procedure InitNetAtoms;
  