summaryrefslogtreecommitdiff
path: root/src/corelib
diff options
context:
space:
mode:
authorGraeme Geldenhuys <graeme@mastermaths.co.za>2010-09-14 11:14:08 +0200
committerGraeme Geldenhuys <graeme@mastermaths.co.za>2010-09-23 16:24:33 +0200
commit7cf4dbd72681220a03eddef9feb6792f757c4648 (patch)
treead99eec86470d7c5215c8f260c7b99909f7be908 /src/corelib
parent48e0a74aa9c2f732fc9a321823c365e3d7ae6b11 (diff)
downloadfpGUI-7cf4dbd72681220a03eddef9feb6792f757c4648.tar.xz
Fix variable types for XGetWindowProperty calls.
We must use C-types and not Pascal-types.
Diffstat (limited to 'src/corelib')
-rw-r--r--src/corelib/x11/fpg_x11.pas10
1 files changed, 5 insertions, 5 deletions
diff --git a/src/corelib/x11/fpg_x11.pas b/src/corelib/x11/fpg_x11.pas
index 3c11ca64..ea69e5f3 100644
--- a/src/corelib/x11/fpg_x11.pas
+++ b/src/corelib/x11/fpg_x11.pas
@@ -537,9 +537,9 @@ end;
procedure ProcessSelection(var ev: TXEvent);
var
s: string;
- actual: TAtom;
- format: integer;
- count, remaining: longword;
+ actualformat: TAtom;
+ actualtype: cint;
+ count, remaining: culong;
data: PChar;
begin
if ev.xselection._property > 0 then
@@ -548,7 +548,7 @@ begin
ev.xselection._property, 0, 16000,
TBool(false), // delete
0, // type
- @actual, @format, @count, @remaining,
+ @actualformat, @actualtype, @count, @remaining,
@data);
s := data;
@@ -838,7 +838,7 @@ var
rootw: TfpgWinHandle;
parentw: TfpgWinHandle;
childs: ^TfpgWinHandle;
- cnum: longword;
+ cnum: cuint;
begin
childs := nil;
if XQueryTree(xapplication.display, wh, @rootw, @parentw, @childs, @cnum) <> 0 then