diff options
| author | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-14 11:14:08 +0200 |
|---|---|---|
| committer | Graeme Geldenhuys <graeme@mastermaths.co.za> | 2010-09-23 16:24:33 +0200 |
| commit | 7cf4dbd72681220a03eddef9feb6792f757c4648 (patch) | |
| tree | ad99eec86470d7c5215c8f260c7b99909f7be908 /src/corelib | |
| parent | 48e0a74aa9c2f732fc9a321823c365e3d7ae6b11 (diff) | |
| download | fpGUI-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.pas | 10 |
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 |