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