Initial revision
[wmaker-crm.git] / src / properties.c
blobb68f1d62f3ce05dea856ecec066537c5442be6b8
1 /*
2 * WindowMaker window manager
3 *
4 * Copyright (c) 1997, 1998 Alfredo K. Kojima
5 *
6 * This program is free software; you can redistribute it and/or modify
7 * it under the terms of the GNU General Public License as published by
8 * the Free Software Foundation; either version 2 of the License, or
9 * (at your option) any later version.
11 * This program is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 * GNU General Public License for more details.
16 * You should have received a copy of the GNU General Public License
17 * along with this program; if not, write to the Free Software
18 * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307,
19 * USA.
22 #include "wconfig.h"
24 #include <X11/Xlib.h>
25 #include <X11/Xutil.h>
26 #include <X11/Xatom.h>
27 #include <string.h>
28 #include <stdlib.h>
30 #include "WindowMaker.h"
31 #include "window.h"
32 #include "GNUstep.h"
33 #ifdef MWM_HINTS
34 # include "motif.h"
35 #endif
38 /* atoms */
39 extern Atom _XA_WM_STATE;
40 extern Atom _XA_WM_CHANGE_STATE;
41 extern Atom _XA_WM_PROTOCOLS;
42 extern Atom _XA_WM_CLIENT_LEADER;
43 extern Atom _XA_WM_TAKE_FOCUS;
44 extern Atom _XA_WM_DELETE_WINDOW;
45 extern Atom _XA_WM_SAVE_YOURSELF;
47 extern Atom _XA_GNUSTEP_WM_ATTR;
48 extern Atom _XA_WINDOWMAKER_WM_MINIATURIZE_WINDOW;
50 extern Atom _XA_WINDOWMAKER_WM_FUNCTION;
51 extern Atom _XA_WINDOWMAKER_MENU;
52 extern Atom _XA_WINDOWMAKER_WM_PROTOCOLS;
55 int
56 PropGetNormalHints(Window window, XSizeHints *size_hints, int *pre_iccm)
58 long supplied_hints;
60 if (!XGetWMNormalHints(dpy, window, size_hints, &supplied_hints)) {
61 return False;
63 if (supplied_hints==(USPosition|USSize|PPosition|PSize|PMinSize|PMaxSize
64 |PResizeInc|PAspect)) {
65 *pre_iccm = 1;
66 } else {
67 *pre_iccm = 0;
69 return True;
73 int
74 PropGetWMClass(Window window, char **wm_class, char **wm_instance)
76 XClassHint *class_hint;
78 class_hint = XAllocClassHint();
79 if (XGetClassHint(dpy,window,class_hint) == 0) {
80 *wm_class = NULL;
81 *wm_instance = NULL;
82 XFree(class_hint);
83 return False;
85 *wm_instance = class_hint->res_name;
86 *wm_class = class_hint->res_class;
88 XFree(class_hint);
89 return True;
92 void
93 PropGetProtocols(Window window, WProtocols *prots)
95 Atom *protocols;
96 int count, i;
98 memset(prots, 0, sizeof(WProtocols));
99 if (!XGetWMProtocols(dpy, window, &protocols, &count)) {
100 return;
102 for (i=0; i<count; i++) {
103 if (protocols[i]==_XA_WM_TAKE_FOCUS)
104 prots->TAKE_FOCUS=1;
105 else if (protocols[i]==_XA_WM_DELETE_WINDOW)
106 prots->DELETE_WINDOW=1;
107 else if (protocols[i]==_XA_WM_SAVE_YOURSELF)
108 prots->SAVE_YOURSELF=1;
109 else if (protocols[i]==_XA_WINDOWMAKER_WM_MINIATURIZE_WINDOW)
110 prots->MINIATURIZE_WINDOW=1;
112 XFree(protocols);
117 PropGetGNUstepWMAttr(Window window, GNUstepWMAttributes **attr)
119 Atom type_ret;
120 int fmt_ret;
121 unsigned long nitems_ret;
122 unsigned long bytes_after_ret;
123 CARD32 *data;
125 if (XGetWindowProperty(dpy, window, _XA_GNUSTEP_WM_ATTR, 0,
126 sizeof(GNUstepWMAttributes),
127 False, _XA_GNUSTEP_WM_ATTR,
128 &type_ret, &fmt_ret, &nitems_ret, &bytes_after_ret,
129 (unsigned char **)&data)!=Success)
130 return False;
131 if (type_ret!=_XA_GNUSTEP_WM_ATTR || !data || fmt_ret!=32)
132 return False;
134 *attr = malloc(sizeof(GNUstepWMAttributes));
135 if (!*attr) {
136 XFree(data);
137 return False;
139 (*attr)->flags = data[0];
140 (*attr)->window_style = data[1];
141 (*attr)->window_level = data[2];
142 (*attr)->reserved = data[3];
143 (*attr)->miniaturize_pixmap = data[4];
144 (*attr)->close_pixmap = data[5];
145 (*attr)->miniaturize_mask = data[6];
146 (*attr)->close_mask = data[7];
147 (*attr)->extra_flags = data[8];
149 XFree(data);
151 return True;
157 #ifdef MWM_HINTS
159 PropGetMotifWMHints(Window window, MWMHints **mwmhints)
161 Atom type_ret;
162 int fmt_ret;
163 unsigned long nitems_ret;
164 unsigned long bytes_after_ret;
166 if (XGetWindowProperty(dpy, window, _XA_MOTIF_WM_HINTS, 0, 20,
167 False, _XA_MOTIF_WM_HINTS,
168 &type_ret, &fmt_ret, &nitems_ret, &bytes_after_ret,
169 (unsigned char **)mwmhints)!=Success)
170 return 0;
171 if (type_ret==_XA_MOTIF_WM_HINTS)
172 return 1;
173 else
174 return 0;
176 #endif /* MWM_HINTS */
179 void
180 PropSetWMakerProtocols(Window root)
182 Atom protocols[2];
183 int count=0;
185 protocols[count++] = _XA_WINDOWMAKER_MENU;
186 protocols[count++] = _XA_WINDOWMAKER_WM_FUNCTION;
188 XChangeProperty(dpy, root, _XA_WINDOWMAKER_WM_PROTOCOLS, XA_ATOM,
189 32, PropModeReplace, (unsigned char *)protocols, count);
194 PropGetClientLeader(Window window, Window *leader)
196 Atom type_ret;
197 int fmt_ret;
198 unsigned long nitems_ret;
199 unsigned long bytes_after_ret;
200 Window *win;
202 if (XGetWindowProperty(dpy, window, _XA_WM_CLIENT_LEADER, 0,
203 sizeof(Window), False, AnyPropertyType,
204 &type_ret, &fmt_ret, &nitems_ret, &bytes_after_ret,
205 (unsigned char**)&win)!=Success)
206 return 0;
208 if (!win) return 0;
209 *leader = (Window)*win;
210 XFree(win);
211 return 1;
216 void
217 PropWriteGNUstepWMAttr(Window window, GNUstepWMAttributes *attr)
219 CARD32 data[9];
221 /* handle idiot compilers where array of CARD32 != struct of CARD32 */
222 data[0] = attr->flags;
223 data[1] = attr->window_style;
224 data[2] = attr->window_level;
225 data[3] = 0; /* reserved */
226 /* The X protocol says XIDs are 32bit */
227 data[4] = attr->miniaturize_pixmap;
228 data[5] = attr->close_pixmap;
229 data[6] = attr->miniaturize_mask;
230 data[7] = attr->close_mask;
231 data[8] = attr->extra_flags;
232 XChangeProperty(dpy, window, _XA_GNUSTEP_WM_ATTR, _XA_GNUSTEP_WM_ATTR,
233 32, PropModeReplace, (unsigned char *)data, 9);
237 void
238 PropCleanUp(Window root)
240 XDeleteProperty(dpy, root, _XA_WINDOWMAKER_WM_PROTOCOLS);
242 XDeleteProperty(dpy, root, XA_WM_ICON_SIZE);