Bug #1360: Fix a segfault by checking the return value of XQueryTree.
[dana/xcompmgr.git] / xcompmgr.c
1 /*
2  * $Id$
3  *
4  * Copyright © 2003 Keith Packard
5  *
6  * Permission to use, copy, modify, distribute, and sell this software and its
7  * documentation for any purpose is hereby granted without fee, provided that
8  * the above copyright notice appear in all copies and that both that
9  * copyright notice and this permission notice appear in supporting
10  * documentation, and that the name of Keith Packard not be used in
11  * advertising or publicity pertaining to distribution of the software without
12  * specific, written prior permission.  Keith Packard makes no
13  * representations about the suitability of this software for any purpose.  It
14  * is provided "as is" without express or implied warranty.
15  *
16  * KEITH PACKARD DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE,
17  * INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO
18  * EVENT SHALL KEITH PACKARD BE LIABLE FOR ANY SPECIAL, INDIRECT OR
19  * CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE,
20  * DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER
21  * TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
22  * PERFORMANCE OF THIS SOFTWARE.
23  */
24
25
26 /* Modified by Matthew Hawn. I don't know what to say here so follow what it 
27    says above. Not that I can really do anything about it
28 */
29
30
31 #include <stdlib.h>
32 #include <stdio.h>
33 #include <string.h>
34 #include <math.h>
35 #include <sys/poll.h>
36 #include <sys/time.h>
37 #include <time.h>
38 #include <unistd.h>
39 #include <X11/Xlib.h>
40 #include <X11/Xutil.h>
41 #include <X11/Xatom.h>
42 #include <X11/extensions/Xcomposite.h>
43 #include <X11/extensions/Xdamage.h>
44 #include <X11/extensions/Xrender.h>
45
46 #if COMPOSITE_MAJOR > 0 || COMPOSITE_MINOR >= 2
47 #define HAS_NAME_WINDOW_PIXMAP 1
48 #endif
49
50 #define CAN_DO_USABLE 0
51
52 typedef struct _ignore {
53     struct _ignore      *next;
54     unsigned long       sequence;
55 } ignore;
56
57 typedef struct _win {
58     struct _win         *next;
59     Window              id;
60 #if HAS_NAME_WINDOW_PIXMAP
61     Pixmap              pixmap;
62 #endif
63     XWindowAttributes   a;
64 #if CAN_DO_USABLE
65     Bool                usable;             /* mapped and all damaged at one point */
66     XRectangle          damage_bounds;      /* bounds of damage */
67 #endif
68     int                 mode;
69     int                 damaged;
70     Damage              damage;
71     Picture             picture;
72     Picture             alphaPict;
73     Picture             shadowPict;
74     XserverRegion       borderSize;
75     XserverRegion       extents;
76     Picture             shadow;
77     int                 shadow_dx;
78     int                 shadow_dy;
79     int                 shadow_width;
80     int                 shadow_height;
81     unsigned int        opacity;
82     Atom                windowType;
83     unsigned long       damage_sequence;    /* sequence when damage was created */
84
85     /* for drawing translucent windows */
86     XserverRegion       borderClip;
87     struct _win         *prev_trans;
88 } win;
89
90 typedef struct _conv {
91     int     size;
92     double  *data;
93 } conv;
94
95 typedef struct _fade {
96     struct _fade        *next;
97     win                 *w;
98     double              cur;
99     double              finish;
100     double              step;
101     void                (*callback) (Display *dpy, win *w, Bool gone);
102     Display             *dpy;
103     Bool                gone;
104 } fade;
105
106 win             *list;
107 fade            *fades;
108 Display         *dpy;
109 int             scr;
110 Window          root;
111 Picture         rootPicture;
112 Picture         rootBuffer;
113 Picture         blackPicture;
114 Picture         transBlackPicture;
115 Picture         rootTile;
116 XserverRegion   allDamage;
117 Bool            clipChanged;
118 #if HAS_NAME_WINDOW_PIXMAP
119 Bool            hasNamePixmap;
120 #endif
121 int             root_height, root_width;
122 ignore          *ignore_head, **ignore_tail = &ignore_head;
123 int             xfixes_event, xfixes_error;
124 int             damage_event, damage_error;
125 int             composite_event, composite_error;
126 int             render_event, render_error;
127 Bool            synchronize;
128 int             composite_opcode;
129
130 /* find these once and be done with it */
131 Atom            opacityAtom;
132 Atom            winTypeAtom;
133 Atom            winDesktopAtom;
134 Atom            winDockAtom;
135 Atom            winToolbarAtom;
136 Atom            winMenuAtom;
137 Atom            winUtilAtom;
138 Atom            winSplashAtom;
139 Atom            winDialogAtom;
140 Atom            winNormalAtom;
141
142 /* opacity property name; sometime soon I'll write up an EWMH spec for it */
143 #define OPACITY_PROP    "_NET_WM_WINDOW_OPACITY"
144
145 #define TRANSLUCENT     0xe0000000
146 #define OPAQUE          0xffffffff
147
148 conv            *gaussianMap;
149
150 #define WINDOW_SOLID    0
151 #define WINDOW_TRANS    1
152 #define WINDOW_ARGB     2
153
154 #define TRANS_OPACITY   0.75
155
156 #define DEBUG_REPAINT 0
157 #define DEBUG_EVENTS 0
158 #define MONITOR_REPAINT 0
159
160 #define SHADOWS         1
161 #define SHARP_SHADOW    0
162
163 typedef enum _compMode {
164     CompSimple,         /* looks like a regular X server */
165     CompServerShadows,  /* use window alpha for shadow; sharp, but precise */
166     CompClientShadows,  /* use window extents for shadow, blurred */
167 } CompMode;
168
169 static void
170 determine_mode(Display *dpy, win *w);
171     
172 static double
173 get_opacity_percent(Display *dpy, win *w, double def);
174
175 static XserverRegion
176 win_extents (Display *dpy, win *w);
177
178 CompMode    compMode = CompSimple;
179
180 int         shadowRadius = 12;
181
182 double  fade_in_step =  0.028;
183 double  fade_out_step = 0.03;
184 int     fade_delta =    10;
185 int     fade_time =     0;
186 Bool    fadeWindows = False;
187 Bool    excludeDockShadows = False;
188 Bool    fadeTrans = False;
189
190 Bool    autoRedirect = False;
191
192 int
193 get_time_in_milliseconds ()
194 {
195     struct timeval  tv;
196
197     gettimeofday (&tv, NULL);
198     return tv.tv_sec * 1000 + tv.tv_usec / 1000;
199 }
200
201 fade *
202 find_fade (win *w)
203 {
204     fade    *f;
205     
206     for (f = fades; f; f = f->next)
207     {
208         if (f->w == w)
209             return f;
210     }
211     return 0;
212 }
213
214 void
215 dequeue_fade (Display *dpy, fade *f)
216 {
217     fade    **prev;
218
219     for (prev = &fades; *prev; prev = &(*prev)->next)
220         if (*prev == f)
221         {
222             *prev = f->next;
223             if (f->callback)
224                 (*f->callback) (dpy, f->w, f->gone);
225             free (f);
226             break;
227         }
228 }
229
230 void
231 cleanup_fade (Display *dpy, win *w)
232 {
233     fade *f = find_fade (w);
234     if (f)
235         dequeue_fade (dpy, f);
236 }
237
238 void
239 enqueue_fade (Display *dpy, fade *f)
240 {
241     if (!fades)
242         fade_time = get_time_in_milliseconds () + fade_delta;
243     f->next = fades;
244     fades = f;
245 }
246
247 static void
248 set_fade (Display *dpy, win *w, double start, double finish, double step,
249           void (*callback) (Display *dpy, win *w, Bool gone),
250           Bool gone, Bool exec_callback, Bool override)
251 {
252     fade    *f;
253
254     f = find_fade (w);
255     if (!f)
256     {
257         f = malloc (sizeof (fade));
258         f->next = 0;
259         f->w = w;
260         f->cur = start;
261         enqueue_fade (dpy, f);
262     }
263     else if(!override)
264         return;
265     else
266     {
267         if (exec_callback)
268             if (f->callback)
269                 (*f->callback)(dpy, f->w, f->gone);
270     }
271
272     if (finish < 0)
273         finish = 0;
274     if (finish > 1)
275         finish = 1;
276     f->finish = finish;
277     if (f->cur < finish)
278         f->step = step;
279     else if (f->cur > finish)
280         f->step = -step;
281     f->callback = callback;
282     f->gone = gone;
283     w->opacity = f->cur * OPAQUE;
284 #if 0
285     printf ("set_fade start %g step %g\n", f->cur, f->step);
286 #endif
287     determine_mode (dpy, w);
288     if (w->shadow)
289     {
290         XRenderFreePicture (dpy, w->shadow);
291         w->shadow = None;
292         w->extents = win_extents (dpy, w);
293     }
294 }
295
296 int
297 fade_timeout (void)
298 {
299     int now;
300     int delta;
301     if (!fades)
302         return -1;
303     now = get_time_in_milliseconds();
304     delta = fade_time - now;
305     if (delta < 0)
306         delta = 0;
307 /*    printf ("timeout %d\n", delta); */
308     return delta;
309 }
310
311 void
312 run_fades (Display *dpy)
313 {
314     int     now = get_time_in_milliseconds();
315     fade    *f, *next;
316     int     steps;
317
318 #if 0
319     printf ("run fades\n");
320 #endif
321     if (fade_time - now > 0)
322         return;
323     steps = 1 + (now - fade_time) / fade_delta;
324     for (next = fades; f = next; )
325     {
326         win *w = f->w;
327         next = f->next;
328         f->cur += f->step * steps;
329         if (f->cur >= 1)
330             f->cur = 1;
331         else if (f->cur < 0)
332             f->cur = 0;
333 #if 0
334         printf ("opacity now %g\n", f->cur);
335 #endif
336         w->opacity = f->cur * OPAQUE;
337         if (f->step > 0)
338         {
339             if (f->cur >= f->finish)
340             {
341                 w->opacity = f->finish*OPAQUE;
342                 dequeue_fade (dpy, f);
343         }
344         }
345         else
346         {
347             if (f->cur <= f->finish)
348             {
349                 w->opacity = f->finish*OPAQUE;
350                 dequeue_fade (dpy, f);
351         }
352         }
353         determine_mode (dpy, w);
354         if (w->shadow)
355         {
356             XRenderFreePicture (dpy, w->shadow);
357             w->shadow = None;
358             w->extents = win_extents(dpy, w);
359         }
360     }
361     fade_time = now + fade_delta;
362 }
363
364 #define SHADOW_OPACITY  0.75
365 #define SHADOW_OFFSET_X (-shadowRadius * 5 / 4)
366 #define SHADOW_OFFSET_Y (-shadowRadius * 5 / 4)
367
368 static double
369 gaussian (double r, double x, double y)
370 {
371     return ((1 / (sqrt (2 * M_PI * r))) *
372             exp ((- (x * x + y * y)) / (2 * r * r)));
373 }
374
375
376 static conv *
377 make_gaussian_map (Display *dpy, double r)
378 {
379     conv            *c;
380     int             size = ((int) ceil ((r * 3)) + 1) & ~1;
381     int             center = size / 2;
382     int             x, y;
383     double          t;
384     double          g;
385     
386     c = malloc (sizeof (conv) + size * size * sizeof (double));
387     c->size = size;
388     c->data = (double *) (c + 1);
389     t = 0.0;
390     for (y = 0; y < size; y++)
391         for (x = 0; x < size; x++)
392         {
393             g = gaussian (r, (double) (x - center), (double) (y - center));
394             t += g;
395             c->data[y * size + x] = g;
396         }
397 /*    printf ("gaussian total %f\n", t); */
398     for (y = 0; y < size; y++)
399         for (x = 0; x < size; x++)
400         {
401             c->data[y*size + x] /= t;
402         }
403     return c;
404 }
405
406 /*
407  * A picture will help
408  *
409  *      -center   0                width  width+center
410  *  -center +-----+-------------------+-----+
411  *          |     |                   |     |
412  *          |     |                   |     |
413  *        0 +-----+-------------------+-----+
414  *          |     |                   |     |
415  *          |     |                   |     |
416  *          |     |                   |     |
417  *   height +-----+-------------------+-----+
418  *          |     |                   |     |
419  * height+  |     |                   |     |
420  *  center  +-----+-------------------+-----+
421  */
422  
423 static unsigned char
424 sum_gaussian (conv *map, double opacity, int x, int y, int width, int height)
425 {
426     int     fx, fy;
427     double  *g_data;
428     double  *g_line = map->data;
429     int     g_size = map->size;
430     int     center = g_size / 2;
431     int     fx_start, fx_end;
432     int     fy_start, fy_end;
433     double  v;
434     
435     /*
436      * Compute set of filter values which are "in range",
437      * that's the set with:
438      *  0 <= x + (fx-center) && x + (fx-center) < width &&
439      *  0 <= y + (fy-center) && y + (fy-center) < height
440      *
441      *  0 <= x + (fx - center)  x + fx - center < width
442      *  center - x <= fx        fx < width + center - x
443      */
444
445     fx_start = center - x;
446     if (fx_start < 0)
447         fx_start = 0;
448     fx_end = width + center - x;
449     if (fx_end > g_size)
450         fx_end = g_size;
451
452     fy_start = center - y;
453     if (fy_start < 0)
454         fy_start = 0;
455     fy_end = height + center - y;
456     if (fy_end > g_size)
457         fy_end = g_size;
458
459     g_line = g_line + fy_start * g_size + fx_start;
460     
461     v = 0;
462     for (fy = fy_start; fy < fy_end; fy++)
463     {
464         g_data = g_line;
465         g_line += g_size;
466         
467         for (fx = fx_start; fx < fx_end; fx++)
468             v += *g_data++;
469     }
470     if (v > 1)
471         v = 1;
472     
473     return ((unsigned char) (v * opacity * 255.0));
474 }
475
476 static XImage *
477 make_shadow (Display *dpy, double opacity, int width, int height)
478 {
479     XImage          *ximage;
480     unsigned char   *data;
481     int             gsize = gaussianMap->size;
482     int             ylimit, xlimit;
483     int             swidth = width + gsize;
484     int             sheight = height + gsize;
485     int             center = gsize / 2;
486     int             x, y;
487     unsigned char   d;
488     int             x_diff;
489     
490     data = malloc (swidth * sheight * sizeof (unsigned char));
491     if (!data)
492         return 0;
493     ximage = XCreateImage (dpy,
494                            DefaultVisual(dpy, DefaultScreen(dpy)),
495                            8,
496                            ZPixmap,
497                            0,
498                            (char *) data,
499                            swidth, sheight, 8, swidth * sizeof (unsigned char));
500     if (!ximage)
501     {
502         free (data);
503         return 0;
504     }
505     /*
506      * Build the gaussian in sections
507      */
508
509     /*
510      * center (fill the complete data array)
511      */
512
513     d = sum_gaussian (gaussianMap, opacity, center, center, width, height);
514     memset(data, d, sheight * swidth);
515     
516     /*
517      * corners
518      */
519     ylimit = gsize;
520     if (ylimit > sheight / 2)
521         ylimit = (sheight + 1) / 2;
522     xlimit = gsize;
523     if (xlimit > swidth / 2)
524         xlimit = (swidth + 1) / 2;
525
526     for (y = 0; y < ylimit; y++)
527         for (x = 0; x < xlimit; x++)
528         {
529             d = sum_gaussian (gaussianMap, opacity, x - center, y - center, width, height);
530             data[y * swidth + x] = d;
531             data[(sheight - y - 1) * swidth + x] = d;
532             data[(sheight - y - 1) * swidth + (swidth - x - 1)] = d;
533             data[y * swidth + (swidth - x - 1)] = d;
534         }
535
536     /*
537      * top/bottom
538      */
539     x_diff = swidth - (gsize * 2);
540     if (x_diff > 0 && ylimit > 0)
541     {
542         for (y = 0; y < ylimit; y++)
543         {
544             d = sum_gaussian (gaussianMap, opacity, center, y - center, width, height);
545             memset (&data[y * swidth + gsize], d, x_diff);
546             memset (&data[(sheight - y - 1) * swidth + gsize], d, x_diff);
547         }
548     }
549
550     /*
551      * sides
552      */
553     
554     for (x = 0; x < xlimit; x++)
555     {
556         d = sum_gaussian (gaussianMap, opacity, x - center, center, width, height);
557         for (y = gsize; y < sheight - gsize; y++)
558         {
559             data[y * swidth + x] = d;
560             data[y * swidth + (swidth - x - 1)] = d;
561         }
562     }
563
564     return ximage;
565 }
566
567 static Picture
568 shadow_picture (Display *dpy, double opacity, Picture alpha_pict, int width, int height, int *wp, int *hp)
569 {
570     XImage  *shadowImage;
571     Pixmap  shadowPixmap;
572     Pixmap  finalPixmap;
573     Picture shadowPicture;
574     Picture finalPicture;
575     GC      gc;
576     
577     shadowImage = make_shadow (dpy, opacity, width, height);
578     if (!shadowImage)
579         return None;
580     shadowPixmap = XCreatePixmap (dpy, root, 
581                                   shadowImage->width,
582                                   shadowImage->height,
583                                   8);
584     shadowPicture = XRenderCreatePicture (dpy, shadowPixmap,
585                                           XRenderFindStandardFormat (dpy, PictStandardA8),
586                                           0, 0);
587     gc = XCreateGC (dpy, shadowPixmap, 0, 0);
588     
589     XPutImage (dpy, shadowPixmap, gc, shadowImage, 0, 0, 0, 0, 
590                shadowImage->width,
591                shadowImage->height);
592     *wp = shadowImage->width;
593     *hp = shadowImage->height;
594     XFreeGC (dpy, gc);
595     XDestroyImage (shadowImage);
596     XFreePixmap (dpy, shadowPixmap);
597     return shadowPicture;
598 }
599
600 Picture
601 solid_picture (Display *dpy, Bool argb, double a, double r, double g, double b)
602 {
603     Pixmap                      pixmap;
604     Picture                     picture;
605     XRenderPictureAttributes    pa;
606     XRenderColor                c;
607
608     pixmap = XCreatePixmap (dpy, root, 1, 1, argb ? 32 : 8);
609     pa.repeat = True;
610     picture = XRenderCreatePicture (dpy, pixmap,
611                                     XRenderFindStandardFormat (dpy, argb ? PictStandardARGB32 : PictStandardA8),
612                                     CPRepeat,
613                                     &pa);
614     c.alpha = a * 0xffff;
615     c.red = r * 0xffff;
616     c.green = g * 0xffff;
617     c.blue = b * 0xffff;
618     XRenderFillRectangle (dpy, PictOpSrc, picture, &c, 0, 0, 1, 1);
619     XFreePixmap (dpy, pixmap);
620     return picture;
621 }
622
623 void
624 discard_ignore (Display *dpy, unsigned long sequence)
625 {
626     while (ignore_head)
627     {
628         if ((long) (sequence - ignore_head->sequence) > 0)
629         {
630             ignore  *next = ignore_head->next;
631             free (ignore_head);
632             ignore_head = next;
633             if (!ignore_head)
634                 ignore_tail = &ignore_head;
635         }
636         else
637             break;
638     }
639 }
640
641 void
642 set_ignore (Display *dpy, unsigned long sequence)
643 {
644     ignore  *i = malloc (sizeof (ignore));
645     if (!i)
646         return;
647     i->sequence = sequence;
648     i->next = 0;
649     *ignore_tail = i;
650     ignore_tail = &i->next;
651 }
652
653 int
654 should_ignore (Display *dpy, unsigned long sequence)
655 {
656     discard_ignore (dpy, sequence);
657     return ignore_head && ignore_head->sequence == sequence;
658 }
659
660 static win *
661 find_win (Display *dpy, Window id)
662 {
663     win *w;
664
665     for (w = list; w; w = w->next)
666         if (w->id == id)
667             return w;
668     return 0;
669 }
670
671 static char *backgroundProps[] = {
672     "_XROOTPMAP_ID",
673     "_XSETROOT_ID",
674     0,
675 };
676     
677 static Picture
678 root_tile (Display *dpy)
679 {
680     Picture         picture;
681     Atom            actual_type;
682     Pixmap          pixmap;
683     int             actual_format;
684     unsigned long   nitems;
685     unsigned long   bytes_after;
686     unsigned char   *prop;
687     Bool            fill;
688     XRenderPictureAttributes    pa;
689     int             p;
690
691     pixmap = None;
692     for (p = 0; backgroundProps[p]; p++)
693     {
694         if (XGetWindowProperty (dpy, root, XInternAtom (dpy, backgroundProps[p], False),
695                                 0, 4, False, AnyPropertyType,
696                                 &actual_type, &actual_format, &nitems, &bytes_after, &prop) == Success &&
697             actual_type == XInternAtom (dpy, "PIXMAP", False) && actual_format == 32 && nitems == 1)
698         {
699             memcpy (&pixmap, prop, 4);
700             XFree (prop);
701             fill = False;
702             break;
703         }
704     }
705     if (!pixmap)
706     {
707         pixmap = XCreatePixmap (dpy, root, 1, 1, DefaultDepth (dpy, scr));
708         fill = True;
709     }
710     pa.repeat = True;
711     picture = XRenderCreatePicture (dpy, pixmap,
712                                     XRenderFindVisualFormat (dpy,
713                                                              DefaultVisual (dpy, scr)),
714                                     CPRepeat, &pa);
715     if (fill)
716     {
717         XRenderColor    c;
718         
719         c.red = c.green = c.blue = 0x8080;
720         c.alpha = 0xffff;
721         XRenderFillRectangle (dpy, PictOpSrc, picture, &c, 
722                               0, 0, 1, 1);
723     }
724     return picture;
725 }
726
727 static void
728 paint_root (Display *dpy)
729 {
730     if (!rootTile)
731         rootTile = root_tile (dpy);
732     
733     XRenderComposite (dpy, PictOpSrc,
734                       rootTile, None, rootBuffer,
735                       0, 0, 0, 0, 0, 0, root_width, root_height);
736 }
737
738 static XserverRegion
739 win_extents (Display *dpy, win *w)
740 {
741     XRectangle      r;
742     
743     r.x = w->a.x;
744     r.y = w->a.y;
745     r.width = w->a.width + w->a.border_width * 2;
746     r.height = w->a.height + w->a.border_width * 2;
747     if (compMode != CompSimple && !(w->windowType == winDockAtom && excludeDockShadows))
748     {
749         if (compMode == CompServerShadows || w->mode != WINDOW_ARGB)
750         {
751             XRectangle  sr;
752
753             if (compMode == CompServerShadows)
754             {
755                 w->shadow_dx = 2;
756                 w->shadow_dy = 7;
757                 w->shadow_width = w->a.width;
758                 w->shadow_height = w->a.height;
759             }
760             else
761             {
762                 w->shadow_dx = SHADOW_OFFSET_X;
763                 w->shadow_dy = SHADOW_OFFSET_Y;
764                 if (!w->shadow)
765                 {
766                     double      opacity = SHADOW_OPACITY;
767                     if (w->mode == WINDOW_TRANS)
768                         opacity = opacity * ((double)w->opacity)/((double)OPAQUE);
769                     w->shadow = shadow_picture (dpy, opacity, w->alphaPict,
770                                                 w->a.width + w->a.border_width * 2,
771                                                 w->a.height + w->a.border_width * 2,
772                                                 &w->shadow_width, &w->shadow_height);
773                 }
774             }
775             sr.x = w->a.x + w->shadow_dx;
776             sr.y = w->a.y + w->shadow_dy;
777             sr.width = w->shadow_width;
778             sr.height = w->shadow_height;
779             if (sr.x < r.x)
780             {
781                 r.width = (r.x + r.width) - sr.x;
782                 r.x = sr.x;
783             }
784             if (sr.y < r.y)
785             {
786                 r.height = (r.y + r.height) - sr.y;
787                 r.y = sr.y;
788             }
789             if (sr.x + sr.width > r.x + r.width)
790                 r.width = sr.x + sr.width - r.x;
791             if (sr.y + sr.height > r.y + r.height)
792                 r.height = sr.y + sr.height - r.y;
793         }
794     }
795     return XFixesCreateRegion (dpy, &r, 1);
796 }
797
798 static XserverRegion
799 border_size (Display *dpy, win *w)
800 {
801     XserverRegion   border;
802     /*
803      * if window doesn't exist anymore,  this will generate an error
804      * as well as not generate a region.  Perhaps a better XFixes
805      * architecture would be to have a request that copies instead
806      * of creates, that way you'd just end up with an empty region
807      * instead of an invalid XID.
808      */
809     set_ignore (dpy, NextRequest (dpy));
810     border = XFixesCreateRegionFromWindow (dpy, w->id, WindowRegionBounding);
811     /* translate this */
812     set_ignore (dpy, NextRequest (dpy));
813     XFixesTranslateRegion (dpy, border,
814                            w->a.x + w->a.border_width,
815                            w->a.y + w->a.border_width);
816     return border;
817 }
818
819 static void
820 paint_all (Display *dpy, XserverRegion region)
821 {
822     win *w;
823     win *t = 0;
824     
825     if (!region)
826     {
827         XRectangle  r;
828         r.x = 0;
829         r.y = 0;
830         r.width = root_width;
831         r.height = root_height;
832         region = XFixesCreateRegion (dpy, &r, 1);
833     }
834 #if MONITOR_REPAINT
835     rootBuffer = rootPicture;
836 #else
837     if (!rootBuffer)
838     {
839         Pixmap  rootPixmap = XCreatePixmap (dpy, root, root_width, root_height,
840                                             DefaultDepth (dpy, scr));
841         rootBuffer = XRenderCreatePicture (dpy, rootPixmap,
842                                            XRenderFindVisualFormat (dpy,
843                                                                     DefaultVisual (dpy, scr)),
844                                            0, 0);
845         XFreePixmap (dpy, rootPixmap);
846     }
847 #endif
848     XFixesSetPictureClipRegion (dpy, rootPicture, 0, 0, region);
849 #if MONITOR_REPAINT
850     XRenderComposite (dpy, PictOpSrc, blackPicture, None, rootPicture,
851                       0, 0, 0, 0, 0, 0, root_width, root_height);
852 #endif
853 #if DEBUG_REPAINT
854     printf ("paint:");
855 #endif
856     for (w = list; w; w = w->next)
857     {
858 #if CAN_DO_USABLE
859         if (!w->usable)
860             continue;
861 #endif
862         /* never painted, ignore it */
863         if (!w->damaged)
864             continue;
865         if (!w->picture)
866         {
867             XRenderPictureAttributes    pa;
868             XRenderPictFormat           *format;
869             Drawable                    draw = w->id;
870             
871 #if HAS_NAME_WINDOW_PIXMAP
872             if (hasNamePixmap && !w->pixmap)
873                 w->pixmap = XCompositeNameWindowPixmap (dpy, w->id);
874             if (w->pixmap)
875                 draw = w->pixmap;
876 #endif
877             format = XRenderFindVisualFormat (dpy, w->a.visual);
878             pa.subwindow_mode = IncludeInferiors;
879             w->picture = XRenderCreatePicture (dpy, draw,
880                                                format,
881                                                CPSubwindowMode,
882                                                &pa);
883         }
884 #if DEBUG_REPAINT
885         printf (" 0x%x", w->id);
886 #endif
887         if (clipChanged)
888         {
889             if (w->borderSize)
890             {
891                 set_ignore (dpy, NextRequest (dpy));
892                 XFixesDestroyRegion (dpy, w->borderSize);
893                 w->borderSize = None;
894             }
895             if (w->extents)
896             {
897                 XFixesDestroyRegion (dpy, w->extents);
898                 w->extents = None;
899             }
900             if (w->borderClip)
901             {
902                 XFixesDestroyRegion (dpy, w->borderClip);
903                 w->borderClip = None;
904             }
905         }
906         if (!w->borderSize)
907             w->borderSize = border_size (dpy, w);
908         if (!w->extents)
909             w->extents = win_extents (dpy, w);
910         if (w->mode == WINDOW_SOLID)
911         {
912             int x, y, wid, hei;
913 #if HAS_NAME_WINDOW_PIXMAP
914             x = w->a.x;
915             y = w->a.y;
916             wid = w->a.width + w->a.border_width * 2;
917             hei = w->a.height + w->a.border_width * 2;
918 #else
919             x = w->a.x + w->a.border_width;
920             y = w->a.y + w->a.border_width;
921             wid = w->a.width;
922             hei = w->a.height;
923 #endif
924             XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, region);
925             set_ignore (dpy, NextRequest (dpy));
926             XFixesSubtractRegion (dpy, region, region, w->borderSize);
927             set_ignore (dpy, NextRequest (dpy));
928             XRenderComposite (dpy, PictOpSrc, w->picture, None, rootBuffer,
929                               0, 0, 0, 0, 
930                               x, y, wid, hei);
931         }
932         if (!w->borderClip)
933         {
934             w->borderClip = XFixesCreateRegion (dpy, 0, 0);
935             XFixesCopyRegion (dpy, w->borderClip, region);
936         }
937         w->prev_trans = t;
938         t = w;
939     }
940 #if DEBUG_REPAINT
941     printf ("\n");
942     fflush (stdout);
943 #endif
944     XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, region);
945     paint_root (dpy);
946     for (w = t; w; w = w->prev_trans)
947     {
948         XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, w->borderClip);
949         switch (compMode) {
950         case CompSimple:
951             break;
952         case CompServerShadows:
953             set_ignore (dpy, NextRequest (dpy));
954             if (w->opacity != OPAQUE && !w->shadowPict)
955                 w->shadowPict = solid_picture (dpy, True,
956                                                (double) w->opacity / OPAQUE * 0.3,
957                                                0, 0, 0);
958             XRenderComposite (dpy, PictOpOver, 
959                               w->shadowPict ? w->shadowPict : transBlackPicture,
960                               w->picture, rootBuffer,
961                               0, 0, 0, 0,
962                               w->a.x + w->shadow_dx,
963                               w->a.y + w->shadow_dy,
964                               w->shadow_width, w->shadow_height);
965             break;
966         case CompClientShadows:
967             if (w->shadow)
968             {
969                 XRenderComposite (dpy, PictOpOver, blackPicture, w->shadow, rootBuffer,
970                                   0, 0, 0, 0,
971                                   w->a.x + w->shadow_dx,
972                                   w->a.y + w->shadow_dy,
973                                   w->shadow_width, w->shadow_height);
974             }
975             break;
976         }
977         if (w->opacity != OPAQUE && !w->alphaPict)
978             w->alphaPict = solid_picture (dpy, False, 
979                                           (double) w->opacity / OPAQUE, 0, 0, 0);
980         if (w->mode == WINDOW_TRANS)
981         {
982             int x, y, wid, hei;
983 #if HAS_NAME_WINDOW_PIXMAP
984             x = w->a.x;
985             y = w->a.y;
986             wid = w->a.width + w->a.border_width * 2;
987             hei = w->a.height + w->a.border_width * 2;
988 #else
989             x = w->a.x + w->a.border_width;
990             y = w->a.y + w->a.border_width;
991             wid = w->a.width;
992             hei = w->a.height;
993 #endif
994             set_ignore (dpy, NextRequest (dpy));
995             XRenderComposite (dpy, PictOpOver, w->picture, w->alphaPict, rootBuffer,
996                               0, 0, 0, 0, 
997                               x, y, wid, hei);
998         }
999         else if (w->mode == WINDOW_ARGB)
1000         {
1001             int x, y, wid, hei;
1002 #if HAS_NAME_WINDOW_PIXMAP
1003             x = w->a.x;
1004             y = w->a.y;
1005             wid = w->a.width + w->a.border_width * 2;
1006             hei = w->a.height + w->a.border_width * 2;
1007 #else
1008             x = w->a.x + w->a.border_width;
1009             y = w->a.y + w->a.border_width;
1010             wid = w->a.width;
1011             hei = w->a.height;
1012 #endif
1013             set_ignore (dpy, NextRequest (dpy));
1014             XRenderComposite (dpy, PictOpOver, w->picture, w->alphaPict, rootBuffer,
1015                               0, 0, 0, 0, 
1016                               x, y, wid, hei);
1017         }
1018         XFixesDestroyRegion (dpy, w->borderClip);
1019         w->borderClip = None;
1020     }
1021     XFixesDestroyRegion (dpy, region);
1022     if (rootBuffer != rootPicture)
1023     {
1024         XFixesSetPictureClipRegion (dpy, rootBuffer, 0, 0, None);
1025         XRenderComposite (dpy, PictOpSrc, rootBuffer, None, rootPicture,
1026                           0, 0, 0, 0, 0, 0, root_width, root_height);
1027     }
1028 }
1029
1030 static void
1031 add_damage (Display *dpy, XserverRegion damage)
1032 {
1033     if (allDamage)
1034     {
1035         XFixesUnionRegion (dpy, allDamage, allDamage, damage);
1036         XFixesDestroyRegion (dpy, damage);
1037     }
1038     else
1039         allDamage = damage;
1040 }
1041
1042 static void
1043 repair_win (Display *dpy, win *w)
1044 {
1045     XserverRegion   parts;
1046
1047     if (!w->damaged)
1048     {
1049         parts = win_extents (dpy, w);
1050         set_ignore (dpy, NextRequest (dpy));
1051         XDamageSubtract (dpy, w->damage, None, None);
1052     }
1053     else
1054     {
1055         XserverRegion   o;
1056         parts = XFixesCreateRegion (dpy, 0, 0);
1057         set_ignore (dpy, NextRequest (dpy));
1058         XDamageSubtract (dpy, w->damage, None, parts);
1059         XFixesTranslateRegion (dpy, parts,
1060                                w->a.x + w->a.border_width,
1061                                w->a.y + w->a.border_width);
1062         if (compMode == CompServerShadows)
1063         {
1064             o = XFixesCreateRegion (dpy, 0, 0);
1065             XFixesCopyRegion (dpy, o, parts);
1066             XFixesTranslateRegion (dpy, o, w->shadow_dx, w->shadow_dy);
1067             XFixesUnionRegion (dpy, parts, parts, o);
1068             XFixesDestroyRegion (dpy, o);
1069         }
1070     }
1071     add_damage (dpy, parts);
1072     w->damaged = 1;
1073 }
1074
1075 static void
1076 map_win (Display *dpy, Window id, unsigned long sequence, Bool fade)
1077 {
1078     win         *w = find_win (dpy, id);
1079     Drawable    back;
1080
1081     if (!w)
1082         return;
1083
1084     w->a.map_state = IsViewable;
1085     
1086     /* This needs to be here or else we lose transparency messages */
1087     XSelectInput (dpy, id, PropertyChangeMask);
1088
1089 #if CAN_DO_USABLE
1090     w->damage_bounds.x = w->damage_bounds.y = 0;
1091     w->damage_bounds.width = w->damage_bounds.height = 0;
1092 #endif
1093     w->damaged = 0;
1094
1095     if (fade && fadeWindows)
1096         set_fade (dpy, w, 0, get_opacity_percent (dpy, w, 1.0), fade_in_step, 0, False, True, True);
1097 }
1098
1099 static void
1100 finish_unmap_win (Display *dpy, win *w)
1101 {
1102     w->damaged = 0;
1103 #if CAN_DO_USABLE
1104     w->usable = False;
1105 #endif
1106     if (w->extents != None)
1107     {
1108         add_damage (dpy, w->extents);    /* destroys region */
1109         w->extents = None;
1110     }
1111     
1112 #if HAS_NAME_WINDOW_PIXMAP
1113     if (w->pixmap)
1114     {
1115         XFreePixmap (dpy, w->pixmap);
1116         w->pixmap = None;
1117     }
1118 #endif
1119
1120     if (w->picture)
1121     {
1122         set_ignore (dpy, NextRequest (dpy));
1123         XRenderFreePicture (dpy, w->picture);
1124         w->picture = None;
1125     }
1126
1127     /* don't care about properties anymore */
1128     set_ignore (dpy, NextRequest (dpy));
1129     XSelectInput(dpy, w->id, 0);
1130
1131     if (w->borderSize)
1132     {
1133         set_ignore (dpy, NextRequest (dpy));
1134         XFixesDestroyRegion (dpy, w->borderSize);
1135         w->borderSize = None;
1136     }
1137     if (w->shadow)
1138     {
1139         XRenderFreePicture (dpy, w->shadow);
1140         w->shadow = None;
1141     }
1142     if (w->borderClip)
1143     {
1144         XFixesDestroyRegion (dpy, w->borderClip);
1145         w->borderClip = None;
1146     }
1147
1148     clipChanged = True;
1149 }
1150
1151 #if HAS_NAME_WINDOW_PIXMAP
1152 static void
1153 unmap_callback (Display *dpy, win *w, Bool gone)
1154 {
1155     finish_unmap_win (dpy, w);
1156 }
1157 #endif
1158
1159 static void
1160 unmap_win (Display *dpy, Window id, Bool fade)
1161 {
1162     win *w = find_win (dpy, id);
1163     if (!w)
1164         return;
1165     w->a.map_state = IsUnmapped;
1166 #if HAS_NAME_WINDOW_PIXMAP
1167     if (w->pixmap && fade && fadeWindows)
1168         set_fade (dpy, w, w->opacity*1.0/OPAQUE, 0.0, fade_out_step, unmap_callback, False, False, True);
1169     else
1170 #endif
1171         finish_unmap_win (dpy, w);
1172 }
1173
1174 /* Get the opacity prop from window
1175    not found: default
1176    otherwise the value
1177  */
1178 static unsigned int
1179 get_opacity_prop(Display *dpy, win *w, unsigned int def)
1180 {
1181     Atom actual;
1182     int format;
1183     unsigned long n, left;
1184
1185     unsigned char *data;
1186     int result = XGetWindowProperty(dpy, w->id, opacityAtom, 0L, 1L, False, 
1187                        XA_CARDINAL, &actual, &format, 
1188                                     &n, &left, &data);
1189     if (result == Success && data != None)
1190     {
1191         unsigned int i;
1192         memcpy (&i, data, sizeof (unsigned int));
1193         XFree( (void *) data);
1194         return i;
1195     }
1196     return def;
1197 }
1198
1199 /* Get the opacity property from the window in a percent format
1200    not found: default
1201    otherwise: the value
1202 */
1203 static double
1204 get_opacity_percent(Display *dpy, win *w, double def)
1205 {
1206     unsigned int opacity = get_opacity_prop (dpy, w, (unsigned int)(OPAQUE*def));
1207
1208     return opacity*1.0/OPAQUE;
1209 }
1210
1211 /* determine mode for window all in one place.
1212    Future might check for menu flag and other cool things
1213 */
1214
1215 static Atom
1216 get_wintype_prop(Display * dpy, Window w)
1217 {
1218     Atom actual;
1219     int format;
1220     unsigned long n, left;
1221
1222     unsigned char *data;
1223     int result = XGetWindowProperty (dpy, w, winTypeAtom, 0L, 1L, False,
1224                                      XA_ATOM, &actual, &format,
1225                                      &n, &left, &data);
1226
1227     if (result == Success && data != None)
1228     {
1229         Atom a;
1230         memcpy (&a, data, sizeof (Atom));
1231         XFree ( (void *) data);
1232         return a;
1233     }
1234     return winNormalAtom;
1235 }
1236
1237 static void
1238 determine_mode(Display *dpy, win *w)
1239 {
1240     int mode;
1241     XRenderPictFormat *format;
1242     unsigned int default_opacity;
1243
1244     /* if trans prop == -1 fall back on  previous tests*/
1245
1246     if (w->alphaPict)
1247     {
1248         XRenderFreePicture (dpy, w->alphaPict);
1249         w->alphaPict = None;
1250     }
1251     if (w->shadowPict)
1252     {
1253         XRenderFreePicture (dpy, w->shadowPict);
1254         w->shadowPict = None;
1255     }
1256
1257     if (w->a.class == InputOnly)
1258     {
1259         format = 0;
1260     }
1261     else
1262     {
1263         format = XRenderFindVisualFormat (dpy, w->a.visual);
1264     }
1265
1266     if (format && format->type == PictTypeDirect && format->direct.alphaMask)
1267     {
1268         mode = WINDOW_ARGB;
1269     }
1270     else if (w->opacity != OPAQUE)
1271     {
1272         mode = WINDOW_TRANS;
1273     }
1274     else
1275     {
1276         mode = WINDOW_SOLID;
1277     }
1278     w->mode = mode;
1279     if (w->extents)
1280     {
1281         XserverRegion damage;
1282         damage = XFixesCreateRegion (dpy, 0, 0);
1283         XFixesCopyRegion (dpy, damage, w->extents);
1284         add_damage (dpy, damage);
1285     }
1286 }
1287
1288 static Atom
1289 determine_wintype (Display *dpy, Window w)
1290 {
1291     Window       root_return, parent_return;
1292     Window      *children;
1293     unsigned int nchildren, i;
1294     Atom         type;
1295
1296     type = get_wintype_prop (dpy, w);
1297     if (type != winNormalAtom)
1298         return type;
1299
1300     if (!XQueryTree (dpy, w, &root_return, &parent_return, &children,
1301                             &nchildren))
1302     {
1303         /* XQueryTree failed. */
1304         return winNormalAtom;
1305     }
1306
1307     for (i = 0;i < nchildren;i++)
1308     {
1309         type = determine_wintype (dpy, children[i]);
1310         if (type != winNormalAtom)
1311             return type;
1312     }
1313
1314     return winNormalAtom;
1315 }
1316
1317 static void
1318 add_win (Display *dpy, Window id, Window prev)
1319 {
1320     win                         *new = malloc (sizeof (win));
1321     win                         **p;
1322     
1323     if (!new)
1324         return;
1325     if (prev)
1326     {
1327         for (p = &list; *p; p = &(*p)->next)
1328             if ((*p)->id == prev)
1329                 break;
1330     }
1331     else
1332         p = &list;
1333     new->id = id;
1334     set_ignore (dpy, NextRequest (dpy));
1335     if (!XGetWindowAttributes (dpy, id, &new->a))
1336     {
1337         free (new);
1338         return;
1339     }
1340     new->damaged = 0;
1341 #if CAN_DO_USABLE
1342     new->usable = False;
1343 #endif
1344 #if HAS_NAME_WINDOW_PIXMAP
1345     new->pixmap = None;
1346 #endif
1347     new->picture = None;
1348     if (new->a.class == InputOnly)
1349     {
1350         new->damage_sequence = 0;
1351         new->damage = None;
1352     }
1353     else
1354     {
1355         new->damage_sequence = NextRequest (dpy);
1356         new->damage = XDamageCreate (dpy, id, XDamageReportNonEmpty);
1357     }
1358     new->alphaPict = None;
1359     new->shadowPict = None;
1360     new->borderSize = None;
1361     new->extents = None;
1362     new->shadow = None;
1363     new->shadow_dx = 0;
1364     new->shadow_dy = 0;
1365     new->shadow_width = 0;
1366     new->shadow_height = 0;
1367     new->opacity = OPAQUE;
1368
1369     new->borderClip = None;
1370     new->prev_trans = 0;
1371
1372     /* moved mode setting to one place */
1373     new->opacity = get_opacity_prop (dpy, new, OPAQUE);
1374     new->windowType = determine_wintype (dpy, new->id);
1375     determine_mode (dpy, new);
1376     
1377     new->next = *p;
1378     *p = new;
1379     if (new->a.map_state == IsViewable)
1380         map_win (dpy, id, new->damage_sequence - 1, True);
1381 }
1382
1383 void
1384 restack_win (Display *dpy, win *w, Window new_above)
1385 {
1386     Window  old_above;
1387     
1388     if (w->next)
1389         old_above = w->next->id;
1390     else
1391         old_above = None;
1392     if (old_above != new_above)
1393     {
1394         win **prev;
1395
1396         /* unhook */
1397         for (prev = &list; *prev; prev = &(*prev)->next)
1398             if ((*prev) == w)
1399                 break;
1400         *prev = w->next;
1401         
1402         /* rehook */
1403         for (prev = &list; *prev; prev = &(*prev)->next)
1404         {
1405             if ((*prev)->id == new_above)
1406                 break;
1407         }
1408         w->next = *prev;
1409         *prev = w;
1410     }
1411 }
1412
1413 static void
1414 configure_win (Display *dpy, XConfigureEvent *ce)
1415 {
1416     win             *w = find_win (dpy, ce->window);
1417     Window          above;
1418     XserverRegion   damage = None;
1419     
1420     if (!w)
1421     {
1422         if (ce->window == root)
1423         {
1424             if (rootBuffer)
1425             {
1426                 XRenderFreePicture (dpy, rootBuffer);
1427                 rootBuffer = None;
1428             }
1429             root_width = ce->width;
1430             root_height = ce->height;
1431         }
1432         return;
1433     }
1434 #if CAN_DO_USABLE
1435     if (w->usable)
1436 #endif
1437     {
1438         damage = XFixesCreateRegion (dpy, 0, 0);
1439         if (w->extents != None) 
1440             XFixesCopyRegion (dpy, damage, w->extents);
1441     }
1442     w->a.x = ce->x;
1443     w->a.y = ce->y;
1444     if (w->a.width != ce->width || w->a.height != ce->height)
1445     {
1446 #if HAS_NAME_WINDOW_PIXMAP
1447         if (w->pixmap)
1448         {
1449             XFreePixmap (dpy, w->pixmap);
1450             w->pixmap = None;
1451             if (w->picture)
1452             {
1453                 XRenderFreePicture (dpy, w->picture);
1454                 w->picture = None;
1455             }
1456         }
1457 #endif
1458         if (w->shadow)
1459         {
1460             XRenderFreePicture (dpy, w->shadow);
1461             w->shadow = None;
1462         }
1463     }
1464     w->a.width = ce->width;
1465     w->a.height = ce->height;
1466     w->a.border_width = ce->border_width;
1467     w->a.override_redirect = ce->override_redirect;
1468     restack_win (dpy, w, ce->above);
1469     if (damage)
1470     {
1471         XserverRegion   extents = win_extents (dpy, w);
1472         XFixesUnionRegion (dpy, damage, damage, extents);
1473         XFixesDestroyRegion (dpy, extents);
1474         add_damage (dpy, damage);
1475     }
1476     clipChanged = True;
1477 }
1478
1479 static void
1480 circulate_win (Display *dpy, XCirculateEvent *ce)
1481 {
1482     win     *w = find_win (dpy, ce->window);
1483     Window  new_above;
1484
1485     if (ce->place == PlaceOnTop)
1486         new_above = list->id;
1487     else
1488         new_above = None;
1489     restack_win (dpy, w, new_above);
1490     clipChanged = True;
1491 }
1492
1493 static void
1494 finish_destroy_win (Display *dpy, Window id, Bool gone)
1495 {
1496     win **prev, *w;
1497
1498     for (prev = &list; (w = *prev); prev = &w->next)
1499         if (w->id == id)
1500         {
1501             if (!gone)
1502                 finish_unmap_win (dpy, w);
1503             *prev = w->next;
1504             if (w->picture)
1505             {
1506                 set_ignore (dpy, NextRequest (dpy));
1507                 XRenderFreePicture (dpy, w->picture);
1508                 w->picture = None;
1509             }
1510             if (w->alphaPict)
1511             {
1512                 XRenderFreePicture (dpy, w->alphaPict);
1513                 w->alphaPict = None;
1514             }
1515             if (w->shadowPict)
1516             {
1517                 XRenderFreePicture (dpy, w->shadowPict);
1518                 w->shadowPict = None;
1519             }
1520             if (w->damage != None)
1521             {
1522                 set_ignore (dpy, NextRequest (dpy));
1523                 XDamageDestroy (dpy, w->damage);
1524                 w->damage = None;
1525             }
1526             cleanup_fade (dpy, w);
1527             free (w);
1528             break;
1529         }
1530 }
1531
1532 #if HAS_NAME_WINDOW_PIXMAP
1533 static void
1534 destroy_callback (Display *dpy, win *w, Bool gone)
1535 {
1536     finish_destroy_win (dpy, w->id, gone);
1537 }
1538 #endif
1539
1540 static void
1541 destroy_win (Display *dpy, Window id, Bool gone, Bool fade)
1542 {
1543     win *w = find_win (dpy, id);
1544 #if HAS_NAME_WINDOW_PIXMAP
1545     if (w && w->pixmap && fade && fadeWindows)
1546         set_fade (dpy, w, w->opacity*1.0/OPAQUE, 0.0, fade_out_step, destroy_callback, gone, False, True);
1547     else
1548 #endif
1549     {
1550         finish_destroy_win (dpy, id, gone);
1551     }
1552 }
1553
1554 /*
1555 static void
1556 dump_win (win *w)
1557 {
1558     printf ("\t%08lx: %d x %d + %d + %d (%d)\n", w->id,
1559             w->a.width, w->a.height, w->a.x, w->a.y, w->a.border_width);
1560 }
1561
1562
1563 static void
1564 dump_wins (void)
1565 {
1566     win *w;
1567
1568     printf ("windows:\n");
1569     for (w = list; w; w = w->next)
1570         dump_win (w);
1571 }
1572 */
1573
1574 static void
1575 damage_win (Display *dpy, XDamageNotifyEvent *de)
1576 {
1577     win *w = find_win (dpy, de->drawable);
1578
1579     if (!w)
1580         return;
1581 #if CAN_DO_USABLE
1582     if (!w->usable)
1583     {
1584         if (w->damage_bounds.width == 0 || w->damage_bounds.height == 0)
1585         {
1586             w->damage_bounds = de->area;
1587         }
1588         else
1589         {
1590             if (de->area.x < w->damage_bounds.x)
1591             {
1592                 w->damage_bounds.width += (w->damage_bounds.x - de->area.x);
1593                 w->damage_bounds.x = de->area.x;
1594             }
1595             if (de->area.y < w->damage_bounds.y)
1596             {
1597                 w->damage_bounds.height += (w->damage_bounds.y - de->area.y);
1598                 w->damage_bounds.y = de->area.y;
1599             }
1600             if (de->area.x + de->area.width > w->damage_bounds.x + w->damage_bounds.width)
1601                 w->damage_bounds.width = de->area.x + de->area.width - w->damage_bounds.x;
1602             if (de->area.y + de->area.height > w->damage_bounds.y + w->damage_bounds.height)
1603                 w->damage_bounds.height = de->area.y + de->area.height - w->damage_bounds.y;
1604         }
1605 #if 0
1606         printf ("unusable damage %d, %d: %d x %d bounds %d, %d: %d x %d\n",
1607                 de->area.x,
1608                 de->area.y,
1609                 de->area.width,
1610                 de->area.height,
1611                 w->damage_bounds.x,
1612                 w->damage_bounds.y,
1613                 w->damage_bounds.width,
1614                 w->damage_bounds.height);
1615 #endif
1616         if (w->damage_bounds.x <= 0 && 
1617             w->damage_bounds.y <= 0 &&
1618             w->a.width <= w->damage_bounds.x + w->damage_bounds.width &&
1619             w->a.height <= w->damage_bounds.y + w->damage_bounds.height)
1620         {
1621             clipChanged = True;
1622             if (fadeWindows)
1623                 set_fade (dpy, w, 0, get_opacity_percent (dpy, w, 1.0), fade_in_step, 0, False, True, True);
1624             w->usable = True;
1625         }
1626     }
1627     if (w->usable)
1628 #endif
1629         repair_win (dpy, w);
1630 }
1631
1632 static int
1633 error (Display *dpy, XErrorEvent *ev)
1634 {
1635     int     o;
1636     char    *name = 0;
1637     
1638     if (should_ignore (dpy, ev->serial))
1639         return 0;
1640     
1641     if (ev->request_code == composite_opcode &&
1642         ev->minor_code == X_CompositeRedirectSubwindows)
1643     {
1644         fprintf (stderr, "Another composite manager is already running\n");
1645         exit (1);
1646     }
1647     
1648     o = ev->error_code - xfixes_error;
1649     switch (o) {
1650     case BadRegion: name = "BadRegion"; break;
1651     default: break;
1652     }
1653     o = ev->error_code - damage_error;
1654     switch (o) {
1655     case BadDamage: name = "BadDamage"; break;
1656     default: break;
1657     }
1658     o = ev->error_code - render_error;
1659     switch (o) {
1660     case BadPictFormat: name ="BadPictFormat"; break;
1661     case BadPicture: name ="BadPicture"; break;
1662     case BadPictOp: name ="BadPictOp"; break;
1663     case BadGlyphSet: name ="BadGlyphSet"; break;
1664     case BadGlyph: name ="BadGlyph"; break;
1665     default: break;
1666     }
1667         
1668     printf ("error %d request %d minor %d serial %d\n",
1669             ev->error_code, ev->request_code, ev->minor_code, ev->serial);
1670
1671 /*    abort ();     this is just annoying to most people */
1672     return 0;
1673 }
1674
1675 static void
1676 expose_root (Display *dpy, Window root, XRectangle *rects, int nrects)
1677 {
1678     XserverRegion  region = XFixesCreateRegion (dpy, rects, nrects);
1679     
1680     add_damage (dpy, region);
1681 }
1682
1683
1684 static int
1685 ev_serial (XEvent *ev)
1686 {
1687     if (ev->type & 0x7f != KeymapNotify)
1688         return ev->xany.serial;
1689     return NextRequest (ev->xany.display);
1690 }
1691
1692
1693 static char *
1694 ev_name (XEvent *ev)
1695 {
1696     static char buf[128];
1697     switch (ev->type & 0x7f) {
1698     case Expose:
1699         return "Expose";
1700     case MapNotify:
1701         return "Map";
1702     case UnmapNotify:
1703         return "Unmap";
1704     case ReparentNotify:
1705         return "Reparent";
1706     case CirculateNotify:
1707         return "Circulate";
1708     default:
1709         if (ev->type == damage_event + XDamageNotify)
1710             return "Damage";
1711         sprintf (buf, "Event %d", ev->type);
1712         return buf;
1713     }
1714 }
1715
1716 static Window
1717 ev_window (XEvent *ev)
1718 {
1719     switch (ev->type) {
1720     case Expose:
1721         return ev->xexpose.window;
1722     case MapNotify:
1723         return ev->xmap.window;
1724     case UnmapNotify:
1725         return ev->xunmap.window;
1726     case ReparentNotify:
1727         return ev->xreparent.window;
1728     case CirculateNotify:
1729         return ev->xcirculate.window;
1730     default:
1731         if (ev->type == damage_event + XDamageNotify)
1732             return ((XDamageNotifyEvent *) ev)->drawable;
1733         return 0;
1734     }
1735 }
1736
1737 void
1738 usage (char *program)
1739 {
1740     fprintf (stderr, "usage: %s [-d display] [-n] [-s] [-c] [-a] [-f] [-F] [-C]\n", program);
1741     exit (1);
1742 }
1743
1744 int
1745 main (int argc, char **argv)
1746 {
1747     XEvent          ev;
1748     Window          root_return, parent_return;
1749     Window          *children;
1750     Pixmap          transPixmap;
1751     Pixmap          blackPixmap;
1752     unsigned int    nchildren;
1753     int             i;
1754     XRenderPictureAttributes    pa;
1755     XRenderColor                c;
1756     XRectangle      *expose_rects = 0;
1757     int             size_expose = 0;
1758     int             n_expose = 0;
1759     struct pollfd   ufd;
1760     int             n;
1761     int             last_update;
1762     int             now;
1763     int             p;
1764     int             composite_major, composite_minor;
1765     char            *display = 0;
1766     int             o;
1767
1768     while ((o = getopt (argc, argv, "d:scnfFCaS")) != -1)
1769     {
1770         switch (o) {
1771         case 'd':
1772             display = optarg;
1773             break;
1774         case 's':
1775             compMode = CompServerShadows;
1776             break;
1777         case 'c':
1778             compMode = CompClientShadows;
1779             break;
1780         case 'C':
1781             excludeDockShadows = True;
1782             break;
1783         case 'n':
1784             compMode = CompSimple;
1785             break;
1786         case 'f':
1787             fadeWindows = True;
1788             break;
1789         case 'F':
1790             fadeTrans = True;
1791             break;
1792         case 'a':
1793             autoRedirect = True;
1794             break;
1795         case 'S':
1796             synchronize = True;
1797             break;
1798         default:
1799             usage (argv[0]);
1800             break;
1801         }
1802     }
1803     
1804     dpy = XOpenDisplay (display);
1805     if (!dpy)
1806     {
1807         fprintf (stderr, "Can't open display\n");
1808         exit (1);
1809     }
1810     XSetErrorHandler (error);
1811     if (synchronize)
1812         XSynchronize (dpy, 1);
1813     scr = DefaultScreen (dpy);
1814     root = RootWindow (dpy, scr);
1815
1816     if (!XRenderQueryExtension (dpy, &render_event, &render_error))
1817     {
1818         fprintf (stderr, "No render extension\n");
1819         exit (1);
1820     }
1821     if (!XQueryExtension (dpy, COMPOSITE_NAME, &composite_opcode,
1822                           &composite_event, &composite_error))
1823     {
1824         fprintf (stderr, "No composite extension\n");
1825         exit (1);
1826     }
1827     XCompositeQueryVersion (dpy, &composite_major, &composite_minor);
1828 #if HAS_NAME_WINDOW_PIXMAP
1829     if (composite_major > 0 || composite_minor >= 2)
1830         hasNamePixmap = True;
1831 #endif
1832
1833     if (!XDamageQueryExtension (dpy, &damage_event, &damage_error))
1834     {
1835         fprintf (stderr, "No damage extension\n");
1836         exit (1);
1837     }
1838     if (!XFixesQueryExtension (dpy, &xfixes_event, &xfixes_error))
1839     {
1840         fprintf (stderr, "No XFixes extension\n");
1841         exit (1);
1842     }
1843     /* get atoms */
1844     opacityAtom = XInternAtom (dpy, OPACITY_PROP, False);
1845     winTypeAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE", False);
1846     winDesktopAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DESKTOP", False);
1847     winDockAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DOCK", False);
1848     winToolbarAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_TOOLBAR", False);
1849     winMenuAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_MENU", False);
1850     winUtilAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_UTILITY", False);
1851     winSplashAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_SPLASH", False);
1852     winDialogAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_DIALOG", False);
1853     winNormalAtom = XInternAtom (dpy, "_NET_WM_WINDOW_TYPE_NORMAL", False);
1854
1855     pa.subwindow_mode = IncludeInferiors;
1856
1857     if (compMode == CompClientShadows)
1858         gaussianMap = make_gaussian_map(dpy, shadowRadius);
1859
1860     root_width = DisplayWidth (dpy, scr);
1861     root_height = DisplayHeight (dpy, scr);
1862
1863     rootPicture = XRenderCreatePicture (dpy, root, 
1864                                         XRenderFindVisualFormat (dpy,
1865                                                                  DefaultVisual (dpy, scr)),
1866                                         CPSubwindowMode,
1867                                         &pa);
1868     blackPicture = solid_picture (dpy, True, 1, 0, 0, 0);
1869     if (compMode == CompServerShadows)
1870         transBlackPicture = solid_picture (dpy, True, 0.3, 0, 0, 0);
1871     allDamage = None;
1872     clipChanged = True;
1873     XGrabServer (dpy);
1874     if (autoRedirect)
1875         XCompositeRedirectSubwindows (dpy, root, CompositeRedirectAutomatic);
1876     else
1877     {
1878         XCompositeRedirectSubwindows (dpy, root, CompositeRedirectManual);
1879         XSelectInput (dpy, root, 
1880                       SubstructureNotifyMask|
1881                       ExposureMask|
1882                       StructureNotifyMask|
1883                       PropertyChangeMask);
1884         XQueryTree (dpy, root, &root_return, &parent_return, &children, &nchildren);
1885         for (i = 0; i < nchildren; i++)
1886             add_win (dpy, children[i], i ? children[i-1] : None);
1887         XFree (children);
1888     }
1889     XUngrabServer (dpy);
1890     ufd.fd = ConnectionNumber (dpy);
1891     ufd.events = POLLIN;
1892     if (!autoRedirect)
1893         paint_all (dpy, None);
1894     for (;;)
1895     {
1896         /*      dump_wins (); */
1897         do {
1898             if (autoRedirect)
1899                 XFlush (dpy);
1900             if (!QLength (dpy))
1901             {
1902                  if (poll (&ufd, 1, fade_timeout()) == 0)
1903                  {
1904                     run_fades (dpy);
1905                     break;
1906                  }
1907             }
1908
1909             XNextEvent (dpy, &ev);
1910             if (ev.type & 0x7f != KeymapNotify)
1911                 discard_ignore (dpy, ev.xany.serial);
1912 #if DEBUG_EVENTS
1913             printf ("event %10.10s serial 0x%08x window 0x%08x\n",
1914                     ev_name(&ev), ev_serial (&ev), ev_window (&ev));
1915 #endif
1916             if (!autoRedirect) switch (ev.type) {
1917             case CreateNotify:
1918                 add_win (dpy, ev.xcreatewindow.window, 0);
1919                 break;
1920             case ConfigureNotify:
1921                 configure_win (dpy, &ev.xconfigure);
1922                 break;
1923             case DestroyNotify:
1924                 destroy_win (dpy, ev.xdestroywindow.window, True, True);
1925                 break;
1926             case MapNotify:
1927                 map_win (dpy, ev.xmap.window, ev.xmap.serial, True);
1928                 break;
1929             case UnmapNotify:
1930                 unmap_win (dpy, ev.xunmap.window, True);
1931                 break;
1932             case ReparentNotify:
1933                 if (ev.xreparent.parent == root)
1934                     add_win (dpy, ev.xreparent.window, 0);
1935                 else
1936                     destroy_win (dpy, ev.xreparent.window, False, True);
1937                 break;
1938             case CirculateNotify:
1939                 circulate_win (dpy, &ev.xcirculate);
1940                 break;
1941             case Expose:
1942                 if (ev.xexpose.window == root)
1943                 {
1944                     int more = ev.xexpose.count + 1;
1945                     if (n_expose == size_expose)
1946                     {
1947                         if (expose_rects)
1948                         {
1949                             expose_rects = realloc (expose_rects, 
1950                                                     (size_expose + more) * 
1951                                                     sizeof (XRectangle));
1952                             size_expose += more;
1953                         }
1954                         else
1955                         {
1956                             expose_rects = malloc (more * sizeof (XRectangle));
1957                             size_expose = more;
1958                         }
1959                     }
1960                     expose_rects[n_expose].x = ev.xexpose.x;
1961                     expose_rects[n_expose].y = ev.xexpose.y;
1962                     expose_rects[n_expose].width = ev.xexpose.width;
1963                     expose_rects[n_expose].height = ev.xexpose.height;
1964                     n_expose++;
1965                     if (ev.xexpose.count == 0)
1966                     {
1967                         expose_root (dpy, root, expose_rects, n_expose);
1968                         n_expose = 0;
1969                     }
1970                 }
1971                 break;
1972             case PropertyNotify:
1973                 for (p = 0; backgroundProps[p]; p++)
1974                 {
1975                     if (ev.xproperty.atom == XInternAtom (dpy, backgroundProps[p], False))
1976                     {
1977                         if (rootTile)
1978                         {
1979                             XClearArea (dpy, root, 0, 0, 0, 0, True);
1980                             XRenderFreePicture (dpy, rootTile);
1981                             rootTile = None;
1982                             break;
1983                         }
1984                     }
1985                 }
1986                 /* check if Trans property was changed */
1987                 if (ev.xproperty.atom == opacityAtom)
1988                 {
1989                     /* reset mode and redraw window */
1990                     win * w = find_win(dpy, ev.xproperty.window);
1991                     if (w)
1992                     {
1993                         if (fadeTrans)
1994                             set_fade (dpy, w, w->opacity*1.0/OPAQUE, get_opacity_percent (dpy, w, 1.0),
1995                                       fade_out_step, 0, False, True, False);
1996                         else
1997                         {
1998                         w->opacity = get_opacity_prop(dpy, w, OPAQUE);
1999                         determine_mode(dpy, w);
2000                             if (w->shadow)
2001                             {
2002                                 XRenderFreePicture (dpy, w->shadow);
2003                                 w->shadow = None;
2004                                 w->extents = win_extents (dpy, w);
2005                             }
2006                         }
2007                     }
2008                 }
2009                 break;
2010             default:
2011                 if (ev.type == damage_event + XDamageNotify)
2012                     damage_win (dpy, (XDamageNotifyEvent *) &ev);
2013                 break;
2014             }
2015         } while (QLength (dpy));
2016         if (allDamage && !autoRedirect)
2017         {
2018             static int  paint;
2019             paint_all (dpy, allDamage);
2020             paint++;
2021             XSync (dpy, False);
2022             allDamage = None;
2023             clipChanged = False;
2024         }
2025     }
2026 }