paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-11 21:29:42 +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 Type
long = Cardinal; { Untill we know better. M.} long = Cardinal; { Untill we know better. M.}
PLong = ^Long;
PInteger = ^Integer; PInteger = ^Integer;
Type Type
@ -386,17 +387,12 @@ extern Status XGetWMName(
Window { w }, Window { w },
XTextProperty* { text_prop_return } XTextProperty* { text_prop_return }
#endif #endif
); );*)
extern Status XGetWMNormalHints( function XGetWMNormalHints(display: PDisplay; w: TWindow;
#if NeedFunctionPrototypes hints_return: PXSizeHints; supplied_return: PLong): TStatus; cdecl; external;
Display* { display },
Window { w },
XSizeHints* { hints_return },
long* { supplied_return }
#endif
);
(*
extern Status XGetWMSizeHints( extern Status XGetWMSizeHints(
#if NeedFunctionPrototypes #if NeedFunctionPrototypes
Display* { display }, Display* { display },
@ -504,16 +500,12 @@ extern XSetIconSizes(
XIconSize* { size_list }, XIconSize* { size_list },
int { count } int { count }
#endif #endif
); ); *)
extern XSetNormalHints( procedure XSetNormalHints(display: PDisplay; w: TWindow;
#if NeedFunctionPrototypes hints: PXSizeHints); cdecl; external;
Display* { display },
Window { w },
XSizeHints* { hints }
#endif
);
(*
extern void XSetRGBColormaps( extern void XSetRGBColormaps(
#if NeedFunctionPrototypes #if NeedFunctionPrototypes
Display* { display }, Display* { display },
@ -538,46 +530,23 @@ function XSetStandardProperties(display: PDisplay; w: TWindow;
argv: PPChar; argc: Integer; hints: PXSizeHints): Integer; argv: PPChar; argc: Integer; hints: PXSizeHints): Integer;
cdecl; external; cdecl; external;
(* procedure XSetTextProperty(display: PDisplay; w: TWindow;
extern void XSetTextProperty( text_prop: PXTextProperty; AProperty: TAtom); cdecl; external;
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop },
Atom { property }
#endif
);
extern void XSetWMClientMachine( procedure XSetWMClientMachine(display: PDisplay; w: TWindow;
#if NeedFunctionPrototypes text_prop: PXTextProperty); cdecl; external;
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
);
*)
function XSetWMHints(display: PDisplay; w: TWindow; wm_hints: PXWMHints): Integer; cdecl; external; function XSetWMHints(display: PDisplay; w: TWindow;
wm_hints: PXWMHints): Integer; cdecl; external;
(* procedure XSetWMIconName(display: PDisplay; w: TWindow;
extern void XSetWMIconName( text_prop: PXTextProperty); cdecl; external;
#if NeedFunctionPrototypes
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
);
extern void XSetWMName( procedure XSetWMName(display: PDisplay; w: TWindow;
#if NeedFunctionPrototypes text_prop: PXTextProperty); cdecl; external;
Display* { display },
Window { w },
XTextProperty* { text_prop }
#endif
); *)
procedure XSetWMNormalHints(display: PDisplay; w: TWindow; hints: PXSizeHints); procedure XSetWMNormalHints(display: PDisplay; w: TWindow;
cdecl; external; hints: PXSizeHints); cdecl; external;
(* (*
extern void XSetWMProperties( extern void XSetWMProperties(
@ -768,7 +737,10 @@ Implementation
end. end.
{ {
$Log$ $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 * translated more X11 functions
Revision 1.6 2000/03/06 16:15:43 peter Revision 1.6 2000/03/06 16:15:43 peter