* Converted declaration of XSetWMProperties (merged from fixbranch)

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
  
 }