]>
Dogcows Code - chaz/openbox/blob - tests/modal3.c
1 /* -*- indent-tabs-mode: nil; tab-width: 4; c-basic-offset: 4; -*-
3 modal3.c for the Openbox window manager
4 Copyright (c) 2003-2007 Dana Jansens
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 See the COPYING file for a copy of the GNU General Public License.
21 #include <X11/Xutil.h>
22 #include <X11/Xatom.h>
29 int x
=10,y
=10,h
=400,w
=400;
32 display
= XOpenDisplay(NULL
);
34 if (display
== NULL
) {
35 fprintf(stderr
, "couldn't connect to X server :0\n");
39 state
= XInternAtom(display
, "_NET_WM_STATE", True
);
40 modal
= XInternAtom(display
, "_NET_WM_STATE_MODAL", True
);
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);
49 XSetWindowBackground(display
,parent
,WhitePixel(display
,0));
50 XSetWindowBackground(display
,child
,BlackPixel(display
,0));
52 XSetTransientForHint(display
, child
, parent
);
54 XMapWindow(display
, parent
);
55 XMapWindow(display
, child
);
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
);
69 ce
.xclient
.data
.l
[0] = 0;
70 XSendEvent(display
, RootWindow(display
, DefaultScreen(display
)),
71 False
, SubstructureNotifyMask
| SubstructureRedirectMask
, &ce
);
74 XNextEvent(display
, &report
);
This page took 0.037828 seconds and 4 git commands to generate.