]> Dogcows Code - chaz/openbox/blob - tests/modal3.c
add a test to set a mouse cursor on an InputOnly subwindow
[chaz/openbox] / tests / modal3.c
1 /* -*- indent-tabs-mode: nil; tab-width: 4; c-basic-offset: 4; -*-
2
3 modal3.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 ce.xclient.data.l[0] = 0;
70 XSendEvent(display, RootWindow(display, DefaultScreen(display)),
71 False, SubstructureNotifyMask | SubstructureRedirectMask, &ce);
72
73 while (1) {
74 XNextEvent(display, &report);
75 }
76
77 return 1;
78 }
This page took 0.039441 seconds and 4 git commands to generate.