paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 14:39:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Converted declaration of XSetWMProperties (merged from fixbranch)

Browse Source
This commit is contained in:
sg 2000-12-23 22:48:33 +00:00
parent b7c591affd
commit 9859aeea64
1 changed files with 11 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

27
packages/x11/xutil.pp
View File

@ -97,8 +97,9 @@ Const
IconWindowHint = 1 shl 3; IconWindowHint = 1 shl 3;
IconPositionHint = 1 shl 4; IconPositionHint = 1 shl 4;
IconMaskHint = 1 shl 5; IconMaskHint = 1 shl 5;
WindowGroupHint = 1 shl 6;
AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or
IconPositionHint or IconMaskHint {or WindowGroupHint}; IconPositionHint or IconMaskHint or WindowGroupHint;
XUrgencyHint = 1 shl 8; XUrgencyHint = 1 shl 8;
{ definitions for initial window state } { definitions for initial window state }
WithdrawnState = 0; { for windows that are not mapped } WithdrawnState = 0; { for windows that are not mapped }
@ -543,21 +544,12 @@ procedure XSetWMName(display: PDisplay; w: TWindow;
procedure XSetWMNormalHints(display: PDisplay; w: TWindow; procedure XSetWMNormalHints(display: PDisplay; w: TWindow;
hints: PXSizeHints); cdecl; external; hints: PXSizeHints); cdecl; external;
(* procedure XSetWMProperties(display: PDisplay; w: TWindow;
extern void XSetWMProperties( window_name, icon_name: PXTextProperty; argv: PPChar; argc: LongInt;
#if NeedFunctionPrototypes normal_hints: PXSizeHints; wm_hints: PXWMHints; class_hints: PXClassHint);
Display* { display }, cdecl; external;
Window { w },
XTextProperty* { window_name },
XTextProperty* { icon_name },
char** { argv },
int { argc },
XSizeHints* { normal_hints },
XWMHints* { wm_hints },
XClassHint* { class_hints }
#endif
);
(*
extern void XmbSetWMProperties( extern void XmbSetWMProperties(
#if NeedFunctionPrototypes #if NeedFunctionPrototypes
Display* { display }, Display* { display },
@ -697,7 +689,10 @@ Implementation
end. end.
{ {
$Log$ $Log$
Revision 1.2 2000-07-13 11:33:34 michael Revision 1.3 2000-12-23 22:48:33 sg
* Converted declaration of XSetWMProperties (merged from fixbranch)
Revision 1.2 2000/07/13 11:33:34 michael
+ removed logs + removed logs
} }