![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to XCreate.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / Xlib|
Return to XCreate.c CVS log | Up to [CSRG BSD Unix] / 43BSDTahoe / new / X / Xlib |
1.1 root 1: #include <X/mit-copyright.h>
2:
3: /* $Header: XCreate.c,v 10.10 86/08/11 12:55:45 wesommer Rel $ */
4: /* Copyright 1985, Massachusetts Institute of Technology */
5: /* stolen from CLU routine x_cons, redone by J. Gettys */
6:
7: #include "XlibInternal.h"
8: #include <stdio.h>
9: #define TRUE 1
10: #define FALSE 0
11: #define max(a,b) ( (a) > (b) ? (a) : (b) )
12: #define min(a,b) ( (a) > (b) ? (b) : (a) )
13: #define abs(a) ( (a) > 0 ? (a) : -(a))
14:
15: #define DCOUNT 2
16: #define VCOUNT 1 + (4 * 2 * DCOUNT)
17: #define FCOUNT 1 + 4
18:
19: #define CURSOR_LL 0
20: #include "../cursors/ll_angle.cursor"
21: #include "../cursors/ll_angle_mask.cursor"
22: #define CURSOR_LR 1
23: #include "../cursors/lr_angle.cursor"
24: #include "../cursors/lr_angle_mask.cursor"
25: #define CURSOR_UL 2
26: #include "../cursors/ul_angle.cursor"
27: #include "../cursors/ul_angle_mask.cursor"
28: #define CURSOR_UR 3
29: #include "../cursors/ur_angle.cursor"
30: #include "../cursors/ur_angle_mask.cursor"
31:
32:
33: Window XCreate(prompt, name, geometry, def, frame, minwidth, minheight)
34: char *prompt, *name;
35: register OpaqueFrame *frame;
36: int minwidth, minheight;
37: char *geometry, *def;
38: {
39: char *fn = "8x13"; /* default default font */
40: FontInfo *pfninfo; /* font info on prompt */
41: Window pop; /* pop up window */
42: char *opt;
43: int pfore, pback; /* prompt window colors */
44: int bpix; /* border color */
45: int mfore, mback; /* mouse colors */
46: int pbw = 1; /* prompt window border width */
47: int ibw = 1; /* internal border width */
48: int freeze = 0; /* should we freeze the server */
49: Color cdef; /* color structure for lookup */
50: Cursor ur,ul,lr,ll; /* cursors for rubber banding */
51: int events; /* event mask */
52: int popw, poph; /* prompt window height and width */
53: int count = VCOUNT; /* vertex count */
54: Pixmap save = 0; /* saved pixmap */
55: Pixmap backmap, bdrmap; /* background and border pixmaps */
56: Vertex box[VCOUNT]; /* vertex list for box */
57: int x1, y1; /* location of mouse */
58: int x2, y2; /* other corner of box */
59: Window subw; /* subwindow it is in */
60: int mindim; /* minimum dimension */
61: int width, height; /* width and height of box */
62: int left, stop;
63: int mouse;
64: int force; /* force default window to track */
65: int xa, ya, xb, yb;
66: int doit;
67: XButtonEvent event; /* someplace to put the event */
68: register int i; /* ye olde indexe variabel */
69: int fx, fy, fw, fh; /* frame from parse... */
70: int pr; /* parse geometry result */
71: int change_cursor = FALSE;
72: int current_cursor = CURSOR_UL;
73:
74: int HereButton = LeftButton; /* make window at locator */
75: int ResizeButton = MiddleButton;/* make window of specified size */
76: int DefaultButton = RightButton;/* make window at default location */
77:
78: pr = XGeometry (geometry, def, frame->bdrwidth, 1, 1, 0, 0,
79: &fx, &fy, &fw, &fh);
80: /*
81: * none of this nonsense would be necessary if I hadn't blown
82: * the frame structure definition.
83: */
84: frame->x = fx;
85: frame->y = fy;
86: frame->width = fw;
87: frame->height = fh;
88: if (geometry != NULL) {
89: /*
90: * if x or y offsets are specified, then we should autoplace
91: */
92: if ( (pr & XValue ) || (pr & YValue) ) {
93: if (frame->width < minwidth) frame->width = minwidth;
94: if (frame->height < minheight) frame->height = minheight;
95: goto makeit;
96: }
97: }
98:
99: if ((opt = XGetDefault(name, "MakeWindow.BodyFont")) != NULL) fn = opt;
100:
101: if ((pfninfo = XOpenFont(fn)) == NULL) {
102: fprintf(stderr, "Can't open font %s!\n", fn);
103: return(0);
104: }
105:
106: pfore = mback = WhitePixel;
107: pback = bpix = mfore = BlackPixel;
108: if ((opt = XGetDefault(name, "MakeWindow.ReverseVideo")) != NULL)
109: if (strcmp (opt, "on") == 0) {
110: pfore = BlackPixel;
111: pback = WhitePixel;
112: }
113:
114: if ((opt = XGetDefault(name, "MakeWindow.BorderWidth")) != NULL)
115: pbw = atoi (opt);
116:
117: if ((opt = XGetDefault(name, "MakeWindow.InternalBorder")) != NULL)
118: ibw = atoi (opt);
119:
120: if ((opt = XGetDefault(name, "MakeWindow.Freeze")) != NULL)
121: if (strcmp (opt, "on") == 0) freeze = 1;
122:
123: if (DisplayPlanes() > 2) { /* on color display, do color stuff */
124:
125: if ((opt = XGetDefault(name,"MakeWindow.Foreground")) != NULL)
126: if (XParseColor(opt, &cdef) && XGetHardwareColor(&cdef))
127: pfore = cdef.pixel;
128:
129: if ((opt = XGetDefault(name,"MakeWindow.Background")) != NULL)
130: if (XParseColor(opt, &cdef) && XGetHardwareColor(&cdef))
131: pback = cdef.pixel;
132:
133: if ((opt = XGetDefault(name,"MakeWindow.Border")) != NULL)
134: if (XParseColor(opt, &cdef) && XGetHardwareColor(&cdef))
135: bpix = cdef.pixel;
136:
137: if ((opt = XGetDefault(name,"MakeWindow.Mouse")) != NULL)
138: if (XParseColor(opt, &cdef) && XGetHardwareColor(&cdef))
139: mfore = cdef.pixel;
140:
141: if ((opt = XGetDefault(name,"MakeWindow.MouseMask")) != NULL)
142: if (XParseColor(opt, &cdef) && XGetHardwareColor(&cdef))
143: mback = cdef.pixel;
144:
145: }
146:
147: if ((opt = XGetDefault(name, "MakeWindow.Here")) != NULL) {
148: switch (*opt) {
149: case 'L':
150: case 'l':
151: HereButton = LeftButton;
152: break;
153:
154: case 'M':
155: case 'm':
156: HereButton = MiddleButton;
157: break;
158:
159: case 'R':
160: case 'r':
161: HereButton = RightButton;
162: break;
163: /*
164: * Should have a default case, to check for invalid
165: * specification, but what should be done in that case?
166: */
167: }
168: }
169:
170: if ((opt = XGetDefault(name, "MakeWindow.Resize")) != NULL) {
171: switch (*opt) {
172: case 'L':
173: case 'l':
174: ResizeButton = LeftButton;
175: break;
176:
177: case 'M':
178: case 'm':
179: ResizeButton = MiddleButton;
180: break;
181:
182: case 'R':
183: case 'r':
184: ResizeButton = RightButton;
185: break;
186: /*
187: * Should have a default case, to check for invalid
188: * specification, but what should be done in that case?
189: */
190: }
191: }
192:
193: if ((opt = XGetDefault(name, "MakeWindow.Default")) != NULL) {
194: switch (*opt) {
195: case 'L':
196: case 'l':
197: DefaultButton = LeftButton;
198: break;
199:
200: case 'M':
201: case 'm':
202: DefaultButton = MiddleButton;
203: break;
204:
205: case 'R':
206: case 'r':
207: DefaultButton = RightButton;
208: break;
209: /*
210: * Should have a default case, to check for invalid
211: * specification, but what should be done in that case?
212: */
213: }
214: }
215:
216: /*
217: * Should verify that HereButton != ResizeButton != DefaultButton,
218: * but what should be done if that's false?
219: */
220:
221: ur = XCreateCursor (ur_angle_width, ur_angle_height, ur_angle_bits,
222: ur_angle_mask_bits, ur_angle_x_hot, ur_angle_y_hot,
223: mfore, mback, GXcopy);
224: ul = XCreateCursor (ul_angle_width, ul_angle_height, ul_angle_bits,
225: ul_angle_mask_bits, ul_angle_x_hot, ul_angle_y_hot,
226: mfore, mback, GXcopy);
227: ll = XCreateCursor (ll_angle_width, ll_angle_height, ll_angle_bits,
228: ll_angle_mask_bits, ll_angle_x_hot, ll_angle_y_hot,
229: mfore, mback, GXcopy);
230: lr = XCreateCursor (lr_angle_width, lr_angle_height, lr_angle_bits,
231: lr_angle_mask_bits, lr_angle_x_hot, lr_angle_y_hot,
232: mfore, mback, GXcopy);
233:
234: events = ButtonPressed | ButtonReleased;
235:
236: if (freeze) events |= MouseMoved;
237:
238: /*
239: * go get the mouse as soon as you can
240: */
241:
242: while (1) {
243: if (XGrabMouse ( RootWindow, ul, events ) != 0) break;
244: sleep (1);
245: }
246: popw = XStringWidth (prompt, pfninfo, 0, 0) + 2 * ibw;
247: poph = pfninfo->height + 2 * ibw;
248:
249: if (freeze) {
250: XGrabServer();
251: count = FCOUNT;
252: save = XPixmapSave (RootWindow, 0, 0,
253: popw + 2 * pbw, poph +2 * pbw);
254: }
255:
256: backmap = XMakeTile (pback);
257: bdrmap = XMakeTile (bpix);
258:
259: pop = XCreateWindow (RootWindow,
260: 0, 0, popw, poph, pbw, bdrmap, backmap);
261: XMapWindow( pop);
262: XText (pop, ibw, ibw, prompt, strlen(prompt),
263: pfninfo->id, pfore, pback);
264:
265: XQueryMouse (RootWindow, &x1, &y1, &subw);
266:
267: mindim = 2 * frame->bdrwidth - 1;
268: minwidth = minwidth + mindim;
269: minheight = minheight + mindim;
270:
271: x2 = x1 + minwidth;
272: y2 = y1 + minheight;
273:
274: width = minwidth;
275: height = minheight;
276:
277: left = TRUE;
278: force = FALSE;
279: stop = FALSE;
280: mouse = TRUE;
281:
282: xa = ya = xb = yb = -1;
283:
284: doit = TRUE;
285:
286: while (stop == FALSE) {
287: if ( (xb != max (x1, x2)) || (yb != max(y1, y2))
288: ||(xa != min (x1, x2)) || (ya != min(y1, y2))) {
289: if (freeze && (doit == FALSE)) {
290: XDraw (RootWindow, box, count, 1, 1, 0, GXinvert, 1);
291: }
292: xa = min (x1, x2);
293: ya = min (y1, y2);
294: xb = max (x1, x2);
295: yb = max (y1, y2);
296: for ( i = 0; i < count; i += 4) {
297: box[i].x = xa; box[i].y = ya; box[i].flags = 0;
298: if (i+1 == count) break;
299: box[i+1].x = xb; box[i+1].y = ya, box[i+1].flags = 0;
300: box[i+2].x = xb; box[i+2].y = yb, box[i+2].flags = 0;
301: box[i+3].x = xa; box[i+3].y = yb, box[i+3].flags = 0;
302: }
303: doit = TRUE;
304: }
305: if (doit) {
306: XDraw(RootWindow, box, count, 1, 1, 0, GXinvert, 1);
307: doit = !freeze;
308: }
309: if (freeze || XPending() ) {
310: register int button;
311: XNextEvent(&event);
312: button = event.detail & ValueMask;
313: if (mouse) {
314: x2 = event.x;
315: y2 = event.y;
316: }
317: if ( (left == TRUE) && ( event.type == ButtonPressed ) &&
318: ( button == ResizeButton ) ) {
319: x1 = x2;
320: y1 = y2;
321: left = FALSE;
322: change_cursor = TRUE;
323: }
324: else if ( (left == FALSE) && (event.type == ButtonReleased) &&
325: ( button == ResizeButton))
326: stop = TRUE;
327: else if ( (left == TRUE) && (event.type == ButtonPressed) &&
328: ( button == DefaultButton)) {
329: x1 = frame->x;
330: y1 = frame->y;
331: x2 = x1 + frame->width + mindim;
332: y2 = y1 + frame->height + mindim;
333: mouse = FALSE;
334: left = FALSE;
335: }
336: else if ( (left == FALSE) && (event.type == ButtonReleased) &&
337: ( button == DefaultButton)) {
338: x1 = frame->x;
339: y1 = frame->y;
340: x2 = x1 + frame->width + mindim;
341: y2 = y1 + frame->height + mindim;
342: stop = TRUE;
343: }
344: else if ( (left == TRUE) && (event.type == ButtonPressed) &&
345: ( button == HereButton)) {
346: force = TRUE;
347: left = FALSE;
348: }
349: else if ( (left == FALSE) && (event.type == ButtonReleased) &&
350: ( button == HereButton)) {
351: stop = TRUE;
352: }
353: else if (mouse) XQueryMouse (RootWindow, &x2, &y2, &subw);
354: }
355: else if (mouse) XQueryMouse (RootWindow, &x2, &y2, &subw);
356: if (change_cursor) {
357: if ((x2 >= x1) && (y2 >= y1) &&
358: current_cursor != CURSOR_LR) {
359: XGrabMouse ( RootWindow, lr, events );
360: current_cursor = CURSOR_LR;
361: }
362: else if ((x2 >= x1) && (y2 < y1) &&
363: current_cursor != CURSOR_UR) {
364: XGrabMouse ( RootWindow, ur, events);
365: current_cursor = CURSOR_UR;
366: }
367: else if ((x2 < x1) && (y2 >= y1) &&
368: current_cursor != CURSOR_LL) {
369: XGrabMouse ( RootWindow, ll, events);
370: current_cursor = CURSOR_LL;
371: }
372: else if ((x2 < x1) && (y2 < y1) &&
373: (current_cursor != CURSOR_UL)) {
374: XGrabMouse ( RootWindow, ul, events);
375: current_cursor = CURSOR_UL;
376: }
377: }
378: if (force) { /* we force the default box */
379: x1 = x2;
380: y1 = y2;
381: x2 = x1 + frame->width + mindim;
382: y2 = y1 + frame->height + mindim;
383: }
384:
385: if (left) {
386: x1 = x2;
387: y1 = y2;
388: }
389: width = max (abs (x2 - x1), minwidth);
390:
391: if (x2 < x1) x2 = x1 - width;
392: else x2 = x1 + width;
393:
394: height = max (abs (y2 - y1), minheight);
395: if (y2 < y1) y2 = y1 - height;
396: else y2 = y1 + height;
397: }
398: if (freeze) XDraw (RootWindow, box, count, 1, 1, 0, GXinvert, 1);
399: XUngrabMouse();
400:
401: if (save != 0) {
402: XUnmapTransparent (pop);
403: XPixmapPut (RootWindow, 0, 0, 0, 0,
404: popw + 2 * pbw, poph + 2 * pbw,
405: save, GXcopy, AllPlanes);
406: XFreePixmap (save);
407: }
408: XDestroyWindow (pop);
409: if (freeze) XUngrabServer();
410: XCloseFont (pfninfo);
411: XFreeCursor (ur);
412: XFreeCursor (ul);
413: XFreeCursor (lr);
414: XFreeCursor (ll);
415: XFreePixmap (backmap);
416: XFreePixmap (bdrmap);
417: frame->x = min(x1, x2);
418: frame->y = min(y1, y2);
419: frame->width = width - mindim;
420: frame->height = height - mindim;
421: makeit: XCreateWindows(RootWindow, frame, 1);
422: /* store default name of the window and set the resize hint */
423: XStoreName(frame->self, prompt);
424: XSetResizeHint(frame->self, minwidth, minheight, 1, 1);
425: XSync(1); /* get rid of any extraneous events */
426: return (frame->self);
427: }
428:
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.