![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to Command.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / Xtk|
Return to Command.c CVS log | Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / lib / Xtk |
1.1 root 1: #ifndef lint
2: static char rcsid[] = "$Header: Command.c,v 1.24 87/09/13 23:04:23 newman Exp $";
3: #endif lint
4:
5: /*
6: * Copyright 1987 by Digital Equipment Corporation, Maynard, Massachusetts.
7: *
8: * All Rights Reserved
9: *
10: * Permission to use, copy, modify, and distribute this software and its
11: * documentation for any purpose and without fee is hereby granted,
12: * provided that the above copyright notice appear in all copies and that
13: * both that copyright notice and this permission notice appear in
14: * supporting documentation, and that the name of Digital Equipment
15: * Corporation not be used in advertising or publicity pertaining to
16: * distribution of the software without specific, written prior permission.
17: *
18: *
19: * DIGITAL DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING
20: * ALL IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL
21: * DIGITAL BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR
22: * ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS,
23: * WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION,
24: * ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
25: * SOFTWARE.
26: */
27: /*
28: * Command.c - Command button widget
29: *
30: * Rewritten for beta toolkit
31: * Author: Mark Ackerman
32: * MIT/Project Athena
33: * Date: August 27, 1987
34: *
35: * from Command.c (XToolkit, alpha version)
36: * Charles Haynes
37: * Digital Equipment Corporation
38: * Western Research Laboratory
39: */
40:
41: #define XtStrlen(s) ((s) ? strlen(s) : 0)
42:
43: /* The following are defined for the reader's convenience. Any
44: Xt..Field macro in this code just refers to some field in
45: one of the substructures of the WidgetRec. */
46:
47: #include <stdio.h>
48: #include <string.h>
49: #include <ctype.h>
50: #include "Intrinsic.h"
51: #include "Label.h"
52: #include "LabelP.h"
53: #include "Command.h"
54: #include "CommandP.h"
55: #include "CommandInt.h"
56: #include "Atoms.h"
57:
58: /****************************************************************
59: *
60: * Full class record constant
61: *
62: ****************************************************************/
63:
64: /* Private Data */
65:
66: static char *defaultTranslation[] = {
67: "<Btn1Down>: set()",
68: "<Btn1Up>: notify() unset()",
69: "<EnterWindow>: highlight()",
70: "<LeaveWindow>: unhighlight()",
71: NULL
72: };
73: static caddr_t defaultTranslations = (caddr_t)defaultTranslation;
74: static XtResource resources[] = {
75:
76: {XtNfunction, XtCFunction, XtRFunction, sizeof(XtCallbackProc),
77: XtOffset(CommandWidget, command.callback), XtRFunction, (caddr_t)NULL},
78: {XtNparameter, XtCParameter, XtRPointer, sizeof(caddr_t),
79: XtOffset(CommandWidget,command.closure), XtRPointer, (caddr_t)NULL},
80:
81: {XtNhighlightThickness, XtCThickness, XrmRInt, sizeof(Dimension),
82: XtOffset(CommandWidget,command.highlight_thickness), XrmRString,"2"},
83: {XtNtranslations, XtCTranslations, XtRTranslationTable,
84: sizeof(_XtTranslations),
85: XtOffset(CommandWidget, core.translations),XtRTranslationTable,
86: (caddr_t)&defaultTranslations},
87: };
88:
89: static XtActionsRec actionsList[] =
90: {
91: {"set", (caddr_t) Set},
92: {"notify", (caddr_t) Notify},
93: {"highlight", (caddr_t) Highlight},
94: {"unset", (caddr_t) Unset},
95: {"unhighlight", (caddr_t) Unhighlight},
96: };
97:
98: /* ...ClassData must be initialized at compile time. Must
99: initialize all substructures. (Actually, last two here
100: need not be initialized since not used.)
101: */
102: CommandClassRec commandClassRec = {
103: {
104: (WidgetClass) &labelClassRec, /* superclass */
105: "Command", /* class_name */
106: sizeof(CommandRec), /* size */
107: ClassInitialize, /* class initialize */
108: FALSE, /* class_inited */
109: Initialize, /* initialize */
110: Realize, /* realize */
111: actionsList, /* actions */
112: XtNumber(actionsList),
113: resources, /* resources */
114: XtNumber(resources), /* resource_count */
115: NULLQUARK, /* xrm_class */
116: FALSE,
117: FALSE,
118: FALSE, /* visible_interest */
119: Destroy, /* destroy */
120: Resize, /* resize */
121: Redisplay, /* expose */
122: SetValues, /* set_values */
123: NULL, /* accept_focus */
124: }, /* CoreClass fields initialization */
125: {
126: 0, /* field not used */
127: }, /* LabelClass fields initialization */
128: {
129: 0, /* field not used */
130: }, /* CommandClass fields initialization */
131: };
132:
133: /* for public consumption */
134: WidgetClass commandWidgetClass = (WidgetClass) &commandClassRec;
135:
136: XtCallbackKind activateCommand; /* for public consumption*/
137: /****************************************************************
138: *
139: * Private Procedures
140: *
141: ****************************************************************/
142:
143: #ifdef saber_bug
144: static Cardinal commandCallbackOffset =
145: XtOffset(CommandWidget,command.callback_list);
146: static void ClassInitialize()
147: {
148: activateCommand = XtNewCallbackKind(
149: commandWidgetClass, commandCallbackOffset);
150:
151: }
152: #else
153: static void ClassInitialize()
154: {
155: activateCommand = XtNewCallbackKind(commandWidgetClass,
156: XtOffset(CommandWidget,command.callback_list));
157:
158: }
159: #endif
160:
161: static void Get_inverseGC(cbw)
162: CommandWidget cbw;
163: {
164: XGCValues values;
165:
166: /* Set up a GC for inverse (set) state */
167:
168: values.foreground = ComWforeground;
169: values.font = ComWfont->fid;
170: values.fill_style = FillSolid;
171:
172: ComWinverseGC = XtGetGC((Widget)cbw,
173: (unsigned) GCForeground | GCFont | GCFillStyle, &values);
174: }
175:
176: static void Get_inverseTextGC(cbw)
177: CommandWidget cbw;
178: {
179: XGCValues values;
180:
181: /* Set up a GC for inverse (set) state */
182:
183: values.foreground = ComWbackground; /* default is White */
184: values.font = ComWfont->fid;
185: values.fill_style = FillSolid;
186:
187: ComWinverseTextGC = XtGetGC((Widget)cbw,
188: (unsigned) GCForeground | GCFont | GCFillStyle, &values);
189: }
190:
191: static void Get_highlightGC(cbw)
192: CommandWidget cbw;
193: {
194: XGCValues values;
195:
196: /* Set up a GC for highlighted state. It has a thicker
197: line width for the highlight border */
198:
199: values.foreground = ComWforeground;
200: values.line_width = ComWhighlightThickness;
201:
202: ComWhighlightGC = XtGetGC((Widget)cbw,
203: (unsigned) GCForeground | GCLineWidth, &values);
204: }
205:
206:
207: /* ARGSUSED */
208: static void Initialize(request, new, args, num_args)
209: Widget request, new;
210: ArgList args;
211: Cardinal num_args;
212: {
213: CommandWidget cbw = (CommandWidget) new;
214:
215: Get_inverseGC(cbw);
216: Get_inverseTextGC(cbw);
217: Get_highlightGC(cbw);
218: /* Start the callback list if the client specified one in
219: the arglist */
220: ComWcallbackList = NULL;
221: if (ComWcallback != NULL)
222: XtAddCallback((Widget)cbw,activateCommand,ComWcallback,ComWclosure);
223:
224: /* init flags for state */
225: ComWset = FALSE;
226: ComWhighlighted = FALSE;
227: ComWdisplayHighlighted = FALSE;
228: ComWdisplaySet = FALSE;
229:
230: }
231:
232: static void Realize(w, valueMask, attributes)
233: /* This is the same as LabelWidget */
234: register Widget w;
235: Mask valueMask;
236: XSetWindowAttributes *attributes;
237: {
238: XtCallParentProcedure3Args(realize,w,valueMask,attributes);
239: }
240:
241:
242: /***************************
243: *
244: * EVENT HANDLERS
245: *
246: ***************************/
247:
248: /* ARGSUSED */
249: static void Set(w,event)
250: Widget w;
251: XEvent *event;
252: {
253: CommandWidget cbw = (CommandWidget)w;
254: ComWset = TRUE;
255: Redisplay(w, event);
256: }
257:
258: /* ARGSUSED */
259: static void Unset(w,event)
260: Widget w;
261: XEvent *event;
262: {
263: CommandWidget cbw = (CommandWidget)w;
264: ComWset = FALSE;
265: Redisplay(w, event);
266: }
267:
268: /* ARGSUSED */
269: static void Highlight(w,event)
270: Widget w;
271: XEvent *event;
272: {
273: CommandWidget cbw = (CommandWidget)w;
274: ComWhighlighted = TRUE;
275: Redisplay(w, event);
276: }
277:
278: /* ARGSUSED */
279: static void Unhighlight(w,event)
280: Widget w;
281: XEvent *event;
282: {
283: CommandWidget cbw = (CommandWidget)w;
284: ComWhighlighted = FALSE;
285: Redisplay(w, event);
286: }
287:
288: /* ARGSUSED */
289: static void Notify(w,event)
290: Widget w;
291: XEvent *event;
292: {
293: CommandWidget cbw = (CommandWidget)w;
294: XtCallCallbacks((Widget)cbw,activateCommand,NULL);
295: }
296: /*
297: * Repaint the widget window
298: */
299:
300: /************************
301: *
302: * REDISPLAY (DRAW)
303: *
304: ************************/
305:
306: /* ARGSUSED */
307: static void Redisplay(w, event)
308: Widget w;
309: XEvent *event;
310: {
311: CommandWidget cbw = (CommandWidget) w;
312: XSetWindowAttributes window_attributes;
313:
314: /* Here's the scoop: If the command button button is normal,
315: you show the text. If the command button is highlighted but
316: not set, you draw a thick border and show the text.
317: If the command button is set, draw the button and text
318: in inverse. */
319:
320: /* Just to make sure everything is okay, check for sensitivity,
321: too. If non-sensitive, then gray out the border. */
322:
323: /* Note that Redisplay must remember the state of its last
324: draw to determine whether to erase the window before
325: redrawing to avoid flicker. If the state is the same,
326: the window just needs to redraw (even on an expose). */
327:
328: if (!ComWsensitive && ComWdisplaySensitive)
329: {
330: /* change border to gray */
331: window_attributes.border_pixmap = ComWgrayPixmap;
332: XChangeWindowAttributes(XtDisplay(w),XtWindow(w),
333: CWBorderPixmap,&window_attributes);
334: }
335: else if (ComWsensitive && !ComWdisplaySensitive)
336: {
337: /* change border to black */
338: window_attributes.border_pixel = ComWforeground;
339: XChangeWindowAttributes(XtDisplay(w),XtWindow(w),
340: CWBorderPixel,&window_attributes);
341: }
342:
343: if ((!ComWhighlighted && ComWdisplayHighlighted) ||
344: ComWsensitive != ComWdisplaySensitive ||
345: (!ComWset && ComWdisplaySet))
346: XClearWindow(XtDisplay(w),XtWindow(w));
347: /* Don't clear the window if the button's in a set condition;
348: instead, fill it with black to avoid flicker. (Must fil
349: with black in case it was an expose */
350: else if (ComWset) /* && ComWdisplaySet) || (ComWset && !ComWdisplaySet))*/
351: XFillRectangle(XtDisplay(w),XtWindow(w), ComWinverseGC,
352: 0,0,ComWwidth,ComWheight);
353:
354: /* check whether border is taken out of size of rectangle or
355: is outside of rectangle */
356: if (ComWhighlighted)
357: XDrawRectangle(XtDisplay(w),XtWindow(w), ComWhighlightGC,
358: 0,0,ComWwidth,ComWheight);
359:
360: /* draw the string: there are three different "styles" for it,
361: all in separate GCs */
362: XDrawString(XtDisplay(w),XtWindow(w),
363: (ComWset ? ComWinverseTextGC :
364: (ComWsensitive ? ComWnormalGC : ComWgrayGC)),
365: ComWlabelX, ComWlabelY, ComWlabel, (int) ComWlabelLen);
366:
367: ComWdisplayHighlighted = ComWhighlighted;
368: ComWdisplaySet = ComWset;
369: ComWdisplaySensitive = ComWsensitive;
370: }
371:
372:
373: static void Resize(w)
374: Widget w;
375: {
376: /* Nothing changes specific to command. Label must change. */
377: XtCallParentProcedure(resize,w);
378: }
379:
380: static void Destroy(w)
381: Widget w;
382: {
383: /* must free GCs and pixmaps */
384: }
385:
386:
387: /*
388: * Set specified arguments into widget
389: */
390: static Boolean SetValues (current, request, new, last)
391: Widget current, request, new;
392: Boolean last;
393: {
394: CommandWidget cbw = (CommandWidget) current;
395: CommandWidget newcbw = (CommandWidget) new;
396:
397: if (XtLField(newcbw,foreground) != ComWforeground)
398: {
399: XtDestroyGC(ComWinverseGC);
400: Get_inverseGC(newcbw);
401: XtDestroyGC(ComWhighlightGC);
402: Get_highlightGC(newcbw);
403: }
404: else
405: {
406: if (XtCField(newcbw,background_pixel) != ComWbackground ||
407: XtLField(newcbw,font) != ComWfont) {
408: XtDestroyGC(ComWinverseTextGC);
409: Get_inverseTextGC(newcbw);
410: }
411: if (XtCBField(newcbw,highlight_thickness) != ComWhighlightThickness) {
412: XtDestroyGC(ComWhighlightGC);
413: Get_highlightGC(newcbw);
414: }
415: }
416:
417: /* NEED TO RESET PROC AND CLOSURE */
418:
419: /* ACTIONS */
420: /* Change Label to remove ClearWindow and Redisplay */
421: /* Change Label to change GCs if foreground, etc */
422:
423: return (FALSE); /* actually need to return TRUE if Redisplay is needed! */
424: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.