diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-21 13:24:02 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-23 16:24:41 +0200 |
| commit | 89a280723f96acd4464568241fa46a879cefac9d (patch) | |
| tree | 1f908eca021194e4fc5a6711ffeb67bb3241c8ea /src | |
| parent | 66a94111755c75d53c334d1e8fb21adae0b303de (diff) | |
| download | fpGUI-89a280723f96acd4464568241fa46a879cefac9d.tar.xz | |
Replaced magic numbers with variable names.
Now we actually know the meaning of those parameters.
Diffstat (limited to 'src')
| -rw-r--r-- | src/corelib/x11/fpg_x11.pas | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas index a7de2e45..f40a11c6 100644 --- a/src/corelib/x11/fpg_x11.pas +++ b/src/corelib/x11/fpg_x11.pas @@ -606,13 +606,13 @@ begin 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 ); @@ -1785,7 +1785,7 @@ begin end; else - WriteLn('fpGFX/X11: Unhandled X11 event received: ', GetXEventName(ev._type)); + WriteLn('fpGUI/X11: Unhandled X11 event received: ', GetXEventName(ev._type)); end; end; @@ -1985,7 +1985,7 @@ begin 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)); + prop := XInternAtom(xapplication.display, '_MOTIF_WM_INFO', TBool(False)); if prop = X.None then begin // writeln('Window Manager does not support MWM hints. Bypassing window manager control for borderless window.'); @@ -2860,7 +2860,7 @@ procedure TfpgX11Clipboard.DoSetText(const AValue: TfpgString); begin FClipboardText := AValue; XSetSelectionOwner(xapplication.Display, xapplication.xia_clipboard, - FClipboardWndHandle, 0); + FClipboardWndHandle, CurrentTime); end; procedure TfpgX11Clipboard.InitClipboard; |