2 c66b5250 2006-06-25 devnull * Some of the stuff in this file is not X-dependent and should be elsewhere.
4 c66b5250 2006-06-25 devnull #include <u.h>
5 c66b5250 2006-06-25 devnull #include "x11-inc.h"
6 c66b5250 2006-06-25 devnull #include <libc.h>
7 c66b5250 2006-06-25 devnull #include <draw.h>
8 c66b5250 2006-06-25 devnull #include <memdraw.h>
9 c66b5250 2006-06-25 devnull #include <keyboard.h>
10 c66b5250 2006-06-25 devnull #include <mouse.h>
11 c66b5250 2006-06-25 devnull #include <cursor.h>
12 c66b5250 2006-06-25 devnull #include "x11-memdraw.h"
14 c66b5250 2006-06-25 devnull static int parsewinsize(char*, Rectangle*, int*);
16 c66b5250 2006-06-25 devnull static void plan9cmap(void);
17 c66b5250 2006-06-25 devnull static int setupcmap(XWindow);
18 c66b5250 2006-06-25 devnull static XGC xgc(XDrawable, int, int);
20 c66b5250 2006-06-25 devnull Xprivate _x;
22 c66b5250 2006-06-25 devnull static int
23 c66b5250 2006-06-25 devnull xerror(XDisplay *d, XErrorEvent *e)
25 c66b5250 2006-06-25 devnull char buf[200];
27 c66b5250 2006-06-25 devnull if(e->request_code == 42) /* XSetInputFocus */
28 c66b5250 2006-06-25 devnull return 0;
29 c66b5250 2006-06-25 devnull if(e->request_code == 18) /* XChangeProperty */
30 c66b5250 2006-06-25 devnull return 0;
32 2bdefab1 2006-07-05 devnull * BadDrawable happens in apps that get resized a LOT,
33 2bdefab1 2006-07-05 devnull * e.g. when KDE is configured to resize continuously
34 2bdefab1 2006-07-05 devnull * during a window drag.
36 2bdefab1 2006-07-05 devnull if(e->error_code == 9) /* BadDrawable */
37 2bdefab1 2006-07-05 devnull return 0;
39 2bdefab1 2006-07-05 devnull fprint(2, "X error: error_code=%d, request_code=%d, minor=%d disp=%p\n",
40 c66b5250 2006-06-25 devnull e->error_code, e->request_code, e->minor_code, d);
41 c66b5250 2006-06-25 devnull XGetErrorText(d, e->error_code, buf, sizeof buf);
42 2bdefab1 2006-07-05 devnull fprint(2, "%s\n", buf);
43 c66b5250 2006-06-25 devnull return 0;
46 c66b5250 2006-06-25 devnull static int
47 c66b5250 2006-06-25 devnull xioerror(XDisplay *d)
49 c66b5250 2006-06-25 devnull /*print("X I/O error\n"); */
51 3a194702 2006-11-04 devnull /*sysfatal("X I/O error\n");*/
53 c66b5250 2006-06-25 devnull return -1;
57 c66b5250 2006-06-25 devnull Memimage*
58 c66b5250 2006-06-25 devnull _xattach(char *label, char *winsize)
60 c66b5250 2006-06-25 devnull char *argv[2], *disp;
61 c66b5250 2006-06-25 devnull int i, havemin, height, mask, n, width, x, xrootid, y;
62 c66b5250 2006-06-25 devnull Rectangle r;
63 c66b5250 2006-06-25 devnull XClassHint classhint;
64 c66b5250 2006-06-25 devnull XDrawable pmid;
65 c66b5250 2006-06-25 devnull XPixmapFormatValues *pfmt;
66 c66b5250 2006-06-25 devnull XScreen *xscreen;
67 c66b5250 2006-06-25 devnull XSetWindowAttributes attr;
68 c66b5250 2006-06-25 devnull XSizeHints normalhint;
69 c66b5250 2006-06-25 devnull XTextProperty name;
70 c66b5250 2006-06-25 devnull XVisualInfo xvi;
71 c66b5250 2006-06-25 devnull XWindow xrootwin;
72 c66b5250 2006-06-25 devnull XWindowAttributes wattr;
73 c66b5250 2006-06-25 devnull XWMHints hint;
74 c66b5250 2006-06-25 devnull Atom atoms[2];
77 c66b5250 2006-06-25 devnull if(XInitThreads() == 0){
78 c66b5250 2006-06-25 devnull fprint(2, "XInitThreads failed\n");
84 c66b5250 2006-06-25 devnull * Connect to X server.
86 c66b5250 2006-06-25 devnull _x.display = XOpenDisplay(NULL);
87 c66b5250 2006-06-25 devnull if(_x.display == nil){
88 c66b5250 2006-06-25 devnull disp = getenv("DISPLAY");
89 c66b5250 2006-06-25 devnull werrstr("XOpenDisplay %s: %r", disp ? disp : ":0");
90 c66b5250 2006-06-25 devnull free(disp);
91 c66b5250 2006-06-25 devnull return nil;
93 c66b5250 2006-06-25 devnull _x.fd = ConnectionNumber(_x.display);
94 c66b5250 2006-06-25 devnull XSetErrorHandler(xerror);
95 c66b5250 2006-06-25 devnull XSetIOErrorHandler(xioerror);
96 c66b5250 2006-06-25 devnull xrootid = DefaultScreen(_x.display);
97 c66b5250 2006-06-25 devnull xrootwin = DefaultRootWindow(_x.display);
100 c66b5250 2006-06-25 devnull * Figure out underlying screen format.
102 c66b5250 2006-06-25 devnull if(XMatchVisualInfo(_x.display, xrootid, 16, TrueColor, &xvi)
103 c66b5250 2006-06-25 devnull || XMatchVisualInfo(_x.display, xrootid, 16, DirectColor, &xvi)){
104 c66b5250 2006-06-25 devnull _x.vis = xvi.visual;
105 c66b5250 2006-06-25 devnull _x.depth = 16;
108 c66b5250 2006-06-25 devnull if(XMatchVisualInfo(_x.display, xrootid, 15, TrueColor, &xvi)
109 c66b5250 2006-06-25 devnull || XMatchVisualInfo(_x.display, xrootid, 15, DirectColor, &xvi)){
110 c66b5250 2006-06-25 devnull _x.vis = xvi.visual;
111 c66b5250 2006-06-25 devnull _x.depth = 15;
114 c66b5250 2006-06-25 devnull if(XMatchVisualInfo(_x.display, xrootid, 24, TrueColor, &xvi)
115 c66b5250 2006-06-25 devnull || XMatchVisualInfo(_x.display, xrootid, 24, DirectColor, &xvi)){
116 c66b5250 2006-06-25 devnull _x.vis = xvi.visual;
117 c66b5250 2006-06-25 devnull _x.depth = 24;
120 c66b5250 2006-06-25 devnull if(XMatchVisualInfo(_x.display, xrootid, 8, PseudoColor, &xvi)
121 c66b5250 2006-06-25 devnull || XMatchVisualInfo(_x.display, xrootid, 8, StaticColor, &xvi)){
122 c66b5250 2006-06-25 devnull if(_x.depth > 8){
123 c66b5250 2006-06-25 devnull werrstr("can't deal with colormapped depth %d screens",
124 c66b5250 2006-06-25 devnull _x.depth);
125 c66b5250 2006-06-25 devnull goto err0;
127 c66b5250 2006-06-25 devnull _x.vis = xvi.visual;
128 c66b5250 2006-06-25 devnull _x.depth = 8;
131 c66b5250 2006-06-25 devnull _x.depth = DefaultDepth(_x.display, xrootid);
132 c66b5250 2006-06-25 devnull if(_x.depth != 8){
133 c66b5250 2006-06-25 devnull werrstr("can't understand depth %d screen", _x.depth);
134 c66b5250 2006-06-25 devnull goto err0;
136 c66b5250 2006-06-25 devnull _x.vis = DefaultVisual(_x.display, xrootid);
139 c66b5250 2006-06-25 devnull if(DefaultDepth(_x.display, xrootid) == _x.depth)
140 c66b5250 2006-06-25 devnull _x.usetable = 1;
143 c66b5250 2006-06-25 devnull * _x.depth is only the number of significant pixel bits,
144 c66b5250 2006-06-25 devnull * not the total number of pixel bits. We need to walk the
145 c66b5250 2006-06-25 devnull * display list to find how many actual bits are used
146 c66b5250 2006-06-25 devnull * per pixel.
148 c66b5250 2006-06-25 devnull _x.chan = 0;
149 c66b5250 2006-06-25 devnull pfmt = XListPixmapFormats(_x.display, &n);
150 c66b5250 2006-06-25 devnull for(i=0; i<n; i++){
151 c66b5250 2006-06-25 devnull if(pfmt[i].depth == _x.depth){
152 c66b5250 2006-06-25 devnull switch(pfmt[i].bits_per_pixel){
153 c66b5250 2006-06-25 devnull case 1: /* untested */
154 c66b5250 2006-06-25 devnull _x.chan = GREY1;
156 c66b5250 2006-06-25 devnull case 2: /* untested */
157 c66b5250 2006-06-25 devnull _x.chan = GREY2;
159 c66b5250 2006-06-25 devnull case 4: /* untested */
160 c66b5250 2006-06-25 devnull _x.chan = GREY4;
163 c66b5250 2006-06-25 devnull _x.chan = CMAP8;
165 c66b5250 2006-06-25 devnull case 15:
166 c66b5250 2006-06-25 devnull _x.chan = RGB15;
168 c66b5250 2006-06-25 devnull case 16: /* how to tell RGB15? */
169 c66b5250 2006-06-25 devnull _x.chan = RGB16;
171 c66b5250 2006-06-25 devnull case 24: /* untested (impossible?) */
172 c66b5250 2006-06-25 devnull _x.chan = RGB24;
174 c66b5250 2006-06-25 devnull case 32:
175 c66b5250 2006-06-25 devnull _x.chan = XRGB32;
180 c66b5250 2006-06-25 devnull if(_x.chan == 0){
181 c66b5250 2006-06-25 devnull werrstr("could not determine screen pixel format");
182 c66b5250 2006-06-25 devnull goto err0;
186 c66b5250 2006-06-25 devnull * Set up color map if necessary.
188 c66b5250 2006-06-25 devnull xscreen = DefaultScreenOfDisplay(_x.display);
189 c66b5250 2006-06-25 devnull _x.cmap = DefaultColormapOfScreen(xscreen);
190 c66b5250 2006-06-25 devnull if(_x.vis->class != StaticColor){
191 c66b5250 2006-06-25 devnull plan9cmap();
192 c66b5250 2006-06-25 devnull setupcmap(xrootwin);
196 c66b5250 2006-06-25 devnull * We get to choose the initial rectangle size.
197 c66b5250 2006-06-25 devnull * This is arbitrary. In theory we should read the
198 c66b5250 2006-06-25 devnull * command line and allow the traditional X options.
200 c66b5250 2006-06-25 devnull mask = 0;
203 c66b5250 2006-06-25 devnull if(winsize && winsize[0]){
204 c66b5250 2006-06-25 devnull if(parsewinsize(winsize, &r, &havemin) < 0)
205 c66b5250 2006-06-25 devnull sysfatal("%r");
208 c66b5250 2006-06-25 devnull * Parse the various X resources. Thanks to Peter Canning.
210 c66b5250 2006-06-25 devnull char *screen_resources, *display_resources, *geom,
211 c66b5250 2006-06-25 devnull *geomrestype, *home, *file;
212 c66b5250 2006-06-25 devnull XrmDatabase database;
213 c66b5250 2006-06-25 devnull XrmValue geomres;
215 c66b5250 2006-06-25 devnull database = XrmGetDatabase(_x.display);
216 c66b5250 2006-06-25 devnull screen_resources = XScreenResourceString(xscreen);
217 c66b5250 2006-06-25 devnull if(screen_resources != nil){
218 c66b5250 2006-06-25 devnull XrmCombineDatabase(XrmGetStringDatabase(screen_resources), &database, False);
219 c66b5250 2006-06-25 devnull XFree(screen_resources);
222 c66b5250 2006-06-25 devnull display_resources = XResourceManagerString(_x.display);
223 c66b5250 2006-06-25 devnull if(display_resources == nil){
224 c66b5250 2006-06-25 devnull home = getenv("HOME");
225 c66b5250 2006-06-25 devnull if(home!=nil && (file=smprint("%s/.Xdefaults", home)) != nil){
226 c66b5250 2006-06-25 devnull XrmCombineFileDatabase(file, &database, False);
227 c66b5250 2006-06-25 devnull free(file);
229 c66b5250 2006-06-25 devnull free(home);
231 c66b5250 2006-06-25 devnull XrmCombineDatabase(XrmGetStringDatabase(display_resources), &database, False);
233 c66b5250 2006-06-25 devnull geom = smprint("%s.geometry", label);
234 c66b5250 2006-06-25 devnull if(geom && XrmGetResource(database, geom, nil, &geomrestype, &geomres))
235 c66b5250 2006-06-25 devnull mask = XParseGeometry(geomres.addr, &x, &y, (uint*)&width, (uint*)&height);
236 c66b5250 2006-06-25 devnull free(geom);
238 c66b5250 2006-06-25 devnull if((mask & WidthValue) && (mask & HeightValue)){
239 c66b5250 2006-06-25 devnull r = Rect(0, 0, width, height);
241 c66b5250 2006-06-25 devnull r = Rect(0, 0, WidthOfScreen(xscreen)*3/4,
242 c66b5250 2006-06-25 devnull HeightOfScreen(xscreen)*3/4);
243 c66b5250 2006-06-25 devnull if(Dx(r) > Dy(r)*3/2)
244 c66b5250 2006-06-25 devnull r.max.x = r.min.x + Dy(r)*3/2;
245 c66b5250 2006-06-25 devnull if(Dy(r) > Dx(r)*3/2)
246 c66b5250 2006-06-25 devnull r.max.y = r.min.y + Dx(r)*3/2;
248 c66b5250 2006-06-25 devnull if(mask & XNegative){
249 c66b5250 2006-06-25 devnull x += WidthOfScreen(xscreen);
251 c66b5250 2006-06-25 devnull if(mask & YNegative){
252 c66b5250 2006-06-25 devnull y += HeightOfScreen(xscreen);
254 c66b5250 2006-06-25 devnull havemin = 0;
256 35288690 2008-01-30 rsc screenrect = Rect(0, 0, WidthOfScreen(xscreen), HeightOfScreen(xscreen));
257 35288690 2008-01-30 rsc windowrect = r;
259 c66b5250 2006-06-25 devnull memset(&attr, 0, sizeof attr);
260 c66b5250 2006-06-25 devnull attr.colormap = _x.cmap;
261 c66b5250 2006-06-25 devnull attr.background_pixel = ~0;
262 c66b5250 2006-06-25 devnull attr.border_pixel = 0;
263 c66b5250 2006-06-25 devnull _x.drawable = XCreateWindow(
264 c66b5250 2006-06-25 devnull _x.display, /* display */
265 c66b5250 2006-06-25 devnull xrootwin, /* parent */
266 c66b5250 2006-06-25 devnull x, /* x */
267 c66b5250 2006-06-25 devnull y, /* y */
268 c66b5250 2006-06-25 devnull Dx(r), /* width */
269 c66b5250 2006-06-25 devnull Dy(r), /* height */
270 c66b5250 2006-06-25 devnull 0, /* border width */
271 c66b5250 2006-06-25 devnull _x.depth, /* depth */
272 c66b5250 2006-06-25 devnull InputOutput, /* class */
273 c66b5250 2006-06-25 devnull _x.vis, /* visual */
274 c66b5250 2006-06-25 devnull /* valuemask */
275 c66b5250 2006-06-25 devnull CWBackPixel|CWBorderPixel|CWColormap,
276 c66b5250 2006-06-25 devnull &attr /* attributes (the above aren't?!) */
280 c66b5250 2006-06-25 devnull * Label and other properties required by ICCCCM.
282 c66b5250 2006-06-25 devnull memset(&name, 0, sizeof name);
283 c66b5250 2006-06-25 devnull if(label == nil)
284 c66b5250 2006-06-25 devnull label = "pjw-face-here";
285 c66b5250 2006-06-25 devnull name.value = (uchar*)label;
286 c66b5250 2006-06-25 devnull name.encoding = XA_STRING;
287 c66b5250 2006-06-25 devnull name.format = 8;
288 c66b5250 2006-06-25 devnull name.nitems = strlen((char*)name.value);
290 c66b5250 2006-06-25 devnull memset(&normalhint, 0, sizeof normalhint);
291 c66b5250 2006-06-25 devnull normalhint.flags = PSize|PMaxSize;
292 c66b5250 2006-06-25 devnull if(winsize && winsize[0]){
293 c66b5250 2006-06-25 devnull normalhint.flags &= ~PSize;
294 c66b5250 2006-06-25 devnull normalhint.flags |= USSize;
295 c66b5250 2006-06-25 devnull normalhint.width = Dx(r);
296 c66b5250 2006-06-25 devnull normalhint.height = Dy(r);
298 c66b5250 2006-06-25 devnull if((mask & WidthValue) && (mask & HeightValue)){
299 c66b5250 2006-06-25 devnull normalhint.flags &= ~PSize;
300 c66b5250 2006-06-25 devnull normalhint.flags |= USSize;
301 c66b5250 2006-06-25 devnull normalhint.width = width;
302 c66b5250 2006-06-25 devnull normalhint.height = height;
304 c66b5250 2006-06-25 devnull if((mask & WidthValue) && (mask & HeightValue)){
305 c66b5250 2006-06-25 devnull normalhint.flags |= USPosition;
306 c66b5250 2006-06-25 devnull normalhint.x = x;
307 c66b5250 2006-06-25 devnull normalhint.y = y;
311 c66b5250 2006-06-25 devnull normalhint.max_width = WidthOfScreen(xscreen);
312 c66b5250 2006-06-25 devnull normalhint.max_height = HeightOfScreen(xscreen);
314 c66b5250 2006-06-25 devnull memset(&hint, 0, sizeof hint);
315 c66b5250 2006-06-25 devnull hint.flags = InputHint|StateHint;
316 c66b5250 2006-06-25 devnull hint.input = 1;
317 c66b5250 2006-06-25 devnull hint.initial_state = NormalState;
319 c66b5250 2006-06-25 devnull memset(&classhint, 0, sizeof classhint);
320 c66b5250 2006-06-25 devnull classhint.res_name = label;
321 c66b5250 2006-06-25 devnull classhint.res_class = label;
323 c66b5250 2006-06-25 devnull argv[0] = label;
324 c66b5250 2006-06-25 devnull argv[1] = nil;
326 c66b5250 2006-06-25 devnull XSetWMProperties(
327 c66b5250 2006-06-25 devnull _x.display, /* display */
328 c66b5250 2006-06-25 devnull _x.drawable, /* window */
329 c66b5250 2006-06-25 devnull &name, /* XA_WM_NAME property */
330 c66b5250 2006-06-25 devnull &name, /* XA_WM_ICON_NAME property */
331 c66b5250 2006-06-25 devnull argv, /* XA_WM_COMMAND */
332 c66b5250 2006-06-25 devnull 1, /* argc */
333 c66b5250 2006-06-25 devnull &normalhint, /* XA_WM_NORMAL_HINTS */
334 c66b5250 2006-06-25 devnull &hint, /* XA_WM_HINTS */
335 c66b5250 2006-06-25 devnull &classhint /* XA_WM_CLASSHINTS */
337 c66b5250 2006-06-25 devnull XFlush(_x.display);
339 c66b5250 2006-06-25 devnull if(havemin){
340 c66b5250 2006-06-25 devnull XWindowChanges ch;
342 c66b5250 2006-06-25 devnull memset(&ch, 0, sizeof ch);
343 c66b5250 2006-06-25 devnull ch.x = r.min.x;
344 c66b5250 2006-06-25 devnull ch.y = r.min.y;
345 c66b5250 2006-06-25 devnull XConfigureWindow(_x.display, _x.drawable, CWX|CWY, &ch);
347 c66b5250 2006-06-25 devnull * Must pretend origin is 0,0 for X.
349 c66b5250 2006-06-25 devnull r = Rect(0,0,Dx(r),Dy(r));
352 c66b5250 2006-06-25 devnull * Look up clipboard atom.
354 c66b5250 2006-06-25 devnull _x.clipboard = XInternAtom(_x.display, "CLIPBOARD", False);
355 c66b5250 2006-06-25 devnull _x.utf8string = XInternAtom(_x.display, "UTF8_STRING", False);
356 c66b5250 2006-06-25 devnull _x.targets = XInternAtom(_x.display, "TARGETS", False);
357 c66b5250 2006-06-25 devnull _x.text = XInternAtom(_x.display, "TEXT", False);
358 c66b5250 2006-06-25 devnull _x.compoundtext = XInternAtom(_x.display, "COMPOUND_TEXT", False);
359 c66b5250 2006-06-25 devnull _x.takefocus = XInternAtom(_x.display, "WM_TAKE_FOCUS", False);
360 c66b5250 2006-06-25 devnull _x.losefocus = XInternAtom(_x.display, "_9WM_LOSE_FOCUS", False);
361 c66b5250 2006-06-25 devnull _x.wmprotos = XInternAtom(_x.display, "WM_PROTOCOLS", False);
363 c66b5250 2006-06-25 devnull atoms[0] = _x.takefocus;
364 c66b5250 2006-06-25 devnull atoms[1] = _x.losefocus;
365 c66b5250 2006-06-25 devnull XChangeProperty(_x.display, _x.drawable, _x.wmprotos, XA_ATOM, 32,
366 c66b5250 2006-06-25 devnull PropModeReplace, (uchar*)atoms, 2);
369 c66b5250 2006-06-25 devnull * Put the window on the screen, check to see what size we actually got.
371 c66b5250 2006-06-25 devnull XMapWindow(_x.display, _x.drawable);
372 c66b5250 2006-06-25 devnull XSync(_x.display, False);
374 c66b5250 2006-06-25 devnull if(!XGetWindowAttributes(_x.display, _x.drawable, &wattr))
375 c66b5250 2006-06-25 devnull fprint(2, "XGetWindowAttributes failed\n");
376 c66b5250 2006-06-25 devnull else if(wattr.width && wattr.height){
377 c66b5250 2006-06-25 devnull if(wattr.width != Dx(r) || wattr.height != Dy(r)){
378 c66b5250 2006-06-25 devnull r.max.x = wattr.width;
379 c66b5250 2006-06-25 devnull r.max.y = wattr.height;
382 c66b5250 2006-06-25 devnull fprint(2, "XGetWindowAttributes: bad attrs\n");
385 c66b5250 2006-06-25 devnull * Allocate our local backing store.
387 c66b5250 2006-06-25 devnull _x.screenr = r;
388 c66b5250 2006-06-25 devnull _x.screenpm = XCreatePixmap(_x.display, _x.drawable, Dx(r), Dy(r), _x.depth);
389 c66b5250 2006-06-25 devnull _x.nextscreenpm = _x.screenpm;
390 c66b5250 2006-06-25 devnull _x.screenimage = _xallocmemimage(r, _x.chan, _x.screenpm);
393 c66b5250 2006-06-25 devnull * Allocate some useful graphics contexts for the future.
395 c66b5250 2006-06-25 devnull _x.gcfill = xgc(_x.screenpm, FillSolid, -1);
396 c66b5250 2006-06-25 devnull _x.gccopy = xgc(_x.screenpm, -1, -1);
397 c66b5250 2006-06-25 devnull _x.gcsimplesrc = xgc(_x.screenpm, FillStippled, -1);
398 c66b5250 2006-06-25 devnull _x.gczero = xgc(_x.screenpm, -1, -1);
399 c66b5250 2006-06-25 devnull _x.gcreplsrc = xgc(_x.screenpm, FillTiled, -1);
401 c66b5250 2006-06-25 devnull pmid = XCreatePixmap(_x.display, _x.drawable, 1, 1, 1);
402 c66b5250 2006-06-25 devnull _x.gcfill0 = xgc(pmid, FillSolid, 0);
403 c66b5250 2006-06-25 devnull _x.gccopy0 = xgc(pmid, -1, -1);
404 c66b5250 2006-06-25 devnull _x.gcsimplesrc0 = xgc(pmid, FillStippled, -1);
405 c66b5250 2006-06-25 devnull _x.gczero0 = xgc(pmid, -1, -1);
406 c66b5250 2006-06-25 devnull _x.gcreplsrc0 = xgc(pmid, FillTiled, -1);
407 c66b5250 2006-06-25 devnull XFreePixmap(_x.display, pmid);
409 c66b5250 2006-06-25 devnull return _x.screenimage;
413 c66b5250 2006-06-25 devnull * Should do a better job of cleaning up here.
415 c66b5250 2006-06-25 devnull XCloseDisplay(_x.display);
416 c66b5250 2006-06-25 devnull return nil;
420 c66b5250 2006-06-25 devnull _xsetlabel(char *label)
422 c66b5250 2006-06-25 devnull XTextProperty name;
425 c66b5250 2006-06-25 devnull * Label and other properties required by ICCCCM.
427 c66b5250 2006-06-25 devnull memset(&name, 0, sizeof name);
428 c66b5250 2006-06-25 devnull if(label == nil)
429 c66b5250 2006-06-25 devnull label = "pjw-face-here";
430 c66b5250 2006-06-25 devnull name.value = (uchar*)label;
431 c66b5250 2006-06-25 devnull name.encoding = XA_STRING;
432 c66b5250 2006-06-25 devnull name.format = 8;
433 c66b5250 2006-06-25 devnull name.nitems = strlen((char*)name.value);
435 c66b5250 2006-06-25 devnull XSetWMProperties(
436 c66b5250 2006-06-25 devnull _x.display, /* display */
437 c66b5250 2006-06-25 devnull _x.drawable, /* window */
438 c66b5250 2006-06-25 devnull &name, /* XA_WM_NAME property */
439 c66b5250 2006-06-25 devnull &name, /* XA_WM_ICON_NAME property */
440 c66b5250 2006-06-25 devnull nil, /* XA_WM_COMMAND */
441 c66b5250 2006-06-25 devnull 0, /* argc */
442 c66b5250 2006-06-25 devnull nil, /* XA_WM_NORMAL_HINTS */
443 c66b5250 2006-06-25 devnull nil, /* XA_WM_HINTS */
444 c66b5250 2006-06-25 devnull nil /* XA_WM_CLASSHINTS */
446 c66b5250 2006-06-25 devnull XFlush(_x.display);
447 c66b5250 2006-06-25 devnull return 0;
451 c66b5250 2006-06-25 devnull * Create a GC with a particular fill style and XXX.
452 c66b5250 2006-06-25 devnull * Disable generation of GraphicsExpose/NoExpose events in the GC.
454 c66b5250 2006-06-25 devnull static XGC
455 c66b5250 2006-06-25 devnull xgc(XDrawable d, int fillstyle, int foreground)
458 c66b5250 2006-06-25 devnull XGCValues v;
460 c66b5250 2006-06-25 devnull memset(&v, 0, sizeof v);
461 c66b5250 2006-06-25 devnull v.function = GXcopy;
462 c66b5250 2006-06-25 devnull v.graphics_exposures = False;
463 c66b5250 2006-06-25 devnull gc = XCreateGC(_x.display, d, GCFunction|GCGraphicsExposures, &v);
464 c66b5250 2006-06-25 devnull if(fillstyle != -1)
465 c66b5250 2006-06-25 devnull XSetFillStyle(_x.display, gc, fillstyle);
466 c66b5250 2006-06-25 devnull if(foreground != -1)
467 c66b5250 2006-06-25 devnull XSetForeground(_x.display, gc, 0);
468 c66b5250 2006-06-25 devnull return gc;
473 c66b5250 2006-06-25 devnull * Initialize map with the Plan 9 rgbv color map.
475 c66b5250 2006-06-25 devnull static void
476 c66b5250 2006-06-25 devnull plan9cmap(void)
478 c66b5250 2006-06-25 devnull int r, g, b, cr, cg, cb, v, num, den, idx, v7, idx7;
479 c66b5250 2006-06-25 devnull static int once;
481 c66b5250 2006-06-25 devnull if(once)
483 c66b5250 2006-06-25 devnull once = 1;
485 c66b5250 2006-06-25 devnull for(r=0; r!=4; r++)
486 c66b5250 2006-06-25 devnull for(g = 0; g != 4; g++)
487 c66b5250 2006-06-25 devnull for(b = 0; b!=4; b++)
488 c66b5250 2006-06-25 devnull for(v = 0; v!=4; v++){
490 c66b5250 2006-06-25 devnull if(g > den)
492 c66b5250 2006-06-25 devnull if(b > den)
494 c66b5250 2006-06-25 devnull /* divide check -- pick grey shades */
495 c66b5250 2006-06-25 devnull if(den==0)
496 c66b5250 2006-06-25 devnull cr=cg=cb=v*17;
498 c66b5250 2006-06-25 devnull num=17*(4*den+v);
499 c66b5250 2006-06-25 devnull cr=r*num/den;
500 c66b5250 2006-06-25 devnull cg=g*num/den;
501 c66b5250 2006-06-25 devnull cb=b*num/den;
503 c66b5250 2006-06-25 devnull idx = r*64 + v*16 + ((g*4 + b + v - r) & 15);
504 c66b5250 2006-06-25 devnull _x.map[idx].red = cr*0x0101;
505 c66b5250 2006-06-25 devnull _x.map[idx].green = cg*0x0101;
506 c66b5250 2006-06-25 devnull _x.map[idx].blue = cb*0x0101;
507 c66b5250 2006-06-25 devnull _x.map[idx].pixel = idx;
508 c66b5250 2006-06-25 devnull _x.map[idx].flags = DoRed|DoGreen|DoBlue;
510 c66b5250 2006-06-25 devnull v7 = v >> 1;
511 c66b5250 2006-06-25 devnull idx7 = r*32 + v7*16 + g*4 + b;
512 c66b5250 2006-06-25 devnull if((v & 1) == v7){
513 c66b5250 2006-06-25 devnull _x.map7to8[idx7][0] = idx;
514 c66b5250 2006-06-25 devnull if(den == 0) { /* divide check -- pick grey shades */
515 c66b5250 2006-06-25 devnull cr = ((255.0/7.0)*v7)+0.5;
516 c66b5250 2006-06-25 devnull cg = cr;
517 c66b5250 2006-06-25 devnull cb = cr;
520 c66b5250 2006-06-25 devnull num=17*15*(4*den+v7*2)/14;
521 c66b5250 2006-06-25 devnull cr=r*num/den;
522 c66b5250 2006-06-25 devnull cg=g*num/den;
523 c66b5250 2006-06-25 devnull cb=b*num/den;
525 c66b5250 2006-06-25 devnull _x.map7[idx7].red = cr*0x0101;
526 c66b5250 2006-06-25 devnull _x.map7[idx7].green = cg*0x0101;
527 c66b5250 2006-06-25 devnull _x.map7[idx7].blue = cb*0x0101;
528 c66b5250 2006-06-25 devnull _x.map7[idx7].pixel = idx7;
529 c66b5250 2006-06-25 devnull _x.map7[idx7].flags = DoRed|DoGreen|DoBlue;
532 c66b5250 2006-06-25 devnull _x.map7to8[idx7][1] = idx;
537 c66b5250 2006-06-25 devnull * Initialize and install the rgbv color map as a private color map
538 c66b5250 2006-06-25 devnull * for this application. It gets the best colors when it has the
539 c66b5250 2006-06-25 devnull * cursor focus.
541 c66b5250 2006-06-25 devnull * We always choose the best depth possible, but that might not
542 c66b5250 2006-06-25 devnull * be the default depth. On such "suboptimal" systems, we have to allocate an
543 c66b5250 2006-06-25 devnull * empty color map anyway, according to Axel Belinfante.
545 c66b5250 2006-06-25 devnull static int
546 c66b5250 2006-06-25 devnull setupcmap(XWindow w)
548 c66b5250 2006-06-25 devnull char buf[30];
550 c66b5250 2006-06-25 devnull u32int p, pp;
551 c66b5250 2006-06-25 devnull XColor c;
553 c66b5250 2006-06-25 devnull if(_x.depth <= 1)
554 c66b5250 2006-06-25 devnull return 0;
556 c66b5250 2006-06-25 devnull if(_x.depth >= 24) {
557 c66b5250 2006-06-25 devnull if(_x.usetable == 0)
558 c66b5250 2006-06-25 devnull _x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocNone);
561 c66b5250 2006-06-25 devnull * The pixel value returned from XGetPixel needs to
562 c66b5250 2006-06-25 devnull * be converted to RGB so we can call rgb2cmap()
563 c66b5250 2006-06-25 devnull * to translate between 24 bit X and our color. Unfortunately,
564 c66b5250 2006-06-25 devnull * the return value appears to be display server endian
565 c66b5250 2006-06-25 devnull * dependant. Therefore, we run some heuristics to later
566 c66b5250 2006-06-25 devnull * determine how to mask the int value correctly.
567 c66b5250 2006-06-25 devnull * Yeah, I know we can look at _x.vis->byte_order but
568 c66b5250 2006-06-25 devnull * some displays say MSB even though they run on LSB.
569 c66b5250 2006-06-25 devnull * Besides, this is more anal.
571 c66b5250 2006-06-25 devnull c = _x.map[19]; /* known to have different R, G, B values */
572 c66b5250 2006-06-25 devnull if(!XAllocColor(_x.display, _x.cmap, &c)){
573 c66b5250 2006-06-25 devnull werrstr("XAllocColor: %r");
574 c66b5250 2006-06-25 devnull return -1;
576 c66b5250 2006-06-25 devnull p = c.pixel;
577 c66b5250 2006-06-25 devnull pp = rgb2cmap((p>>16)&0xff,(p>>8)&0xff,p&0xff);
578 c66b5250 2006-06-25 devnull if(pp != _x.map[19].pixel) {
579 c66b5250 2006-06-25 devnull /* check if endian is other way */
580 c66b5250 2006-06-25 devnull pp = rgb2cmap(p&0xff,(p>>8)&0xff,(p>>16)&0xff);
581 c66b5250 2006-06-25 devnull if(pp != _x.map[19].pixel){
582 c66b5250 2006-06-25 devnull werrstr("cannot detect X server byte order");
583 c66b5250 2006-06-25 devnull return -1;
586 c66b5250 2006-06-25 devnull switch(_x.chan){
587 c66b5250 2006-06-25 devnull case RGB24:
588 c66b5250 2006-06-25 devnull _x.chan = BGR24;
590 c66b5250 2006-06-25 devnull case XRGB32:
591 c66b5250 2006-06-25 devnull _x.chan = XBGR32;
593 c66b5250 2006-06-25 devnull default:
594 c66b5250 2006-06-25 devnull werrstr("cannot byteswap channel %s",
595 c66b5250 2006-06-25 devnull chantostr(buf, _x.chan));
599 c66b5250 2006-06-25 devnull }else if(_x.vis->class == TrueColor || _x.vis->class == DirectColor){
601 c66b5250 2006-06-25 devnull * Do nothing. We have no way to express a
602 c66b5250 2006-06-25 devnull * mixed-endian 16-bit screen, so pretend they don't exist.
604 c66b5250 2006-06-25 devnull if(_x.usetable == 0)
605 c66b5250 2006-06-25 devnull _x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocNone);
606 c66b5250 2006-06-25 devnull }else if(_x.vis->class == PseudoColor){
607 c66b5250 2006-06-25 devnull if(_x.usetable == 0){
608 c66b5250 2006-06-25 devnull _x.cmap = XCreateColormap(_x.display, w, _x.vis, AllocAll);
609 c66b5250 2006-06-25 devnull XStoreColors(_x.display, _x.cmap, _x.map, 256);
610 c66b5250 2006-06-25 devnull for(i = 0; i < 256; i++){
611 c66b5250 2006-06-25 devnull _x.tox11[i] = i;
612 c66b5250 2006-06-25 devnull _x.toplan9[i] = i;
615 c66b5250 2006-06-25 devnull for(i = 0; i < 128; i++){
616 c66b5250 2006-06-25 devnull c = _x.map7[i];
617 c66b5250 2006-06-25 devnull if(!XAllocColor(_x.display, _x.cmap, &c)){
618 c66b5250 2006-06-25 devnull werrstr("can't allocate colors in 7-bit map");
619 c66b5250 2006-06-25 devnull return -1;
621 c66b5250 2006-06-25 devnull _x.tox11[_x.map7to8[i][0]] = c.pixel;
622 c66b5250 2006-06-25 devnull _x.tox11[_x.map7to8[i][1]] = c.pixel;
623 c66b5250 2006-06-25 devnull _x.toplan9[c.pixel] = _x.map7to8[i][0];
627 c66b5250 2006-06-25 devnull werrstr("unsupported visual class %d", _x.vis->class);
628 c66b5250 2006-06-25 devnull return -1;
630 c66b5250 2006-06-25 devnull return 0;
634 c66b5250 2006-06-25 devnull _flushmemscreen(Rectangle r)
636 c66b5250 2006-06-25 devnull if(_x.nextscreenpm != _x.screenpm){
637 c66b5250 2006-06-25 devnull qlock(&_x.screenlock);
638 c66b5250 2006-06-25 devnull XSync(_x.display, False);
639 c66b5250 2006-06-25 devnull XFreePixmap(_x.display, _x.screenpm);
640 c66b5250 2006-06-25 devnull _x.screenpm = _x.nextscreenpm;
641 c66b5250 2006-06-25 devnull qunlock(&_x.screenlock);
644 c66b5250 2006-06-25 devnull if(r.min.x >= r.max.x || r.min.y >= r.max.y)
646 c66b5250 2006-06-25 devnull XCopyArea(_x.display, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
647 c66b5250 2006-06-25 devnull Dx(r), Dy(r), r.min.x, r.min.y);
648 c66b5250 2006-06-25 devnull XFlush(_x.display);
652 c66b5250 2006-06-25 devnull _xexpose(XEvent *e)
654 c66b5250 2006-06-25 devnull XExposeEvent *xe;
655 c66b5250 2006-06-25 devnull Rectangle r;
657 c66b5250 2006-06-25 devnull qlock(&_x.screenlock);
658 c66b5250 2006-06-25 devnull if(_x.screenpm != _x.nextscreenpm){
659 c66b5250 2006-06-25 devnull qunlock(&_x.screenlock);
662 c66b5250 2006-06-25 devnull xe = (XExposeEvent*)e;
663 c66b5250 2006-06-25 devnull r.min.x = xe->x;
664 c66b5250 2006-06-25 devnull r.min.y = xe->y;
665 c66b5250 2006-06-25 devnull r.max.x = xe->x+xe->width;
666 c66b5250 2006-06-25 devnull r.max.y = xe->y+xe->height;
667 c66b5250 2006-06-25 devnull XCopyArea(_x.display, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
668 c66b5250 2006-06-25 devnull Dx(r), Dy(r), r.min.x, r.min.y);
669 c66b5250 2006-06-25 devnull XSync(_x.display, False);
670 c66b5250 2006-06-25 devnull qunlock(&_x.screenlock);
674 c66b5250 2006-06-25 devnull _xdestroy(XEvent *e)
676 c66b5250 2006-06-25 devnull XDestroyWindowEvent *xe;
678 c66b5250 2006-06-25 devnull xe = (XDestroyWindowEvent*)e;
679 c66b5250 2006-06-25 devnull if(xe->window == _x.drawable){
680 c66b5250 2006-06-25 devnull _x.destroyed = 1;
681 c66b5250 2006-06-25 devnull return 1;
683 c66b5250 2006-06-25 devnull return 0;
687 c66b5250 2006-06-25 devnull _xconfigure(XEvent *e)
689 c66b5250 2006-06-25 devnull Rectangle r;
690 c66b5250 2006-06-25 devnull XConfigureEvent *xe = (XConfigureEvent*)e;
692 35288690 2008-01-30 rsc if(!fullscreen){
695 0f897f99 2008-01-30 rsc if(XTranslateCoordinates(_x.display, _x.drawable, DefaultRootWindow(_x.display), 0, 0, &rx, &ry, &w))
696 0f897f99 2008-01-30 rsc windowrect = Rect(rx, ry, rx+xe->width, ry+xe->height);
699 c66b5250 2006-06-25 devnull if(xe->width == Dx(_x.screenr) && xe->height == Dy(_x.screenr))
700 c66b5250 2006-06-25 devnull return 0;
701 c66b5250 2006-06-25 devnull r = Rect(0, 0, xe->width, xe->height);
703 c66b5250 2006-06-25 devnull qlock(&_x.screenlock);
704 c66b5250 2006-06-25 devnull if(_x.screenpm != _x.nextscreenpm){
705 c66b5250 2006-06-25 devnull XCopyArea(_x.display, _x.screenpm, _x.drawable, _x.gccopy, r.min.x, r.min.y,
706 c66b5250 2006-06-25 devnull Dx(r), Dy(r), r.min.x, r.min.y);
707 c66b5250 2006-06-25 devnull XSync(_x.display, False);
709 c66b5250 2006-06-25 devnull qunlock(&_x.screenlock);
710 c66b5250 2006-06-25 devnull _x.newscreenr = r;
711 c66b5250 2006-06-25 devnull return 1;
715 c66b5250 2006-06-25 devnull _xreplacescreenimage(void)
717 c66b5250 2006-06-25 devnull Memimage *m;
718 c66b5250 2006-06-25 devnull XDrawable pixmap;
719 c66b5250 2006-06-25 devnull Rectangle r;
721 c66b5250 2006-06-25 devnull r = _x.newscreenr;
723 c66b5250 2006-06-25 devnull pixmap = XCreatePixmap(_x.display, _x.drawable, Dx(r), Dy(r), _x.depth);
724 c66b5250 2006-06-25 devnull m = _xallocmemimage(r, _x.chan, pixmap);
725 c66b5250 2006-06-25 devnull if(_x.nextscreenpm != _x.screenpm)
726 c66b5250 2006-06-25 devnull XFreePixmap(_x.display, _x.nextscreenpm);
727 c66b5250 2006-06-25 devnull _x.nextscreenpm = pixmap;
728 c66b5250 2006-06-25 devnull _x.screenr = r;
729 c66b5250 2006-06-25 devnull _drawreplacescreenimage(m);
730 c66b5250 2006-06-25 devnull return 1;
733 c66b5250 2006-06-25 devnull static int
734 c66b5250 2006-06-25 devnull parsewinsize(char *s, Rectangle *r, int *havemin)
736 c66b5250 2006-06-25 devnull char c, *os;
737 c66b5250 2006-06-25 devnull int i, j, k, l;
740 c66b5250 2006-06-25 devnull *havemin = 0;
741 c66b5250 2006-06-25 devnull *r = Rect(0,0,0,0);
742 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
743 c66b5250 2006-06-25 devnull goto oops;
744 c66b5250 2006-06-25 devnull i = strtol(s, &s, 0);
745 c66b5250 2006-06-25 devnull if(*s == 'x'){
747 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
748 c66b5250 2006-06-25 devnull goto oops;
749 c66b5250 2006-06-25 devnull j = strtol(s, &s, 0);
750 c66b5250 2006-06-25 devnull r->max.x = i;
751 c66b5250 2006-06-25 devnull r->max.y = j;
752 c66b5250 2006-06-25 devnull if(*s == 0)
753 c66b5250 2006-06-25 devnull return 0;
754 c66b5250 2006-06-25 devnull if(*s != '@')
755 c66b5250 2006-06-25 devnull goto oops;
758 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
759 c66b5250 2006-06-25 devnull goto oops;
760 c66b5250 2006-06-25 devnull i = strtol(s, &s, 0);
761 c66b5250 2006-06-25 devnull if(*s != ',' && *s != ' ')
762 c66b5250 2006-06-25 devnull goto oops;
764 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
765 c66b5250 2006-06-25 devnull goto oops;
766 c66b5250 2006-06-25 devnull j = strtol(s, &s, 0);
767 c66b5250 2006-06-25 devnull if(*s != 0)
768 c66b5250 2006-06-25 devnull goto oops;
769 c66b5250 2006-06-25 devnull *r = rectaddpt(*r, Pt(i,j));
770 c66b5250 2006-06-25 devnull *havemin = 1;
771 c66b5250 2006-06-25 devnull return 0;
775 c66b5250 2006-06-25 devnull if(c != ' ' && c != ',')
776 c66b5250 2006-06-25 devnull goto oops;
778 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
779 c66b5250 2006-06-25 devnull goto oops;
780 c66b5250 2006-06-25 devnull j = strtol(s, &s, 0);
781 c66b5250 2006-06-25 devnull if(*s != c)
782 c66b5250 2006-06-25 devnull goto oops;
784 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
785 c66b5250 2006-06-25 devnull goto oops;
786 c66b5250 2006-06-25 devnull k = strtol(s, &s, 0);
787 c66b5250 2006-06-25 devnull if(*s != c)
788 c66b5250 2006-06-25 devnull goto oops;
790 c66b5250 2006-06-25 devnull if(!isdigit((uchar)*s))
791 c66b5250 2006-06-25 devnull goto oops;
792 c66b5250 2006-06-25 devnull l = strtol(s, &s, 0);
793 c66b5250 2006-06-25 devnull if(*s != 0)
794 c66b5250 2006-06-25 devnull goto oops;
795 c66b5250 2006-06-25 devnull *r = Rect(i,j,k,l);
796 c66b5250 2006-06-25 devnull *havemin = 1;
797 c66b5250 2006-06-25 devnull return 0;
800 c66b5250 2006-06-25 devnull werrstr("bad syntax in window size '%s'", os);
801 c66b5250 2006-06-25 devnull return -1;
