Dogcows Code - chaz/openbox/blob - tests/modal2.c

   1 /* -*- indent-tabs-mode: nil; tab-width: 4; c-basic-offset: 4; -*-
   2
   3    modal2.c for the Openbox window manager
   4    Copyright (c) 2003-2007   Dana Jansens
   5
   6    This program is free software; you can redistribute it and/or modify
   7    it under the terms of the GNU General Public License as published by
   8    the Free Software Foundation; either version 2 of the License, or
   9    (at your option) any later version.
  10
  11    This program is distributed in the hope that it will be useful,
  12    but WITHOUT ANY WARRANTY; without even the implied warranty of
  13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14    GNU General Public License for more details.
  15
  16    See the COPYING file for a copy of the GNU General Public License.
  17 */
  18
  19 #include <stdio.h>
  20 #include <X11/Xlib.h>
  21 #include <X11/Xutil.h>
  22 #include <X11/Xatom.h>
  23
  24 int main () {
  25   Display   *display;
  26   Window     parent, child;
  27   XEvent     report;
  28   Atom       state, modal;
  29   int        x=10,y=10,h=400,w=400;
  30   XEvent ce;
  31
  32   display = XOpenDisplay(NULL);
  33
  34   if (display == NULL) {
  35     fprintf(stderr, "couldn't connect to X server :0\n");
  36     return 0;
  37   }
  38
  39   state = XInternAtom(display, "_NET_WM_STATE", True);
  40   modal = XInternAtom(display, "_NET_WM_STATE_MODAL", True);
  41
  42   parent = XCreateWindow(display, RootWindow(display, 0),
  43                          x, y, w, h, 10, CopyFromParent, CopyFromParent,
  44                          CopyFromParent, 0, 0);
  45   child = XCreateWindow(display, RootWindow(display, 0),
  46                         x, y, w/2, h/2, 10, CopyFromParent, CopyFromParent,
  47                         CopyFromParent, 0, 0);
  48
  49   XSetWindowBackground(display,parent,WhitePixel(display,0));
  50   XSetWindowBackground(display,child,BlackPixel(display,0));
  51
  52   XSetTransientForHint(display, child, parent);
  53
  54   XMapWindow(display, parent);
  55   XMapWindow(display, child);
  56   XFlush(display);
  57
  58   ce.xclient.type = ClientMessage;
  59   ce.xclient.message_type = state;
  60   ce.xclient.display = display;
  61   ce.xclient.window = child;
  62   ce.xclient.format = 32;
  63   ce.xclient.data.l[0] = 1;
  64   ce.xclient.data.l[1] = modal;
  65   ce.xclient.data.l[2] = 0;
  66   XSendEvent(display, RootWindow(display, DefaultScreen(display)),
  67              False, SubstructureNotifyMask | SubstructureRedirectMask, &ce);
  68
  69   while (1) {
  70     XNextEvent(display, &report);
  71   }
  72
  73   return 1;
  74 }