|
|
1.1 root 1: /* $Header: Util.c,v 1.1 87/09/11 07:59:01 toddb Exp $ */
2: #ifndef lint
3: static char *sccsid = "@(#)Util.c 1.1 4/01/87";
4: #endif lint
5:
6: /*
7: * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
8: *
9: * All Rights Reserved
10: *
11: * Permission to use, copy, modify, and distribute this software and its
12: * documentation for any purpose and without fee is hereby granted,
13: * provided that the above copyright notice appear in all copies and that
14: * both that copyright notice and this permission notice appear in
15: * supporting documentation, and that the name of Digital Equipment
16: * Corporation not be used in advertising or publicity pertaining to
17: * distribution of the software without specific, written prior permission.
18: *
19: *
20: * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
21: * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
22: * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
23: * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
24: * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
25: * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
26: * SOFTWARE.
27: */
28:
29:
30: /* Util.c -- Utility routines useful to widget writers. */
31:
32: #include "Xlib.h"
33: #include "Intrinsic.h"
34:
35: Window XtCreateWindow(dpy, parent, x, y, width, height,
36: borderWidth, border, background, bitgravity)
37: Display *dpy;
38: Window parent;
39: Position x, y;
40: Dimension width, height, borderWidth;
41: Pixel border;
42: Pixel background;
43: int bitgravity;
44: {
45: XSetWindowAttributes values;
46: values.border_pixel = border;
47: values.background_pixel = background;
48: values.bit_gravity = bitgravity;
49: return XCreateWindow(dpy, parent, x, y, width, height, borderWidth, 0,
50: (unsigned int) CopyFromParent,
51: (Visual *) CopyFromParent,
52: CWBackPixel | CWBorderPixel | CWBitGravity, &values);
53: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.