anchor.diff:  begin
     FClipboardText := AValue;
     XSetSelectionOwner(xapplication.Display, xapplication.xia_clipboard,
  -      FClipboardWndHandle, 0);
  +      FClipboardWndHandle, CurrentTime);
   end;
   
   procedure TfpgX11Clipboard.InitClipboard;
  
positive.code:         end;
  
      else
        WriteLn('fpGFX/X11: Unhandled X11 event received: ', GetXEventName(ev._type));
    end;
  end;
  
  
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 );
  