anchor.diff:    if e.target = xapplication.xia_targets then
     begin
       a := XA_STRING;
  -    XChangeProperty(xapplication.Display, e.requestor, e._property,
  -		      XA_ATOM, 32, PropModeReplace, PByte(@a), Sizeof(TAtom)); // I think last parameter is right?
  +    XChangeProperty(xapplication.Display, e.requestor, e._property, XA_ATOM,
  +        32, PropModeReplace, PByte(@a), Sizeof(TAtom)); // I think last parameter is right?
     end
     else
     begin
       XChangeProperty(xapplication.Display, e.requestor, e._property, e.target,
  -        8, 0, PByte(@fpgClipboard.FClipboardText[1]), Length(fpgClipboard.FClipboardText));
  +        8, PropModeReplace, PByte(@fpgClipboard.FClipboardText[1]), Length(fpgClipboard.FClipboardText));
     end;
   
     XSendEvent(xapplication.Display, e.requestor, false, 0, @e );
  
positive.code:   if ((FWindowType = wtWindow) or (FWindowType = wtModalForm)) and (waBorderless in FWindowAttributes) and not (waX11SkipWMHints in FWindowAttributes) then
    begin
      prop := X.None;
      prop := XInternAtom(xapplication.display, '_MOTIF_WM_INFO', longbool(0));
      if prop = X.None then
      begin
  //      writeln('Window Manager does not support MWM hints.  Bypassing window manager control for borderless window.');
  
negative.code:         end;
  
      else
        WriteLn('fpGUI/X11: Unhandled X11 event received: ', GetXEventName(ev._type));
    end;
  end;
  
  