paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-20 04:59:26 +02:00
Code Issues Packages Projects Releases Wiki Activity

* More functions added

Browse Source
This commit is contained in:
sg 2000-05-26 14:28:13 +00:00
parent f210e534e1
commit 730a9b04f0
1 changed files with 25 additions and 53 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

78
packages/x11/xutil.pp
View File

@ -32,6 +32,7 @@ Const
}
Type
long = Cardinal; { Untill we know better. M.}
PLong = ^Long;
PInteger = ^Integer;
Type
@ -386,17 +387,12 @@ extern Status XGetWMName(
Window { w },
XTextProperty* { text_prop_return }
#endif
);
);*)
extern Status XGetWMNormalHints(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XSizeHints* { hints_return },
long* { supplied_return }
#endif
);
function XGetWMNormalHints(display: PDisplay; w: TWindow;
hints_return: PXSizeHints; supplied_return: PLong): TStatus; cdecl; external;
(*
extern Status XGetWMSizeHints(
#if NeedFunctionPrototypes
Display* { display },
@ -504,16 +500,12 @@ extern XSetIconSizes(
XIconSize* { size_list },
int { count }
#endif
);
); *)
extern XSetNormalHints(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XSizeHints* { hints }
#endif
);
procedure XSetNormalHints(display: PDisplay; w: TWindow;
hints: PXSizeHints); cdecl; external;
(*
extern void XSetRGBColormaps(
#if NeedFunctionPrototypes
Display* { display },
@ -538,46 +530,23 @@ function XSetStandardProperties(display: PDisplay; w: TWindow;
argv: PPChar; argc: Integer; hints: PXSizeHints): Integer;
cdecl; external;
(*
extern void XSetTextProperty(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop },
Atom { property }
#endif
);
procedure XSetTextProperty(display: PDisplay; w: TWindow;
text_prop: PXTextProperty; AProperty: TAtom); cdecl; external;
extern void XSetWMClientMachine(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
);
*)
procedure XSetWMClientMachine(display: PDisplay; w: TWindow;
text_prop: PXTextProperty); cdecl; external;
function XSetWMHints(display: PDisplay; w: TWindow; wm_hints: PXWMHints): Integer; cdecl; external;
function XSetWMHints(display: PDisplay; w: TWindow;
wm_hints: PXWMHints): Integer; cdecl; external;
(*
extern void XSetWMIconName(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
);
procedure XSetWMIconName(display: PDisplay; w: TWindow;
text_prop: PXTextProperty); cdecl; external;
extern void XSetWMName(
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
); *)
procedure XSetWMName(display: PDisplay; w: TWindow;
text_prop: PXTextProperty); cdecl; external;
procedure XSetWMNormalHints(display: PDisplay; w: TWindow; hints: PXSizeHints);
cdecl; external;
procedure XSetWMNormalHints(display: PDisplay; w: TWindow;
hints: PXSizeHints); cdecl; external;
(*
extern void XSetWMProperties(
@ -768,7 +737,10 @@ Implementation
end.
{
$Log$
Revision 1.7 2000-05-24 09:37:29 sg
Revision 1.8 2000-05-26 14:28:13 sg
* More functions added
Revision 1.7 2000/05/24 09:37:29 sg
* translated more X11 functions
Revision 1.6 2000/03/06 16:15:43 peter