* Fixed opague pointer usage where the empty record was used instead of the

   opague pointer. Patch by "No Realname",  Mantis #20814

git-svn-id: trunk@19756 -

packages/x11/src/xlib.pp

@@ -1725,28 +1725,28 @@ procedure XwcDrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; p
             para6:cint; para7:PWideChar; para8:cint);cdecl;external libX11;
 procedure Xutf8DrawImageString(para1:PDisplay; para2:TDrawable; para3:TXFontSet; para4:TGC; para5:cint;
             para6:cint; para7:Pchar; para8:cint);cdecl;external libX11;
-function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):TXIM;cdecl;external libX11;
-function XCloseIM(para1:TXIM):TStatus;cdecl;external libX11;
+function XOpenIM(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar):PXIM;cdecl;external libX11;
+function XCloseIM(para1:PXIM):TStatus;cdecl;external libX11;
 function XGetIMValues(para1:TXIM; dotdotdot:array of const):Pchar;cdecl;external libX11;
 function XSetIMValues(para1:TXIM; dotdotdot:array of const):Pchar;cdecl;external libX11;
 function XDisplayOfIM(para1:TXIM):PDisplay;cdecl;external libX11;
 function XLocaleOfIM(para1:TXIM):Pchar;cdecl;external libX11;
-function XCreateIC(para1:TXIM; dotdotdot:array of const):TXIC;cdecl;external libX11;
-procedure XDestroyIC(para1:TXIC);cdecl;external libX11;
-procedure XSetICFocus(para1:TXIC);cdecl;external libX11;
-procedure XUnsetICFocus(para1:TXIC);cdecl;external libX11;
+function XCreateIC(para1:PXIM; dotdotdot:array of const):PXIC;cdecl;external libX11;
+procedure XDestroyIC(para1:PXIC);cdecl;external libX11;
+procedure XSetICFocus(para1:PXIC);cdecl;external libX11;
+procedure XUnsetICFocus(para1:PXIC);cdecl;external libX11;
 function XwcResetIC(para1:TXIC):PWideChar;cdecl;external libX11;
 function XmbResetIC(para1:TXIC):Pchar;cdecl;external libX11;
-function Xutf8ResetIC(para1:TXIC):Pchar;cdecl;external libX11;
+function Xutf8ResetIC(para1:PXIC):Pchar;cdecl;external libX11;
 function XSetICValues(para1:TXIC; dotdotdot:array of const):Pchar;cdecl;external libX11;
 function XGetICValues(para1:TXIC; dotdotdot:array of const):Pchar;cdecl;external libX11;
 function XIMOfIC(para1:TXIC):TXIM;cdecl;external libX11;
 function XFilterEvent(para1:PXEvent; para2:TWindow):TBoolResult;cdecl;external libX11;
-function XmbLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
+function XmbLookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
-function XwcLookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:cint; para5:PKeySym;
+function XwcLookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:PWideChar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
-function Xutf8LookupString(para1:TXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
+function Xutf8LookupString(para1:PXIC; para2:PXKeyPressedEvent; para3:Pchar; para4:cint; para5:PKeySym;
            para6:PStatus):cint;cdecl;external libX11;
 function XVaCreateNestedList(unused:cint; dotdotdot:array of const):TXVaNestedList;cdecl;external libX11;
 function XRegisterIMInstantiateCallback(para1:PDisplay; para2:PXrmHashBucketRec; para3:Pchar; para4:Pchar; para5:TXIDProc;