From 9859aeea6449b08273585bcf1d29fac2ea4150fa Mon Sep 17 00:00:00 2001
From: sg <sg>
Date: Sat, 23 Dec 2000 22:48:33 +0000
Subject: [PATCH] * Converted declaration of XSetWMProperties (merged from
fixbranch)
---
packages/x11/xutil.pp | 27 +++++++++++----------------
1 file changed, 11 insertions(+), 16 deletions(-)
diff --git a/packages/x11/xutil.pp b/packages/x11/xutil.pp
index dfa0d784f3..5f2448c551 100644
--- a/packages/x11/xutil.pp
+++ b/packages/x11/xutil.pp
@@ -97,8 +97,9 @@ Const
IconWindowHint = 1 shl 3;
IconPositionHint = 1 shl 4;
IconMaskHint = 1 shl 5;
+ WindowGroupHint = 1 shl 6;
AllHints = InputHint or StateHint or IconPixmapHint or IconWindowHint or
- IconPositionHint or IconMaskHint {or WindowGroupHint};
+ IconPositionHint or IconMaskHint or WindowGroupHint;
XUrgencyHint = 1 shl 8;
{ definitions for initial window state }
WithdrawnState = 0; { for windows that are not mapped }
@@ -543,21 +544,12 @@ procedure XSetWMName(display: PDisplay; w: TWindow;
procedure XSetWMNormalHints(display: PDisplay; w: TWindow;
hints: PXSizeHints); cdecl; external;
-(*
-extern void XSetWMProperties(
-#if NeedFunctionPrototypes
- Display* { display },
- Window { w },
- XTextProperty* { window_name },
- XTextProperty* { icon_name },
- char** { argv },
- int { argc },
- XSizeHints* { normal_hints },
- XWMHints* { wm_hints },
- XClassHint* { class_hints }
-#endif
-);
+procedure XSetWMProperties(display: PDisplay; w: TWindow;
+ window_name, icon_name: PXTextProperty; argv: PPChar; argc: LongInt;
+ normal_hints: PXSizeHints; wm_hints: PXWMHints; class_hints: PXClassHint);
+ cdecl; external;
+(*
extern void XmbSetWMProperties(
#if NeedFunctionPrototypes
Display* { display },
@@ -697,7 +689,10 @@ Implementation
end.
{
$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
}