|
424
|
1 /* Radio Widget for XEmacs.
|
|
|
2 Copyright (C) 1999 Edward A. Falk
|
|
|
3
|
|
|
4 This file is part of XEmacs.
|
|
|
5
|
|
|
6 XEmacs is free software; you can redistribute it and/or modify it
|
|
|
7 under the terms of the GNU General Public License as published by the
|
|
|
8 Free Software Foundation; either version 2, or (at your option) any
|
|
|
9 later version.
|
|
|
10
|
|
|
11 XEmacs is distributed in the hope that it will be useful, but WITHOUT
|
|
|
12 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
|
|
|
13 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
|
|
|
14 for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with XEmacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
|
|
|
19 Boston, MA 02111-1307, USA. */
|
|
|
20
|
|
|
21 /* Synched up with: Radio.c 1.1 */
|
|
|
22
|
|
|
23 /*
|
|
|
24 * Radio.c - Radio button widget
|
|
|
25 *
|
|
|
26 * Author: Edward A. Falk
|
|
|
27 * falk@falconer.vip.best.com
|
|
442
|
28 *
|
|
424
|
29 * Date: June 30, 1997
|
|
|
30 *
|
|
|
31 *
|
|
|
32 * Overview: This widget is identical to the Toggle widget in behavior,
|
|
|
33 * but completely different in appearance. This widget looks like a small
|
|
|
34 * diamond-shaped button with a label to the right.
|
|
|
35 *
|
|
|
36 * To make this work, we subclass the Toggle widget to inherit its behavior
|
|
|
37 * and to inherit the label-drawing function from which Toggle is
|
|
|
38 * subclassed. We then completely replace the Expose, Set, Unset
|
|
|
39 * and Highlight member functions.
|
|
|
40 *
|
|
|
41 * The Set and Unset actions are slightly unorthodox. In Toggle's
|
|
|
42 * ClassInit function, Toggle searches the Command actions list and
|
|
|
43 * "steals" the Set and Unset functions, caching pointers to them in its
|
|
|
44 * class record. It then calls these functions from its own ToggleSet
|
|
|
45 * and Toggle actions.
|
|
|
46 *
|
|
|
47 * We, in turn, override the Set() and Unset() actions in our own ClassRec.
|
|
|
48 */
|
|
|
49
|
|
|
50
|
|
|
51 #include <config.h>
|
|
|
52 #include <stdio.h>
|
|
|
53
|
|
|
54 #include <X11/IntrinsicP.h>
|
|
|
55 #include <X11/StringDefs.h>
|
|
442
|
56 #include ATHENA_XawInit_h_
|
|
424
|
57 #include "../src/xmu.h"
|
|
|
58 #include "xlwradioP.h"
|
|
|
59
|
|
|
60 #define BOX_SIZE 13
|
|
|
61
|
|
|
62 #define rclass(w) ((RadioWidgetClass)((w)->core.widget_class))
|
|
|
63
|
|
|
64
|
|
|
65 #ifdef _ThreeDP_h
|
|
|
66 #define swid(rw) ((rw)->threeD.shadow_width)
|
|
|
67 #else
|
|
|
68 #define swid(rw) ((rw)->core.border_width)
|
|
|
69 #endif
|
|
|
70
|
|
|
71 #define bsize(rw) (rclass(rw)->radio_class.dsize)
|
|
|
72 #define bs(rw) (bsize(rw) + 2*swid(rw))
|
|
|
73
|
|
|
74
|
|
|
75
|
|
|
76 /****************************************************************
|
|
|
77 *
|
|
|
78 * Full class record constant
|
|
|
79 *
|
|
|
80 ****************************************************************/
|
|
|
81
|
|
|
82 /* The translations table from Toggle do not need to be
|
|
|
83 * overridden by Radio
|
|
|
84 */
|
|
|
85
|
|
|
86
|
|
|
87 /* Member functions */
|
|
|
88
|
|
|
89 static void RadioInit (Widget, Widget, ArgList, Cardinal *);
|
|
|
90 static void RadioExpose (Widget, XEvent *, Region);
|
|
|
91 static void RadioResize (Widget);
|
|
|
92 static void RadioDestroy (Widget, XtPointer, XtPointer);
|
|
|
93 static void RadioClassInit (void);
|
|
|
94 static void RadioClassPartInit (WidgetClass);
|
|
|
95 static Boolean RadioSetValues (Widget, Widget, Widget, ArgList, Cardinal *);
|
|
|
96 static void DrawDiamond (Widget);
|
|
|
97 static XtGeometryResult RadioQueryGeometry (Widget, XtWidgetGeometry *,
|
|
|
98 XtWidgetGeometry *);
|
|
|
99
|
|
|
100 /* Action procs */
|
|
|
101
|
|
|
102 static void RadioHighlight (Widget, XEvent *, String *, Cardinal *);
|
|
|
103 static void RadioUnhighlight (Widget, XEvent *, String *, Cardinal *);
|
|
|
104
|
|
|
105 /* internal privates */
|
|
|
106
|
|
|
107 static void RadioSize (RadioWidget, Dimension *, Dimension *);
|
|
|
108
|
|
|
109 /* The actions table from Toggle is almost perfect, but we need
|
|
|
110 * to override Highlight, Set, and Unset.
|
|
|
111 */
|
|
|
112
|
|
|
113 static XtActionsRec actionsList[] =
|
|
|
114 {
|
|
|
115 {"highlight", RadioHighlight},
|
|
|
116 {"unhighlight", RadioUnhighlight},
|
|
|
117 };
|
|
|
118
|
|
|
119 #define SuperClass ((ToggleWidgetClass)&toggleClassRec)
|
|
|
120
|
|
|
121 RadioClassRec radioClassRec = {
|
|
|
122 {
|
|
442
|
123 (WidgetClass) SuperClass, /* superclass */
|
|
424
|
124 "Radio", /* class_name */
|
|
|
125 sizeof(RadioRec), /* size */
|
|
|
126 RadioClassInit, /* class_initialize */
|
|
|
127 RadioClassPartInit, /* class_part_initialize */
|
|
|
128 FALSE, /* class_inited */
|
|
|
129 RadioInit, /* initialize */
|
|
|
130 NULL, /* initialize_hook */
|
|
|
131 XtInheritRealize, /* realize */
|
|
|
132 actionsList, /* actions */
|
|
|
133 XtNumber(actionsList), /* num_actions */
|
|
|
134 NULL, /* resources */
|
|
|
135 0, /* resource_count */
|
|
|
136 NULLQUARK, /* xrm_class */
|
|
|
137 TRUE, /* compress_motion */
|
|
|
138 TRUE, /* compress_exposure */
|
|
|
139 TRUE, /* compress_enterleave */
|
|
|
140 FALSE, /* visible_interest */
|
|
|
141 NULL, /* destroy */
|
|
|
142 RadioResize, /* resize */
|
|
|
143 RadioExpose, /* expose */
|
|
|
144 RadioSetValues, /* set_values */
|
|
|
145 NULL, /* set_values_hook */
|
|
|
146 XtInheritSetValuesAlmost, /* set_values_almost */
|
|
|
147 NULL, /* get_values_hook */
|
|
|
148 NULL, /* accept_focus */
|
|
|
149 XtVersion, /* version */
|
|
|
150 NULL, /* callback_private */
|
|
|
151 XtInheritTranslations, /* tm_table */
|
|
|
152 RadioQueryGeometry, /* query_geometry */
|
|
|
153 XtInheritDisplayAccelerator, /* display_accelerator */
|
|
|
154 NULL /* extension */
|
|
|
155 }, /* CoreClass fields initialization */
|
|
|
156 {
|
|
442
|
157 XtInheritChangeSensitive /* change_sensitive */
|
|
424
|
158 }, /* SimpleClass fields initialization */
|
|
|
159 #ifdef _ThreeDP_h
|
|
|
160 {
|
|
|
161 XtInheritXaw3dShadowDraw /* field not used */
|
|
|
162 }, /* ThreeDClass fields initialization */
|
|
|
163 #endif
|
|
|
164 {
|
|
|
165 0 /* field not used */
|
|
|
166 }, /* LabelClass fields initialization */
|
|
|
167 {
|
|
|
168 0 /* field not used */
|
|
|
169 }, /* CommandClass fields initialization */
|
|
|
170 {
|
|
|
171 RadioSet, /* Set Procedure. */
|
|
|
172 RadioUnset, /* Unset Procedure. */
|
|
|
173 NULL /* extension. */
|
|
|
174 }, /* ToggleClass fields initialization */
|
|
|
175 {
|
|
|
176 BOX_SIZE,
|
|
|
177 DrawDiamond, /* draw procedure */
|
|
|
178 NULL /* extension. */
|
|
|
179 } /* RadioClass fields initialization */
|
|
|
180 };
|
|
|
181
|
|
|
182 /* for public consumption */
|
|
|
183 WidgetClass radioWidgetClass = (WidgetClass) &radioClassRec;
|
|
|
184
|
|
|
185
|
|
|
186
|
|
|
187
|
|
|
188
|
|
|
189
|
|
|
190 /****************************************************************
|
|
|
191 *
|
|
|
192 * Class Methods
|
|
|
193 *
|
|
|
194 ****************************************************************/
|
|
|
195
|
|
|
196 static void
|
|
|
197 RadioClassInit (void)
|
|
|
198 {
|
|
|
199 XawInitializeWidgetSet();
|
|
|
200 }
|
|
|
201
|
|
|
202 static void
|
|
1201
|
203 RadioClassPartInit (WidgetClass class_)
|
|
424
|
204 {
|
|
1201
|
205 RadioWidgetClass c = (RadioWidgetClass) class_ ;
|
|
424
|
206 RadioWidgetClass super = (RadioWidgetClass)c->core_class.superclass ;
|
|
|
207
|
|
|
208 if( c->radio_class.drawDiamond == NULL ||
|
|
|
209 c->radio_class.drawDiamond == XtInheritDrawDiamond )
|
|
|
210 {
|
|
|
211 c->radio_class.drawDiamond = super->radio_class.drawDiamond ;
|
|
|
212 }
|
|
|
213 }
|
|
|
214
|
|
|
215
|
|
|
216
|
|
|
217
|
|
|
218 /*ARGSUSED*/
|
|
|
219 static void
|
|
|
220 RadioInit (Widget request,
|
|
|
221 Widget new,
|
|
2286
|
222 ArgList UNUSED (args),
|
|
|
223 Cardinal *UNUSED (num_args))
|
|
424
|
224 {
|
|
|
225 RadioWidget rw = (RadioWidget) new;
|
|
|
226 RadioWidget rw_req = (RadioWidget) request;
|
|
|
227 Dimension w,h ;
|
|
|
228
|
|
|
229 /* Select initial size for the widget */
|
|
|
230 if( rw_req->core.width == 0 || rw_req->core.height == 0 )
|
|
|
231 {
|
|
|
232 RadioSize(rw, &w,&h) ;
|
|
|
233 if( rw_req->core.width == 0 )
|
|
|
234 rw->core.width = w ;
|
|
|
235 if( rw_req->core.height == 0 )
|
|
|
236 rw->core.height = h ;
|
|
|
237 rw->core.widget_class->core_class.resize(new) ;
|
|
|
238 }
|
|
|
239 }
|
|
|
240
|
|
|
241 /* Function Name: RadioDestroy
|
|
|
242 * Description: Destroy Callback for radio widget.
|
|
|
243 * Arguments: w - the radio widget that is being destroyed.
|
|
442
|
244 * junk, garbage - not used.
|
|
424
|
245 * Returns: none.
|
|
|
246 */
|
|
|
247
|
|
|
248 /* ARGSUSED */
|
|
|
249 static void
|
|
2286
|
250 RadioDestroy (Widget UNUSED (w),
|
|
|
251 XtPointer UNUSED (junk),
|
|
|
252 XtPointer UNUSED (garbage))
|
|
424
|
253 {
|
|
|
254 /* TODO: get rid of this */
|
|
|
255 }
|
|
|
256
|
|
|
257
|
|
|
258 /* React to size change from manager. Label widget will compute some internal
|
|
|
259 * stuff, but we need to override. This code requires knowledge of the
|
|
|
260 * internals of the Label widget.
|
|
|
261 */
|
|
|
262
|
|
|
263 static void
|
|
|
264 RadioResize (Widget w)
|
|
|
265 {
|
|
|
266 RadioWidget rw = (RadioWidget)w ;
|
|
|
267
|
|
|
268 /* call parent resize proc */
|
|
|
269 SuperClass->core_class.resize(w) ;
|
|
|
270
|
|
|
271 /* override label offset */
|
|
|
272
|
|
|
273 switch( rw->label.justify ) {
|
|
|
274 case XtJustifyLeft:
|
|
442
|
275 rw->label.label_x += (bs(rw) + rw->label.internal_width) ;
|
|
424
|
276 break ;
|
|
|
277 case XtJustifyRight:
|
|
|
278 break ;
|
|
|
279 case XtJustifyCenter:
|
|
|
280 default:
|
|
442
|
281 rw->label.label_x += (bs(rw) + rw->label.internal_width)/2;
|
|
424
|
282 break ;
|
|
|
283 }
|
|
|
284 }
|
|
|
285
|
|
|
286
|
|
|
287 /*
|
|
|
288 * Repaint the widget window.
|
|
|
289 */
|
|
|
290
|
|
|
291 static void
|
|
|
292 RadioExpose (Widget w,
|
|
|
293 XEvent *event,
|
|
|
294 Region region)
|
|
|
295 {
|
|
|
296 RadioWidget rw = (RadioWidget) w ;
|
|
|
297 Display *dpy = XtDisplay(w) ;
|
|
|
298 Window win = XtWindow(w) ;
|
|
|
299 GC gc ;
|
|
|
300 Pixmap left_bitmap ;
|
|
|
301 extern WidgetClass labelWidgetClass ;
|
|
|
302
|
|
|
303 /* Note: the Label widget examines the region to decide if anything
|
|
|
304 * needs to be drawn. I'm not sure that this is worth the effort,
|
|
|
305 * but it bears thinking on.
|
|
|
306 */
|
|
|
307
|
|
|
308 /* Let label widget draw the label. If there was an lbm_x
|
|
|
309 * field, we could let Label draw the bitmap too. But there
|
|
|
310 * isn't, so we need to temporarily remove the bitmap and
|
|
|
311 * draw it ourself later.
|
|
|
312 */
|
|
|
313 left_bitmap = rw->label.left_bitmap ;
|
|
|
314 rw->label.left_bitmap = None ;
|
|
|
315 labelWidgetClass->core_class.expose(w,event,region) ;
|
|
|
316 rw->label.left_bitmap = left_bitmap ;
|
|
|
317
|
|
|
318 /* now manually draw the left bitmap. TODO: 3-d look, xaw-xpm */
|
|
|
319 gc = XtIsSensitive(w) ? rw->label.normal_GC : rw->label.gray_GC ;
|
|
|
320 if( left_bitmap != None && rw->label.lbm_width > 0 )
|
|
|
321 {
|
|
|
322 /* TODO: handle pixmaps */
|
|
|
323 XCopyPlane(dpy, left_bitmap, win, gc,
|
|
458
|
324 0,0, rw->label.lbm_width, rw->label.lbm_height,
|
|
|
325 (int) rw->label.internal_width*2 + bs(rw),
|
|
|
326 (int) rw->label.internal_height + rw->label.lbm_y,
|
|
|
327 1UL) ;
|
|
424
|
328 }
|
|
|
329
|
|
|
330 /* Finally, the button itself */
|
|
|
331 ((RadioWidgetClass)(w->core.widget_class))->radio_class.drawDiamond(w) ;
|
|
|
332 }
|
|
|
333
|
|
|
334
|
|
|
335
|
|
|
336
|
|
|
337 /************************************************************
|
|
|
338 *
|
|
|
339 * Set specified arguments into widget
|
|
|
340 *
|
|
|
341 ***********************************************************/
|
|
|
342
|
|
|
343
|
|
|
344 /* ARGSUSED */
|
|
|
345 static Boolean
|
|
|
346 RadioSetValues (Widget current,
|
|
2286
|
347 Widget UNUSED (request),
|
|
424
|
348 Widget new,
|
|
2286
|
349 ArgList UNUSED (args),
|
|
|
350 Cardinal *UNUSED (num_args))
|
|
424
|
351 {
|
|
|
352 RadioWidget oldrw = (RadioWidget) current;
|
|
|
353 RadioWidget newrw = (RadioWidget) new;
|
|
|
354
|
|
|
355 /* Need to find out if the size of the widget changed. Set new size
|
|
|
356 * if it did and resize is permitted. One way to determine of the
|
|
|
357 * widget changed size would be to scan the args list. Another way
|
|
|
358 * is to compare the old and new widgets and see if any of several
|
|
|
359 * size-related fields have been changed. The Label widget chose the
|
|
|
360 * former method, but I choose the latter.
|
|
|
361 */
|
|
|
362
|
|
|
363 if( newrw->label.resize &&
|
|
|
364 ( newrw->core.width != oldrw->core.width ||
|
|
|
365 newrw->core.height != oldrw->core.height ||
|
|
|
366 newrw->core.border_width != oldrw->core.border_width ) )
|
|
|
367 {
|
|
|
368 RadioSize(newrw, &newrw->core.width, &newrw->core.height) ;
|
|
|
369 }
|
|
|
370
|
|
442
|
371 /* The label set values routine can resize the widget. We need to
|
|
|
372 * recalculate if this is true.
|
|
|
373 */
|
|
|
374 if (newrw->label.label_x != oldrw->label.label_x)
|
|
|
375 {
|
|
|
376 RadioResize (new);
|
|
|
377 }
|
|
424
|
378 return FALSE ;
|
|
|
379 }
|
|
|
380
|
|
|
381 static XtGeometryResult
|
|
|
382 RadioQueryGeometry (Widget w,
|
|
|
383 XtWidgetGeometry *intended,
|
|
|
384 XtWidgetGeometry *preferred)
|
|
|
385 {
|
|
|
386 RadioWidget rw = (RadioWidget) w;
|
|
|
387
|
|
|
388 preferred->request_mode = CWWidth | CWHeight;
|
|
|
389 RadioSize(rw, &preferred->width, &preferred->height) ;
|
|
|
390
|
|
|
391 if ( ((intended->request_mode & (CWWidth | CWHeight))
|
|
|
392 == (CWWidth | CWHeight)) &&
|
|
|
393 intended->width == preferred->width &&
|
|
|
394 intended->height == preferred->height)
|
|
|
395 return XtGeometryYes;
|
|
|
396 else if (preferred->width == w->core.width &&
|
|
|
397 preferred->height == w->core.height)
|
|
|
398 return XtGeometryNo;
|
|
|
399 else
|
|
|
400 return XtGeometryAlmost;
|
|
|
401 }
|
|
|
402
|
|
|
403
|
|
|
404
|
|
|
405
|
|
|
406
|
|
|
407 /************************************************************
|
|
|
408 *
|
|
|
409 * Action Procedures
|
|
|
410 *
|
|
|
411 ************************************************************/
|
|
|
412
|
|
|
413 /*
|
|
|
414 * Draw the highlight border around the widget. The Command widget
|
|
|
415 * did this by drawing through a mask. We do it by just drawing the
|
|
|
416 * border.
|
|
|
417 */
|
|
|
418
|
|
442
|
419 static void
|
|
424
|
420 DrawHighlight (Widget w,
|
|
|
421 GC gc)
|
|
|
422 {
|
|
|
423 RadioWidget rw = (RadioWidget)w;
|
|
|
424 XRectangle rects[4] ;
|
|
|
425 Dimension ht = rw->command.highlight_thickness ;
|
|
|
426
|
|
|
427 if( ht <= 0 ||
|
|
|
428 ht > rw->core.width/2 ||
|
|
|
429 ht > rw->core.height/2 )
|
|
|
430 return ;
|
|
|
431
|
|
|
432 if( ! XtIsRealized(w) )
|
|
|
433 return ;
|
|
|
434
|
|
|
435 rects[0].x = 0 ; rects[0].y = 0 ;
|
|
|
436 rects[0].width = rw->core.width ; rects[0].height = ht ;
|
|
|
437 rects[1].x = 0 ; rects[1].y = rw->core.height - ht ;
|
|
|
438 rects[1].width = rw->core.width ; rects[1].height = ht ;
|
|
|
439 rects[2].x = 0 ; rects[2].y = ht ;
|
|
|
440 rects[2].width = ht ; rects[2].height = rw->core.height - ht*2 ;
|
|
|
441 rects[3].x = rw->core.width - ht ; rects[3].y = ht ;
|
|
|
442 rects[3].width = ht ; rects[3].height = rw->core.height - ht*2 ;
|
|
|
443 XFillRectangles( XtDisplay(w), XtWindow(w), gc, rects, 4) ;
|
|
|
444 }
|
|
|
445
|
|
|
446 static void
|
|
|
447 RadioHighlight (Widget w,
|
|
2286
|
448 XEvent *UNUSED (event),
|
|
|
449 String *UNUSED (params),
|
|
|
450 Cardinal *UNUSED (num_params))
|
|
424
|
451 {
|
|
|
452 RadioWidget rw = (RadioWidget)w;
|
|
|
453 DrawHighlight(w, rw->command.normal_GC) ;
|
|
|
454 }
|
|
|
455
|
|
|
456
|
|
|
457 static void
|
|
|
458 RadioUnhighlight (Widget w,
|
|
2286
|
459 XEvent *UNUSED (event),
|
|
|
460 String *UNUSED (params),
|
|
|
461 Cardinal *UNUSED (num_params))
|
|
424
|
462 {
|
|
|
463 RadioWidget rw = (RadioWidget)w;
|
|
|
464 DrawHighlight(w, rw->command.inverse_GC) ;
|
|
|
465 }
|
|
|
466
|
|
|
467
|
|
|
468 /* ARGSUSED */
|
|
442
|
469 void
|
|
424
|
470 RadioSet (Widget w,
|
|
2286
|
471 XEvent *UNUSED (event),
|
|
|
472 String *UNUSED (params),
|
|
|
473 Cardinal *UNUSED (num_params))
|
|
424
|
474 {
|
|
|
475 RadioWidget rw = (RadioWidget)w;
|
|
1201
|
476 RadioWidgetClass class_ = (RadioWidgetClass) w->core.widget_class ;
|
|
424
|
477
|
|
|
478 if( rw->command.set )
|
|
|
479 return ;
|
|
|
480
|
|
|
481 rw->command.set = TRUE ;
|
|
|
482 if( XtIsRealized(w) )
|
|
1201
|
483 class_->radio_class.drawDiamond(w) ;
|
|
424
|
484 }
|
|
|
485
|
|
|
486
|
|
|
487 /* ARGSUSED */
|
|
442
|
488 void
|
|
424
|
489 RadioUnset (Widget w,
|
|
2286
|
490 XEvent *UNUSED (event),
|
|
|
491 String *UNUSED (params),
|
|
|
492 Cardinal *UNUSED (num_params))
|
|
424
|
493 {
|
|
|
494 RadioWidget rw = (RadioWidget)w;
|
|
1201
|
495 RadioWidgetClass class_ = (RadioWidgetClass) w->core.widget_class ;
|
|
424
|
496
|
|
|
497 if( ! rw->command.set )
|
|
|
498 return ;
|
|
|
499
|
|
|
500 rw->command.set = FALSE ;
|
|
|
501 if( XtIsRealized(w) )
|
|
1201
|
502 class_->radio_class.drawDiamond(w) ;
|
|
424
|
503 }
|
|
|
504
|
|
|
505
|
|
|
506
|
|
|
507
|
|
|
508 /************************************************************
|
|
|
509 *
|
|
|
510 * Internal Procedures
|
|
|
511 *
|
|
|
512 ************************************************************/
|
|
|
513
|
|
|
514
|
|
|
515 /* Size of widget. Width is size of box plus width of border around
|
|
|
516 * box plus width of label plus three margins plus the size of the left
|
|
|
517 * bitmap, if any. Height is max(box,bitmap,label) plus two margins.
|
|
|
518 */
|
|
|
519
|
|
|
520 static void
|
|
|
521 RadioSize (RadioWidget rw,
|
|
|
522 Dimension *w,
|
|
|
523 Dimension *h)
|
|
|
524 {
|
|
|
525 *w = rw->label.label_width + bs(rw) + LEFT_OFFSET(rw) +
|
|
|
526 3 * rw->label.internal_width ;
|
|
|
527 *h = Max( rw->label.label_height, bs(rw) ) +
|
|
|
528 2 * rw->label.internal_width ;
|
|
|
529 }
|
|
|
530
|
|
|
531
|
|
|
532 static void
|
|
|
533 DrawDiamond (Widget w)
|
|
|
534 {
|
|
|
535 RadioWidget rw = (RadioWidget) w ;
|
|
|
536 Display *dpy = XtDisplay(w) ;
|
|
|
537 Window win = XtWindow(w) ;
|
|
|
538 GC gc, gci ;
|
|
|
539
|
|
|
540 XPoint pts[5] ;
|
|
|
541 Dimension del = bsize(rw)/2 ;
|
|
|
542 Position x,y ; /* diamond center */
|
|
|
543 #ifdef _ThreeDP_h
|
|
|
544 int i=0;
|
|
|
545 Dimension s = swid(rw) ;
|
|
|
546 GC top, bot, ctr ;
|
|
|
547 #endif
|
|
|
548 gc = XtIsSensitive(w) ? rw->command.normal_GC : rw->label.gray_GC ;
|
|
|
549
|
|
|
550 gci = rw->command.set ? rw->command.normal_GC : rw->command.inverse_GC ;
|
|
|
551
|
|
|
552 x = rw->label.internal_width + bs(rw)/2 ;
|
|
|
553 y = rw->core.height/2 ;
|
|
|
554
|
|
|
555 #ifdef _ThreeDP_h
|
|
|
556 if( ! rw->command.set ) {
|
|
|
557 top = rw->threeD.top_shadow_GC ;
|
|
|
558 bot = rw->threeD.bot_shadow_GC ;
|
|
|
559 ctr = gc ; /* TODO */
|
|
|
560 } else {
|
|
|
561 top = rw->threeD.bot_shadow_GC ;
|
|
|
562 bot = rw->threeD.top_shadow_GC ;
|
|
|
563 ctr = gc ; /* TODO */
|
|
|
564 }
|
|
|
565 #endif
|
|
|
566
|
|
|
567 pts[0].x = x - del ;
|
|
|
568 pts[0].y = y ;
|
|
|
569 pts[1].x = x ;
|
|
|
570 pts[1].y = y - del ;
|
|
|
571 pts[2].x = x + del ;
|
|
|
572 pts[2].y = y ;
|
|
|
573 pts[3].x = x ;
|
|
|
574 pts[3].y = y + del ;
|
|
|
575 pts[4] = pts[0] ;
|
|
|
576 XFillPolygon(dpy,win,gci, pts,4, Convex, CoordModeOrigin) ;
|
|
|
577
|
|
|
578 #ifdef _ThreeDP_h
|
|
|
579 for(i=0; i<s; ++i) {
|
|
|
580 XDrawLine(dpy,win,bot, x-i-del,y, x,y+del+i) ;
|
|
|
581 XDrawLine(dpy,win,bot, x+del+i,y, x,y+del+i) ;
|
|
|
582 }
|
|
|
583 for(i=0; i<s; ++i) {
|
|
|
584 XDrawLine(dpy,win,top, x-del-i,y, x,y-del-i) ;
|
|
|
585 XDrawLine(dpy,win,top, x+del+i,y, x,y-del-i) ;
|
|
|
586 }
|
|
|
587 #else
|
|
|
588 XDrawLines(dpy,win,gc, pts,5, CoordModeOrigin) ;
|
|
|
589 #endif
|
|
|
590 }
|
