anchor.diff:  begin
     FClipboardText := AValue;
     XSetSelectionOwner(xapplication.Display, xapplication.xia_clipboard,
  -      FClipboardWndHandle, 0);
  +      FClipboardWndHandle, CurrentTime);
   end;
   
   procedure TfpgX11Clipboard.InitClipboard;
  
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:   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?
    end
    else
    begin
      XChangeProperty(xapplication.Display, e.requestor, e._property, e.target,
          8, PropModeReplace, PByte(@fpgClipboard.FClipboardText[1]), Length(fpgClipboard.FClipboardText));
    end;
  
    XSendEvent(xapplication.Display, e.requestor, false, 0, @e );
  