1 /* Implements a lightweight menubar widget.
2 Copyright (C) 1992 Lucid, Inc.
4 This file is part of the Lucid Widget Library.
6 The Lucid Widget Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 The Lucid Widget Library 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 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to the
18 Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
21 /* Created by devin@lucid.com */
29 #include <sys/types.h>
31 #include <X11/IntrinsicP.h>
32 #include <X11/ObjectP.h>
33 #include <X11/StringDefs.h>
34 #include <X11/cursorfont.h>
35 #include <X11/bitmaps/gray>
38 static int pointer_grabbed
;
39 static XEvent menu_post_event
;
41 XFontStruct
*xlwmenu_default_font
;
44 xlwMenuTranslations
[] =
45 "<BtnDown>: start()\n\
48 <Key>Shift_L: nothing()\n\
49 <Key>Shift_R: nothing()\n\
50 <Key>Meta_L: nothing()\n\
51 <Key>Meta_R: nothing()\n\
52 <Key>Control_L: nothing()\n\
53 <Key>Control_R: nothing()\n\
54 <Key>Hyper_L: nothing()\n\
55 <Key>Hyper_R: nothing()\n\
56 <Key>Super_L: nothing()\n\
57 <Key>Super_R: nothing()\n\
58 <Key>Alt_L: nothing()\n\
59 <Key>Alt_R: nothing()\n\
60 <Key>Caps_Lock: nothing()\n\
61 <Key>Shift_Lock: nothing()\n\
62 <KeyUp>Shift_L: nothing()\n\
63 <KeyUp>Shift_R: nothing()\n\
64 <KeyUp>Meta_L: nothing()\n\
65 <KeyUp>Meta_R: nothing()\n\
66 <KeyUp>Control_L: nothing()\n\
67 <KeyUp>Control_R: nothing()\n\
68 <KeyUp>Hyper_L: nothing()\n\
69 <KeyUp>Hyper_R: nothing()\n\
70 <KeyUp>Super_L: nothing()\n\
71 <KeyUp>Super_R: nothing()\n\
72 <KeyUp>Alt_L: nothing()\n\
73 <KeyUp>Alt_R: nothing()\n\
74 <KeyUp>Caps_Lock: nothing()\n\
75 <KeyUp>Shift_Lock:nothing()\n\
80 #define offset(field) XtOffset(XlwMenuWidget, field)
84 {XtNfont
, XtCFont
, XtRFontStruct
, sizeof(XFontStruct
*),
85 offset(menu
.font
),XtRString
, "XtDefaultFont"},
86 {XtNforeground
, XtCForeground
, XtRPixel
, sizeof(Pixel
),
87 offset(menu
.foreground
), XtRString
, "XtDefaultForeground"},
88 {XtNbuttonForeground
, XtCButtonForeground
, XtRPixel
, sizeof(Pixel
),
89 offset(menu
.button_foreground
), XtRString
, "XtDefaultForeground"},
90 {XtNmargin
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
91 offset(menu
.margin
), XtRImmediate
, (XtPointer
) 4},
92 {XtNhorizontalSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
93 offset(menu
.horizontal_spacing
), XtRImmediate
, (XtPointer
)3},
94 {XtNverticalSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
95 offset(menu
.vertical_spacing
), XtRImmediate
, (XtPointer
)1},
96 {XtNarrowSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
97 offset(menu
.arrow_spacing
), XtRImmediate
, (XtPointer
)10},
99 {XmNshadowThickness
, XmCShadowThickness
, XtRDimension
,
100 sizeof (Dimension
), offset (menu
.shadow_thickness
),
101 XtRImmediate
, (XtPointer
) 2},
102 {XmNtopShadowColor
, XmCTopShadowColor
, XtRPixel
, sizeof (Pixel
),
103 offset (menu
.top_shadow_color
), XtRImmediate
, (XtPointer
)-1},
104 {XmNbottomShadowColor
, XmCBottomShadowColor
, XtRPixel
, sizeof (Pixel
),
105 offset (menu
.bottom_shadow_color
), XtRImmediate
, (XtPointer
)-1},
106 {XmNtopShadowPixmap
, XmCTopShadowPixmap
, XtRPixmap
, sizeof (Pixmap
),
107 offset (menu
.top_shadow_pixmap
), XtRImmediate
, (XtPointer
)None
},
108 {XmNbottomShadowPixmap
, XmCBottomShadowPixmap
, XtRPixmap
, sizeof (Pixmap
),
109 offset (menu
.bottom_shadow_pixmap
), XtRImmediate
, (XtPointer
)None
},
111 {XtNopen
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
112 offset(menu
.open
), XtRCallback
, (XtPointer
)NULL
},
113 {XtNselect
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
114 offset(menu
.select
), XtRCallback
, (XtPointer
)NULL
},
115 {XtNhighlightCallback
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
116 offset(menu
.highlight
), XtRCallback
, (XtPointer
)NULL
},
117 {XtNmenu
, XtCMenu
, XtRPointer
, sizeof(XtPointer
),
118 offset(menu
.contents
), XtRImmediate
, (XtPointer
)NULL
},
119 {XtNcursor
, XtCCursor
, XtRCursor
, sizeof(Cursor
),
120 offset(menu
.cursor_shape
), XtRString
, (XtPointer
)"right_ptr"},
121 {XtNhorizontal
, XtCHorizontal
, XtRInt
, sizeof(int),
122 offset(menu
.horizontal
), XtRImmediate
, (XtPointer
)True
},
126 static Boolean
XlwMenuSetValues();
127 static void XlwMenuRealize();
128 static void XlwMenuRedisplay();
129 static void XlwMenuResize();
130 static void XlwMenuInitialize();
131 static void XlwMenuRedisplay();
132 static void XlwMenuDestroy();
133 static void XlwMenuClassInitialize();
136 static void Select();
138 static void Nothing();
139 static int separator_height ();
142 xlwMenuActionsList
[] =
148 {"nothing", Nothing
},
151 #define SuperClass ((CoreWidgetClass)&coreClassRec)
153 XlwMenuClassRec xlwMenuClassRec
=
155 { /* CoreClass fields initialization */
156 (WidgetClass
) SuperClass
, /* superclass */
157 "XlwMenu", /* class_name */
158 sizeof(XlwMenuRec
), /* size */
159 XlwMenuClassInitialize
, /* class_initialize */
160 NULL
, /* class_part_initialize */
161 FALSE
, /* class_inited */
162 XlwMenuInitialize
, /* initialize */
163 NULL
, /* initialize_hook */
164 XlwMenuRealize
, /* realize */
165 xlwMenuActionsList
, /* actions */
166 XtNumber(xlwMenuActionsList
), /* num_actions */
167 xlwMenuResources
, /* resources */
168 XtNumber(xlwMenuResources
), /* resource_count */
169 NULLQUARK
, /* xrm_class */
170 TRUE
, /* compress_motion */
171 TRUE
, /* compress_exposure */
172 TRUE
, /* compress_enterleave */
173 FALSE
, /* visible_interest */
174 XlwMenuDestroy
, /* destroy */
175 XlwMenuResize
, /* resize */
176 XlwMenuRedisplay
, /* expose */
177 XlwMenuSetValues
, /* set_values */
178 NULL
, /* set_values_hook */
179 XtInheritSetValuesAlmost
, /* set_values_almost */
180 NULL
, /* get_values_hook */
181 NULL
, /* accept_focus */
182 XtVersion
, /* version */
183 NULL
, /* callback_private */
184 xlwMenuTranslations
, /* tm_table */
185 XtInheritQueryGeometry
, /* query_geometry */
186 XtInheritDisplayAccelerator
, /* display_accelerator */
188 }, /* XlwMenuClass fields initialization */
194 WidgetClass xlwMenuWidgetClass
= (WidgetClass
) &xlwMenuClassRec
;
196 int submenu_destroyed
;
198 static int next_release_must_exit
;
203 /* Like abort, but remove grabs from widget W before. */
209 if (XtIsShell (XtParent (w
)))
211 XtUngrabPointer (w
, CurrentTime
);
216 push_new_stack (mw
, val
)
220 if (!mw
->menu
.new_stack
)
222 mw
->menu
.new_stack_length
= 10;
224 (widget_value
**)XtCalloc (mw
->menu
.new_stack_length
,
225 sizeof (widget_value
*));
227 else if (mw
->menu
.new_depth
== mw
->menu
.new_stack_length
)
229 mw
->menu
.new_stack_length
*= 2;
231 (widget_value
**)XtRealloc ((char*)mw
->menu
.new_stack
,
232 mw
->menu
.new_stack_length
* sizeof (widget_value
*));
234 mw
->menu
.new_stack
[mw
->menu
.new_depth
++] = val
;
238 pop_new_stack_if_no_contents (mw
)
241 if (mw
->menu
.new_depth
)
243 if (!mw
->menu
.new_stack
[mw
->menu
.new_depth
- 1]->contents
)
244 mw
->menu
.new_depth
-= 1;
249 make_old_stack_space (mw
, n
)
253 if (!mw
->menu
.old_stack
)
255 mw
->menu
.old_stack_length
= 10;
257 (widget_value
**)XtCalloc (mw
->menu
.old_stack_length
,
258 sizeof (widget_value
*));
260 else if (mw
->menu
.old_stack_length
< n
)
262 mw
->menu
.old_stack_length
*= 2;
264 (widget_value
**)XtRealloc ((char*)mw
->menu
.old_stack
,
265 mw
->menu
.old_stack_length
* sizeof (widget_value
*));
278 XTextExtents (mw
->menu
.font
, s
, strlen (s
), &drop
, &drop
, &drop
, &xcs
);
286 return (mw
->menu
.font
->ascent
* 3/4) | 1;
289 /* Return the width of toggle buttons of widget MW. */
292 toggle_button_width (mw
)
295 return ((mw
->menu
.font
->ascent
+ mw
->menu
.font
->descent
) * 2 / 3) | 1;
299 /* Return the width of radio buttons of widget MW. */
302 radio_button_width (mw
)
305 return toggle_button_width (mw
) * 1.41;
312 {"labelString", "LabelString", XtRString
, sizeof(String
),
317 resource_widget_value (mw
, val
)
321 if (!val
->toolkit_data
)
323 char* resourced_name
= NULL
;
325 XtGetSubresources ((Widget
) mw
,
326 (XtPointer
) &resourced_name
,
327 val
->name
, val
->name
,
328 nameResource
, 1, NULL
, 0);
330 resourced_name
= val
->name
;
333 complete_name
= (char *) XtMalloc (strlen (resourced_name
) + 1);
334 strcpy (complete_name
, resourced_name
);
338 int complete_length
=
339 strlen (resourced_name
) + strlen (val
->value
) + 2;
340 complete_name
= XtMalloc (complete_length
);
342 strcat (complete_name
, resourced_name
);
343 strcat (complete_name
, " ");
344 strcat (complete_name
, val
->value
);
347 val
->toolkit_data
= complete_name
;
348 val
->free_toolkit_data
= True
;
350 return (char*)val
->toolkit_data
;
353 /* Returns the sizes of an item */
355 size_menu_item (mw
, val
, horizontal_p
, label_width
, rest_width
, button_width
,
365 enum menu_separator separator
;
367 if (lw_separator_p (val
->name
, &separator
, 0))
369 *height
= separator_height (separator
);
377 mw
->menu
.font
->ascent
+ mw
->menu
.font
->descent
378 + 2 * mw
->menu
.vertical_spacing
+ 2 * mw
->menu
.shadow_thickness
;
381 string_width (mw
, resource_widget_value (mw
, val
))
382 + mw
->menu
.horizontal_spacing
+ mw
->menu
.shadow_thickness
;
384 *rest_width
= mw
->menu
.horizontal_spacing
+ mw
->menu
.shadow_thickness
;
388 /* Add width of the arrow displayed for submenus. */
389 *rest_width
+= arrow_width (mw
) + mw
->menu
.arrow_spacing
;
391 /* Add width of key equivalent string. */
392 *rest_width
+= (string_width (mw
, val
->key
)
393 + mw
->menu
.arrow_spacing
);
395 if (val
->button_type
== BUTTON_TYPE_TOGGLE
)
396 *button_width
= (toggle_button_width (mw
)
397 + mw
->menu
.horizontal_spacing
);
398 else if (val
->button_type
== BUTTON_TYPE_RADIO
)
399 *button_width
= (radio_button_width (mw
)
400 + mw
->menu
.horizontal_spacing
);
406 size_menu (mw
, level
)
410 unsigned int label_width
= 0;
412 int button_width
= 0;
413 int max_rest_width
= 0;
414 int max_button_width
= 0;
415 unsigned int height
= 0;
416 int horizontal_p
= mw
->menu
.horizontal
&& (level
== 0);
420 if (level
>= mw
->menu
.old_depth
)
421 abort_gracefully ((Widget
) mw
);
423 ws
= &mw
->menu
.windows
[level
];
427 ws
->button_width
= 0;
429 for (val
= mw
->menu
.old_stack
[level
]->contents
; val
; val
= val
->next
)
431 size_menu_item (mw
, val
, horizontal_p
, &label_width
, &rest_width
,
432 &button_width
, &height
);
435 ws
->width
+= label_width
+ rest_width
;
436 if (height
> ws
->height
)
441 if (label_width
> ws
->label_width
)
442 ws
->label_width
= label_width
;
443 if (rest_width
> max_rest_width
)
444 max_rest_width
= rest_width
;
445 if (button_width
> max_button_width
)
446 max_button_width
= button_width
;
447 ws
->height
+= height
;
452 ws
->label_width
= ws
->button_width
= 0;
455 ws
->width
= ws
->label_width
+ max_rest_width
+ max_button_width
;
456 ws
->button_width
= max_button_width
;
459 ws
->width
+= 2 * mw
->menu
.shadow_thickness
;
460 ws
->height
+= 2 * mw
->menu
.shadow_thickness
;
464 ws
->width
+= 2 * mw
->menu
.margin
;
465 ws
->height
+= 2 * mw
->menu
.margin
;
473 draw_arrow (mw
, window
, gc
, x
, y
, width
, down_p
)
482 Display
*dpy
= XtDisplay (mw
);
483 GC top_gc
= mw
->menu
.shadow_top_gc
;
484 GC bottom_gc
= mw
->menu
.shadow_bottom_gc
;
485 int thickness
= mw
->menu
.shadow_thickness
;
488 /* alpha = atan (0.5)
489 factor = (1 + sin (alpha)) / cos (alpha) */
490 double factor
= 1.62;
491 int thickness2
= thickness
* factor
;
493 y
+= (mw
->menu
.font
->ascent
+ mw
->menu
.font
->descent
- height
) / 2;
504 pt
[0].y
= y
+ height
;
505 pt
[1].x
= x
+ thickness
;
506 pt
[1].y
= y
+ height
- thickness2
;
507 pt
[2].x
= x
+ thickness2
;
508 pt
[2].y
= y
+ thickness2
;
511 XFillPolygon (dpy
, window
, top_gc
, pt
, 4, Convex
, CoordModeOrigin
);
515 pt
[1].x
= x
+ thickness
;
516 pt
[1].y
= y
+ thickness2
;
517 pt
[2].x
= x
+ width
- thickness2
;
518 pt
[2].y
= y
+ height
/ 2;
520 pt
[3].y
= y
+ height
/ 2;
521 XFillPolygon (dpy
, window
, top_gc
, pt
, 4, Convex
, CoordModeOrigin
);
524 pt
[0].y
= y
+ height
;
525 pt
[1].x
= x
+ thickness
;
526 pt
[1].y
= y
+ height
- thickness2
;
527 pt
[2].x
= x
+ width
- thickness2
;
528 pt
[2].y
= y
+ height
/ 2;
530 pt
[3].y
= y
+ height
/ 2;
531 XFillPolygon (dpy
, window
, bottom_gc
, pt
, 4, Convex
, CoordModeOrigin
);
537 draw_shadow_rectangle (mw
, window
, x
, y
, width
, height
, erase_p
, down_p
)
547 Display
*dpy
= XtDisplay (mw
);
548 GC top_gc
= !erase_p
? mw
->menu
.shadow_top_gc
: mw
->menu
.background_gc
;
549 GC bottom_gc
= !erase_p
? mw
->menu
.shadow_bottom_gc
: mw
->menu
.background_gc
;
550 int thickness
= mw
->menu
.shadow_thickness
;
553 if (!erase_p
&& down_p
)
563 points
[1].x
= x
+ width
;
565 points
[2].x
= x
+ width
- thickness
;
566 points
[2].y
= y
+ thickness
;
568 points
[3].y
= y
+ thickness
;
569 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
571 points
[0].y
= y
+ thickness
;
573 points
[1].y
= y
+ height
;
574 points
[2].x
= x
+ thickness
;
575 points
[2].y
= y
+ height
- thickness
;
576 points
[3].x
= x
+ thickness
;
577 points
[3].y
= y
+ thickness
;
578 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
579 points
[0].x
= x
+ width
;
581 points
[1].x
= x
+ width
- thickness
;
582 points
[1].y
= y
+ thickness
;
583 points
[2].x
= x
+ width
- thickness
;
584 points
[2].y
= y
+ height
- thickness
;
585 points
[3].x
= x
+ width
;
586 points
[3].y
= y
+ height
- thickness
;
587 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
589 points
[0].y
= y
+ height
;
590 points
[1].x
= x
+ width
;
591 points
[1].y
= y
+ height
;
592 points
[2].x
= x
+ width
;
593 points
[2].y
= y
+ height
- thickness
;
594 points
[3].x
= x
+ thickness
;
595 points
[3].y
= y
+ height
- thickness
;
596 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
601 draw_shadow_rhombus (mw
, window
, x
, y
, width
, height
, erase_p
, down_p
)
611 Display
*dpy
= XtDisplay (mw
);
612 GC top_gc
= !erase_p
? mw
->menu
.shadow_top_gc
: mw
->menu
.background_gc
;
613 GC bottom_gc
= !erase_p
? mw
->menu
.shadow_bottom_gc
: mw
->menu
.background_gc
;
614 int thickness
= mw
->menu
.shadow_thickness
;
616 double sqrt2
= 1.4142;
618 if (!erase_p
&& down_p
)
627 points
[0].y
= y
+ height
/ 2;
628 points
[1].x
= x
+ thickness
;
629 points
[1].y
= y
+ height
/ 2;
630 points
[2].x
= x
+ width
/ 2;
631 points
[2].y
= y
+ thickness
;
632 points
[3].x
= x
+ width
/ 2;
634 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
635 points
[0].x
= x
+ width
/ 2;
637 points
[1].x
= x
+ width
/ 2;
638 points
[1].y
= y
+ thickness
;
639 points
[2].x
= x
+ width
- thickness
;
640 points
[2].y
= y
+ height
/ 2;
641 points
[3].x
= x
+ width
;
642 points
[3].y
= y
+ height
/ 2;
643 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
645 points
[0].y
= y
+ height
/ 2;
646 points
[1].x
= x
+ thickness
;
647 points
[1].y
= y
+ height
/ 2;
648 points
[2].x
= x
+ width
/ 2;
649 points
[2].y
= y
+ height
- thickness
;
650 points
[3].x
= x
+ width
/ 2;
651 points
[3].y
= y
+ height
;
652 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
653 points
[0].x
= x
+ width
/ 2;
654 points
[0].y
= y
+ height
;
655 points
[1].x
= x
+ width
/ 2;
656 points
[1].y
= y
+ height
- thickness
;
657 points
[2].x
= x
+ width
- thickness
;
658 points
[2].y
= y
+ height
/ 2;
659 points
[3].x
= x
+ width
;
660 points
[3].y
= y
+ height
/ 2;
661 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
665 /* Draw a toggle button on widget MW, X window WINDOW. X/Y is the
666 top-left corner of the menu item. SELECTED_P non-zero means the
667 toggle button is selected. */
670 draw_toggle (mw
, window
, x
, y
, selected_p
)
673 int x
, y
, selected_p
;
677 width
= toggle_button_width (mw
);
679 x
+= mw
->menu
.horizontal_spacing
;
680 y
+= (mw
->menu
.font
->ascent
- height
) / 2;
681 draw_shadow_rectangle (mw
, window
, x
, y
, width
, height
, False
, selected_p
);
685 /* Draw a radio button on widget MW, X window WINDOW. X/Y is the
686 top-left corner of the menu item. SELECTED_P non-zero means the
687 toggle button is selected. */
690 draw_radio (mw
, window
, x
, y
, selected_p
)
693 int x
, y
, selected_p
;
697 width
= radio_button_width (mw
);
699 x
+= mw
->menu
.horizontal_spacing
;
700 y
+= (mw
->menu
.font
->ascent
- height
) / 2;
701 draw_shadow_rhombus (mw
, window
, x
, y
, width
, height
, False
, selected_p
);
705 /* Draw a menu separator on widget MW, X window WINDOW. X/Y is the
706 top-left corner of the menu item. WIDTH is the width of the
707 separator to draw. TYPE is the separator type. */
710 draw_separator (mw
, window
, x
, y
, width
, type
)
714 enum menu_separator type
;
716 Display
*dpy
= XtDisplay (mw
);
721 case SEPARATOR_NO_LINE
:
724 case SEPARATOR_SINGLE_LINE
:
725 XDrawLine (dpy
, window
, mw
->menu
.foreground_gc
,
729 case SEPARATOR_DOUBLE_LINE
:
730 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SINGLE_LINE
);
731 draw_separator (mw
, window
, x
, y
+ 2, width
, SEPARATOR_SINGLE_LINE
);
734 case SEPARATOR_SINGLE_DASHED_LINE
:
735 xgcv
.line_style
= LineOnOffDash
;
736 XChangeGC (dpy
, mw
->menu
.foreground_gc
, GCLineStyle
, &xgcv
);
737 XDrawLine (dpy
, window
, mw
->menu
.foreground_gc
,
739 xgcv
.line_style
= LineSolid
;
740 XChangeGC (dpy
, mw
->menu
.foreground_gc
, GCLineStyle
, &xgcv
);
743 case SEPARATOR_DOUBLE_DASHED_LINE
:
744 draw_separator (mw
, window
, x
, y
, width
,
745 SEPARATOR_SINGLE_DASHED_LINE
);
746 draw_separator (mw
, window
, x
, y
+ 2, width
,
747 SEPARATOR_SINGLE_DASHED_LINE
);
750 case SEPARATOR_SHADOW_ETCHED_IN
:
751 XDrawLine (dpy
, window
, mw
->menu
.shadow_bottom_gc
,
753 XDrawLine (dpy
, window
, mw
->menu
.shadow_top_gc
,
754 x
, y
+ 1, x
+ width
, y
+ 1);
757 case SEPARATOR_SHADOW_ETCHED_OUT
:
758 XDrawLine (dpy
, window
, mw
->menu
.shadow_top_gc
,
760 XDrawLine (dpy
, window
, mw
->menu
.shadow_bottom_gc
,
761 x
, y
+ 1, x
+ width
, y
+ 1);
764 case SEPARATOR_SHADOW_ETCHED_IN_DASH
:
765 xgcv
.line_style
= LineOnOffDash
;
766 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
767 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
768 draw_separator (mw
, window
, x
, y
, SEPARATOR_SHADOW_ETCHED_IN
);
769 xgcv
.line_style
= LineSolid
;
770 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
771 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
774 case SEPARATOR_SHADOW_ETCHED_OUT_DASH
:
775 xgcv
.line_style
= LineOnOffDash
;
776 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
777 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
778 draw_separator (mw
, window
, x
, y
, SEPARATOR_SHADOW_ETCHED_OUT
);
779 xgcv
.line_style
= LineSolid
;
780 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
781 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
784 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
:
785 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SHADOW_ETCHED_IN
);
786 draw_separator (mw
, window
, x
, y
+ 3, width
, SEPARATOR_SHADOW_ETCHED_IN
);
789 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
:
790 draw_separator (mw
, window
, x
, y
, width
,
791 SEPARATOR_SHADOW_ETCHED_OUT
);
792 draw_separator (mw
, window
, x
, y
+ 3, width
,
793 SEPARATOR_SHADOW_ETCHED_OUT
);
796 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
:
797 xgcv
.line_style
= LineOnOffDash
;
798 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
799 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
800 draw_separator (mw
, window
, x
, y
, width
,
801 SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
);
802 xgcv
.line_style
= LineSolid
;
803 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
804 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
807 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
:
808 xgcv
.line_style
= LineOnOffDash
;
809 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
810 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
811 draw_separator (mw
, window
, x
, y
, width
,
812 SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
);
813 xgcv
.line_style
= LineSolid
;
814 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
815 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
824 /* Return the pixel height of menu separator SEPARATOR. */
827 separator_height (separator
)
828 enum menu_separator separator
;
832 case SEPARATOR_NO_LINE
:
835 case SEPARATOR_SINGLE_LINE
:
836 case SEPARATOR_SINGLE_DASHED_LINE
:
839 case SEPARATOR_DOUBLE_LINE
:
840 case SEPARATOR_DOUBLE_DASHED_LINE
:
843 case SEPARATOR_SHADOW_ETCHED_IN
:
844 case SEPARATOR_SHADOW_ETCHED_OUT
:
845 case SEPARATOR_SHADOW_ETCHED_IN_DASH
:
846 case SEPARATOR_SHADOW_ETCHED_OUT_DASH
:
849 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
:
850 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
:
851 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
:
852 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
:
861 /* Display the menu item and increment where.x and where.y to show how large
862 the menu item was. */
865 display_menu_item (mw
, val
, ws
, where
, highlighted_p
, horizontal_p
,
871 Boolean highlighted_p
;
872 Boolean horizontal_p
;
873 Boolean just_compute_p
;
877 int font_ascent
= mw
->menu
.font
->ascent
;
878 int font_descent
= mw
->menu
.font
->descent
;
879 int shadow
= mw
->menu
.shadow_thickness
;
880 int margin
= mw
->menu
.margin
;
881 int h_spacing
= mw
->menu
.horizontal_spacing
;
882 int v_spacing
= mw
->menu
.vertical_spacing
;
888 enum menu_separator separator
;
889 int separator_p
= lw_separator_p (val
->name
, &separator
, 0);
891 /* compute the sizes of the item */
892 size_menu_item (mw
, val
, horizontal_p
, &label_width
, &rest_width
,
893 &button_width
, &height
);
896 width
= label_width
+ rest_width
;
899 label_width
= ws
->label_width
;
900 width
= ws
->width
- 2 * shadow
;
903 /* Only highlight an enabled item that has a callback. */
905 if (!val
->enabled
|| !(val
->call_data
|| val
->contents
))
908 /* do the drawing. */
911 /* Add the shadow border of the containing menu */
912 int x
= where
->x
+ shadow
;
913 int y
= where
->y
+ shadow
;
921 /* pick the foreground and background GC. */
923 text_gc
= mw
->menu
.foreground_gc
;
925 text_gc
= mw
->menu
.inactive_gc
;
926 deco_gc
= mw
->menu
.foreground_gc
;
930 draw_separator (mw
, ws
->window
, x
, y
, width
, separator
);
934 int x_offset
= x
+ h_spacing
+ shadow
;
935 char* display_string
= resource_widget_value (mw
, val
);
936 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
, True
,
939 /* Deal with centering a menu title. */
940 if (!horizontal_p
&& !val
->contents
&& !val
->call_data
)
942 int l
= string_width (mw
, display_string
);
945 x_offset
= (width
- l
) >> 1;
947 else if (!horizontal_p
&& ws
->button_width
)
948 x_offset
+= ws
->button_width
;
951 XDrawString (XtDisplay (mw
), ws
->window
, text_gc
, x_offset
,
952 y
+ v_spacing
+ shadow
+ font_ascent
,
953 display_string
, strlen (display_string
));
957 if (val
->button_type
== BUTTON_TYPE_TOGGLE
)
958 draw_toggle (mw
, ws
->window
, x
, y
+ v_spacing
+ shadow
,
960 else if (val
->button_type
== BUTTON_TYPE_RADIO
)
961 draw_radio (mw
, ws
->window
, x
, y
+ v_spacing
+ shadow
,
966 int a_w
= arrow_width (mw
);
967 draw_arrow (mw
, ws
->window
, deco_gc
,
969 - mw
->menu
.horizontal_spacing
970 - mw
->menu
.shadow_thickness
,
971 y
+ v_spacing
+ shadow
, a_w
,
976 XDrawString (XtDisplay (mw
), ws
->window
, text_gc
,
977 x
+ label_width
+ mw
->menu
.arrow_spacing
,
978 y
+ v_spacing
+ shadow
+ font_ascent
,
979 val
->key
, strlen (val
->key
));
984 XDrawRectangle (XtDisplay (mw
), ws
->window
,
985 mw
->menu
.background_gc
,
986 x
+ shadow
, y
+ shadow
,
987 label_width
+ h_spacing
- 1,
988 font_ascent
+ font_descent
+ 2 * v_spacing
- 1);
989 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
,
994 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
, False
,
1004 display_menu (mw
, level
, just_compute_p
, highlighted_pos
, hit
, hit_return
,
1008 Boolean just_compute_p
;
1009 XPoint
* highlighted_pos
;
1011 widget_value
** hit_return
;
1016 widget_value
* following_item
;
1019 int horizontal_p
= mw
->menu
.horizontal
&& (level
== 0);
1021 int just_compute_this_one_p
;
1022 /* This is set nonzero if the element containing HIGHLIGHTED_POS
1023 is disabled, so that we do not return any subsequent element either. */
1025 enum menu_separator separator
;
1027 if (level
>= mw
->menu
.old_depth
)
1028 abort_gracefully ((Widget
) mw
);
1030 if (level
< mw
->menu
.old_depth
- 1)
1031 following_item
= mw
->menu
.old_stack
[level
+ 1];
1033 following_item
= NULL
;
1041 ws
= &mw
->menu
.windows
[level
];
1042 for (val
= mw
->menu
.old_stack
[level
]->contents
; val
; val
= val
->next
)
1044 highlighted_p
= val
== following_item
;
1045 if (highlighted_p
&& highlighted_pos
)
1048 highlighted_pos
->x
= where
.x
;
1050 highlighted_pos
->y
= where
.y
;
1053 just_compute_this_one_p
=
1054 just_compute_p
|| ((this || that
) && val
!= this && val
!= that
);
1056 display_menu_item (mw
, val
, ws
, &where
, highlighted_p
, horizontal_p
,
1057 just_compute_this_one_p
);
1059 if (highlighted_p
&& highlighted_pos
)
1062 highlighted_pos
->y
= where
.y
;
1064 highlighted_pos
->x
= where
.x
;
1069 && (horizontal_p
? hit
->x
< where
.x
: hit
->y
< where
.y
)
1070 && !lw_separator_p (val
->name
, &separator
, 0)
1085 if (!just_compute_p
)
1086 draw_shadow_rectangle (mw
, ws
->window
, 0, 0, ws
->width
, ws
->height
,
1092 set_new_state (mw
, val
, level
)
1099 mw
->menu
.new_depth
= 0;
1100 for (i
= 0; i
< level
; i
++)
1101 push_new_stack (mw
, mw
->menu
.old_stack
[i
]);
1102 push_new_stack (mw
, val
);
1106 make_windows_if_needed (mw
, n
)
1112 XSetWindowAttributes xswa
;
1114 Window root
= RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw
)));
1115 window_state
* windows
;
1117 if (mw
->menu
.windows_length
>= n
)
1120 xswa
.save_under
= True
;
1121 xswa
.override_redirect
= True
;
1122 xswa
.background_pixel
= mw
->core
.background_pixel
;
1123 xswa
.border_pixel
= mw
->core
.border_pixel
;
1125 ExposureMask
| PointerMotionMask
| PointerMotionHintMask
1126 | ButtonReleaseMask
| ButtonPressMask
;
1127 xswa
.cursor
= mw
->menu
.cursor_shape
;
1128 mask
= CWSaveUnder
| CWOverrideRedirect
| CWBackPixel
| CWBorderPixel
1129 | CWEventMask
| CWCursor
;
1131 if (!mw
->menu
.windows
)
1134 (window_state
*)XtMalloc (n
* sizeof (window_state
));
1140 (window_state
*)XtRealloc ((char*)mw
->menu
.windows
,
1141 n
* sizeof (window_state
));
1142 start_at
= mw
->menu
.windows_length
;
1144 mw
->menu
.windows_length
= n
;
1146 windows
= mw
->menu
.windows
;
1148 for (i
= start_at
; i
< n
; i
++)
1152 windows
[i
].width
= 1;
1153 windows
[i
].height
= 1;
1154 windows
[i
].window
=
1155 XCreateWindow (XtDisplay (mw
), root
, 0, 0, 1, 1,
1156 0, 0, CopyFromParent
, CopyFromParent
, mask
, &xswa
);
1160 /* Make the window fit in the screen */
1162 fit_to_screen (mw
, ws
, previous_ws
, horizontal_p
)
1165 window_state
* previous_ws
;
1166 Boolean horizontal_p
;
1168 unsigned int screen_width
= WidthOfScreen (XtScreen (mw
));
1169 unsigned int screen_height
= HeightOfScreen (XtScreen (mw
));
1170 /* 1 if we are unable to avoid an overlap between
1171 this menu and the parent menu in the X dimension. */
1172 int horizontal_overlap
= 0;
1176 else if (ws
->x
+ ws
->width
> screen_width
)
1179 ws
->x
= previous_ws
->x
- ws
->width
;
1181 ws
->x
= screen_width
- ws
->width
;
1185 horizontal_overlap
= 1;
1188 /* If we overlap in X, try to avoid overlap in Y. */
1189 if (horizontal_overlap
1190 && ws
->y
< previous_ws
->y
+ previous_ws
->height
1191 && previous_ws
->y
< ws
->y
+ ws
->height
)
1193 /* Put this menu right below or right above PREVIOUS_WS
1195 if (previous_ws
->y
+ previous_ws
->height
+ ws
->height
< screen_height
)
1196 ws
->y
= previous_ws
->y
+ previous_ws
->height
;
1197 else if (previous_ws
->y
- ws
->height
> 0)
1198 ws
->y
= previous_ws
->y
- ws
->height
;
1203 else if (ws
->y
+ ws
->height
> screen_height
)
1206 ws
->y
= previous_ws
->y
- ws
->height
;
1208 ws
->y
= screen_height
- ws
->height
;
1214 /* Updates old_stack from new_stack and redisplays. */
1221 XPoint selection_position
;
1222 int old_depth
= mw
->menu
.old_depth
;
1223 int new_depth
= mw
->menu
.new_depth
;
1224 widget_value
** old_stack
;
1225 widget_value
** new_stack
;
1226 window_state
* windows
;
1227 widget_value
* old_selection
;
1228 widget_value
* new_selection
;
1230 /* Check that enough windows and old_stack are ready. */
1231 make_windows_if_needed (mw
, new_depth
);
1232 make_old_stack_space (mw
, new_depth
);
1233 windows
= mw
->menu
.windows
;
1234 old_stack
= mw
->menu
.old_stack
;
1235 new_stack
= mw
->menu
.new_stack
;
1237 /* compute the last identical different entry */
1238 for (i
= 1; i
< old_depth
&& i
< new_depth
; i
++)
1239 if (old_stack
[i
] != new_stack
[i
])
1243 /* Memorize the previously selected item to be able to refresh it */
1244 old_selection
= last_same
+ 1 < old_depth
? old_stack
[last_same
+ 1] : NULL
;
1245 if (old_selection
&& !old_selection
->enabled
)
1246 old_selection
= NULL
;
1247 new_selection
= last_same
+ 1 < new_depth
? new_stack
[last_same
+ 1] : NULL
;
1248 if (new_selection
&& !new_selection
->enabled
)
1249 new_selection
= NULL
;
1251 /* Call callback when the hightlighted item changes. */
1252 if (old_selection
|| new_selection
)
1253 XtCallCallbackList ((Widget
)mw
, mw
->menu
.highlight
,
1254 (XtPointer
) new_selection
);
1256 /* updates old_state from new_state. It has to be done now because
1257 display_menu (called below) uses the old_stack to know what to display. */
1258 for (i
= last_same
+ 1; i
< new_depth
; i
++)
1259 old_stack
[i
] = new_stack
[i
];
1260 mw
->menu
.old_depth
= new_depth
;
1262 /* refresh the last selection */
1263 selection_position
.x
= 0;
1264 selection_position
.y
= 0;
1265 display_menu (mw
, last_same
, new_selection
== old_selection
,
1266 &selection_position
, NULL
, NULL
, old_selection
, new_selection
);
1268 /* Now place the new menus. */
1269 for (i
= last_same
+ 1; i
< new_depth
&& new_stack
[i
]->contents
; i
++)
1271 window_state
*previous_ws
= &windows
[i
- 1];
1272 window_state
*ws
= &windows
[i
];
1274 ws
->x
= (previous_ws
->x
+ selection_position
.x
1275 + mw
->menu
.shadow_thickness
);
1277 ws
->x
+= mw
->menu
.margin
;
1280 if (!mw
->menu
.horizontal
|| i
> 1)
1281 ws
->x
+= mw
->menu
.shadow_thickness
;
1284 ws
->y
= (previous_ws
->y
+ selection_position
.y
1285 + mw
->menu
.shadow_thickness
);
1287 ws
->y
+= mw
->menu
.margin
;
1291 fit_to_screen (mw
, ws
, previous_ws
, mw
->menu
.horizontal
&& i
== 1);
1293 XClearWindow (XtDisplay (mw
), ws
->window
);
1294 XMoveResizeWindow (XtDisplay (mw
), ws
->window
, ws
->x
, ws
->y
,
1295 ws
->width
, ws
->height
);
1296 XMapRaised (XtDisplay (mw
), ws
->window
);
1297 display_menu (mw
, i
, False
, &selection_position
, NULL
, NULL
, NULL
, NULL
);
1300 /* unmap the menus that popped down */
1301 for (i
= new_depth
- 1; i
< old_depth
; i
++)
1302 if (i
>= new_depth
|| !new_stack
[i
]->contents
)
1303 XUnmapWindow (XtDisplay (mw
), windows
[i
].window
);
1307 motion_event_is_in_menu (mw
, ev
, level
, relative_pos
)
1311 XPoint
* relative_pos
;
1313 window_state
* ws
= &mw
->menu
.windows
[level
];
1314 int shadow
= level
== 0 ? 0 : mw
->menu
.shadow_thickness
;
1315 int x
= ws
->x
+ shadow
;
1316 int y
= ws
->y
+ shadow
;
1317 relative_pos
->x
= ev
->x_root
- x
;
1318 relative_pos
->y
= ev
->y_root
- y
;
1319 return (x
- shadow
< ev
->x_root
&& ev
->x_root
< x
+ ws
->width
1320 && y
- shadow
< ev
->y_root
&& ev
->y_root
< y
+ ws
->height
);
1324 map_event_to_widget_value (mw
, ev
, val
, level
)
1331 XPoint relative_pos
;
1336 /* Find the window */
1337 for (i
= mw
->menu
.old_depth
- 1; i
>= 0; i
--)
1339 ws
= &mw
->menu
.windows
[i
];
1340 if (ws
&& motion_event_is_in_menu (mw
, ev
, i
, &relative_pos
))
1342 display_menu (mw
, i
, True
, NULL
, &relative_pos
, val
, NULL
, NULL
);
1356 make_drawing_gcs (mw
)
1361 xgcv
.font
= mw
->menu
.font
->fid
;
1362 xgcv
.foreground
= mw
->menu
.foreground
;
1363 xgcv
.background
= mw
->core
.background_pixel
;
1364 mw
->menu
.foreground_gc
= XtGetGC ((Widget
)mw
,
1365 GCFont
| GCForeground
| GCBackground
,
1368 xgcv
.font
= mw
->menu
.font
->fid
;
1369 xgcv
.foreground
= mw
->menu
.button_foreground
;
1370 xgcv
.background
= mw
->core
.background_pixel
;
1371 mw
->menu
.button_gc
= XtGetGC ((Widget
)mw
,
1372 GCFont
| GCForeground
| GCBackground
,
1375 xgcv
.font
= mw
->menu
.font
->fid
;
1376 xgcv
.foreground
= mw
->menu
.foreground
;
1377 xgcv
.background
= mw
->core
.background_pixel
;
1378 xgcv
.fill_style
= FillStippled
;
1379 xgcv
.stipple
= mw
->menu
.gray_pixmap
;
1380 mw
->menu
.inactive_gc
= XtGetGC ((Widget
)mw
,
1381 (GCFont
| GCForeground
| GCBackground
1382 | GCFillStyle
| GCStipple
), &xgcv
);
1384 xgcv
.font
= mw
->menu
.font
->fid
;
1385 xgcv
.foreground
= mw
->menu
.button_foreground
;
1386 xgcv
.background
= mw
->core
.background_pixel
;
1387 xgcv
.fill_style
= FillStippled
;
1388 xgcv
.stipple
= mw
->menu
.gray_pixmap
;
1389 mw
->menu
.inactive_button_gc
= XtGetGC ((Widget
)mw
,
1390 (GCFont
| GCForeground
| GCBackground
1391 | GCFillStyle
| GCStipple
), &xgcv
);
1393 xgcv
.font
= mw
->menu
.font
->fid
;
1394 xgcv
.foreground
= mw
->core
.background_pixel
;
1395 xgcv
.background
= mw
->menu
.foreground
;
1396 mw
->menu
.background_gc
= XtGetGC ((Widget
)mw
,
1397 GCFont
| GCForeground
| GCBackground
,
1402 release_drawing_gcs (mw
)
1405 XtReleaseGC ((Widget
) mw
, mw
->menu
.foreground_gc
);
1406 XtReleaseGC ((Widget
) mw
, mw
->menu
.button_gc
);
1407 XtReleaseGC ((Widget
) mw
, mw
->menu
.inactive_gc
);
1408 XtReleaseGC ((Widget
) mw
, mw
->menu
.inactive_button_gc
);
1409 XtReleaseGC ((Widget
) mw
, mw
->menu
.background_gc
);
1410 /* let's get some segvs if we try to use these... */
1411 mw
->menu
.foreground_gc
= (GC
) -1;
1412 mw
->menu
.button_gc
= (GC
) -1;
1413 mw
->menu
.inactive_gc
= (GC
) -1;
1414 mw
->menu
.inactive_button_gc
= (GC
) -1;
1415 mw
->menu
.background_gc
= (GC
) -1;
1418 #define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \
1419 ? ((unsigned long) (x)) : ((unsigned long) (y)))
1422 make_shadow_gcs (mw
)
1426 unsigned long pm
= 0;
1427 Display
*dpy
= XtDisplay ((Widget
) mw
);
1428 Screen
*screen
= XtScreen ((Widget
) mw
);
1429 Colormap cmap
= mw
->core
.colormap
;
1431 int top_frobbed
= 0, bottom_frobbed
= 0;
1433 if (mw
->menu
.top_shadow_color
== -1)
1434 mw
->menu
.top_shadow_color
= mw
->core
.background_pixel
;
1435 if (mw
->menu
.bottom_shadow_color
== -1)
1436 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1438 if (mw
->menu
.top_shadow_color
== mw
->core
.background_pixel
||
1439 mw
->menu
.top_shadow_color
== mw
->menu
.foreground
)
1441 topc
.pixel
= mw
->core
.background_pixel
;
1442 XQueryColor (dpy
, cmap
, &topc
);
1443 /* don't overflow/wrap! */
1444 topc
.red
= MINL (65535, topc
.red
* 1.2);
1445 topc
.green
= MINL (65535, topc
.green
* 1.2);
1446 topc
.blue
= MINL (65535, topc
.blue
* 1.2);
1448 if (x_alloc_nearest_color_for_widget (mw
, cmap
, &topc
))
1450 if (XAllocColor (dpy
, cmap
, &topc
))
1453 mw
->menu
.top_shadow_color
= topc
.pixel
;
1457 if (mw
->menu
.bottom_shadow_color
== mw
->menu
.foreground
||
1458 mw
->menu
.bottom_shadow_color
== mw
->core
.background_pixel
)
1460 botc
.pixel
= mw
->core
.background_pixel
;
1461 XQueryColor (dpy
, cmap
, &botc
);
1466 if (x_alloc_nearest_color_for_widget (mw
, cmap
, &botc
))
1468 if (XAllocColor (dpy
, cmap
, &botc
))
1471 mw
->menu
.bottom_shadow_color
= botc
.pixel
;
1476 if (top_frobbed
&& bottom_frobbed
)
1478 int top_avg
= ((topc
.red
/ 3) + (topc
.green
/ 3) + (topc
.blue
/ 3));
1479 int bot_avg
= ((botc
.red
/ 3) + (botc
.green
/ 3) + (botc
.blue
/ 3));
1480 if (bot_avg
> top_avg
)
1482 Pixel tmp
= mw
->menu
.top_shadow_color
;
1483 mw
->menu
.top_shadow_color
= mw
->menu
.bottom_shadow_color
;
1484 mw
->menu
.bottom_shadow_color
= tmp
;
1486 else if (topc
.pixel
== botc
.pixel
)
1488 if (botc
.pixel
== mw
->menu
.foreground
)
1489 mw
->menu
.top_shadow_color
= mw
->core
.background_pixel
;
1491 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1495 if (!mw
->menu
.top_shadow_pixmap
&&
1496 mw
->menu
.top_shadow_color
== mw
->core
.background_pixel
)
1498 mw
->menu
.top_shadow_pixmap
= mw
->menu
.gray_pixmap
;
1499 mw
->menu
.top_shadow_color
= mw
->menu
.foreground
;
1501 if (!mw
->menu
.bottom_shadow_pixmap
&&
1502 mw
->menu
.bottom_shadow_color
== mw
->core
.background_pixel
)
1504 mw
->menu
.bottom_shadow_pixmap
= mw
->menu
.gray_pixmap
;
1505 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1508 xgcv
.fill_style
= FillStippled
;
1509 xgcv
.foreground
= mw
->menu
.top_shadow_color
;
1510 xgcv
.stipple
= mw
->menu
.top_shadow_pixmap
;
1511 pm
= (xgcv
.stipple
? GCStipple
|GCFillStyle
: 0);
1512 mw
->menu
.shadow_top_gc
= XtGetGC ((Widget
)mw
, GCForeground
| pm
, &xgcv
);
1514 xgcv
.foreground
= mw
->menu
.bottom_shadow_color
;
1515 xgcv
.stipple
= mw
->menu
.bottom_shadow_pixmap
;
1516 pm
= (xgcv
.stipple
? GCStipple
|GCFillStyle
: 0);
1517 mw
->menu
.shadow_bottom_gc
= XtGetGC ((Widget
)mw
, GCForeground
| pm
, &xgcv
);
1522 release_shadow_gcs (mw
)
1525 XtReleaseGC ((Widget
) mw
, mw
->menu
.shadow_top_gc
);
1526 XtReleaseGC ((Widget
) mw
, mw
->menu
.shadow_bottom_gc
);
1530 XlwMenuInitialize (request
, mw
, args
, num_args
)
1536 /* Get the GCs and the widget size */
1537 XSetWindowAttributes xswa
;
1540 Window window
= RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw
)));
1541 Display
* display
= XtDisplay (mw
);
1544 widget_value
*tem
= (widget_value
*) XtMalloc (sizeof (widget_value
));
1546 /* _XtCreate is freeing the object that was passed to us,
1547 so make a copy that we will actually keep. */
1548 lwlib_bcopy (mw
->menu
.contents
, tem
, sizeof (widget_value
));
1549 mw
->menu
.contents
= tem
;
1552 /* mw->menu.cursor = XCreateFontCursor (display, mw->menu.cursor_shape); */
1553 mw
->menu
.cursor
= mw
->menu
.cursor_shape
;
1555 mw
->menu
.gray_pixmap
1556 = XCreatePixmapFromBitmapData (display
, window
, gray_bits
,
1557 gray_width
, gray_height
,
1558 (unsigned long)1, (unsigned long)0, 1);
1560 /* I don't understand why this ends up 0 sometimes,
1561 but it does. This kludge works around it.
1562 Can anyone find a real fix? -- rms. */
1563 if (mw
->menu
.font
== 0)
1564 mw
->menu
.font
= xlwmenu_default_font
;
1566 make_drawing_gcs (mw
);
1567 make_shadow_gcs (mw
);
1569 xswa
.background_pixel
= mw
->core
.background_pixel
;
1570 xswa
.border_pixel
= mw
->core
.border_pixel
;
1571 mask
= CWBackPixel
| CWBorderPixel
;
1573 mw
->menu
.popped_up
= False
;
1575 mw
->menu
.old_depth
= 1;
1576 mw
->menu
.old_stack
= (widget_value
**)XtMalloc (sizeof (widget_value
*));
1577 mw
->menu
.old_stack_length
= 1;
1578 mw
->menu
.old_stack
[0] = mw
->menu
.contents
;
1580 mw
->menu
.new_depth
= 0;
1581 mw
->menu
.new_stack
= 0;
1582 mw
->menu
.new_stack_length
= 0;
1583 push_new_stack (mw
, mw
->menu
.contents
);
1585 mw
->menu
.windows
= (window_state
*)XtMalloc (sizeof (window_state
));
1586 mw
->menu
.windows_length
= 1;
1587 mw
->menu
.windows
[0].x
= 0;
1588 mw
->menu
.windows
[0].y
= 0;
1589 mw
->menu
.windows
[0].width
= 0;
1590 mw
->menu
.windows
[0].height
= 0;
1593 mw
->core
.width
= mw
->menu
.windows
[0].width
;
1594 mw
->core
.height
= mw
->menu
.windows
[0].height
;
1598 XlwMenuClassInitialize ()
1603 XlwMenuRealize (w
, valueMask
, attributes
)
1606 XSetWindowAttributes
*attributes
;
1608 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1609 XSetWindowAttributes xswa
;
1612 (*xlwMenuWidgetClass
->core_class
.superclass
->core_class
.realize
)
1613 (w
, valueMask
, attributes
);
1615 xswa
.save_under
= True
;
1616 xswa
.cursor
= mw
->menu
.cursor_shape
;
1617 mask
= CWSaveUnder
| CWCursor
;
1618 XChangeWindowAttributes (XtDisplay (w
), XtWindow (w
), mask
, &xswa
);
1620 mw
->menu
.windows
[0].window
= XtWindow (w
);
1621 mw
->menu
.windows
[0].x
= w
->core
.x
;
1622 mw
->menu
.windows
[0].y
= w
->core
.y
;
1623 mw
->menu
.windows
[0].width
= w
->core
.width
;
1624 mw
->menu
.windows
[0].height
= w
->core
.height
;
1627 /* Only the toplevel menubar/popup is a widget so it's the only one that
1628 receives expose events through Xt. So we repaint all the other panes
1629 when receiving an Expose event. */
1631 XlwMenuRedisplay (w
, ev
, region
)
1636 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1639 /* If we have a depth beyond 1, it's because a submenu was displayed.
1640 If the submenu has been destroyed, set the depth back to 1. */
1641 if (submenu_destroyed
)
1643 mw
->menu
.old_depth
= 1;
1644 submenu_destroyed
= 0;
1647 for (i
= 0; i
< mw
->menu
.old_depth
; i
++)
1648 display_menu (mw
, i
, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
1656 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
1658 if (pointer_grabbed
)
1659 XtUngrabPointer ((Widget
)w
, CurrentTime
);
1660 pointer_grabbed
= 0;
1662 submenu_destroyed
= 1;
1664 release_drawing_gcs (mw
);
1665 release_shadow_gcs (mw
);
1667 /* this doesn't come from the resource db but is created explicitly
1668 so we must free it ourselves. */
1669 XFreePixmap (XtDisplay (mw
), mw
->menu
.gray_pixmap
);
1670 mw
->menu
.gray_pixmap
= (Pixmap
) -1;
1673 /* Do free mw->menu.contents because nowadays we copy it
1674 during initialization. */
1675 XtFree (mw
->menu
.contents
);
1678 /* Don't free mw->menu.contents because that comes from our creator.
1679 The `*_stack' elements are just pointers into `contents' so leave
1680 that alone too. But free the stacks themselves. */
1681 if (mw
->menu
.old_stack
) XtFree ((char *) mw
->menu
.old_stack
);
1682 if (mw
->menu
.new_stack
) XtFree ((char *) mw
->menu
.new_stack
);
1684 /* Remember, you can't free anything that came from the resource
1685 database. This includes:
1687 mw->menu.top_shadow_pixmap
1688 mw->menu.bottom_shadow_pixmap
1690 Also the color cells of top_shadow_color, bottom_shadow_color,
1691 foreground, and button_foreground will never be freed until this
1692 client exits. Nice, eh?
1695 /* start from 1 because the one in slot 0 is w->core.window */
1696 for (i
= 1; i
< mw
->menu
.windows_length
; i
++)
1697 XDestroyWindow (XtDisplay (mw
), mw
->menu
.windows
[i
].window
);
1698 if (mw
->menu
.windows
)
1699 XtFree ((char *) mw
->menu
.windows
);
1703 XlwMenuSetValues (current
, request
, new)
1708 XlwMenuWidget oldmw
= (XlwMenuWidget
)current
;
1709 XlwMenuWidget newmw
= (XlwMenuWidget
)new;
1710 Boolean redisplay
= False
;
1713 if (newmw
->menu
.contents
1714 && newmw
->menu
.contents
->contents
1715 && newmw
->menu
.contents
->contents
->change
>= VISIBLE_CHANGE
)
1717 /* Do redisplay if the contents are entirely eliminated. */
1718 if (newmw
->menu
.contents
1719 && newmw
->menu
.contents
->contents
== 0
1720 && newmw
->menu
.contents
->change
>= VISIBLE_CHANGE
)
1723 if (newmw
->core
.background_pixel
!= oldmw
->core
.background_pixel
1724 || newmw
->menu
.foreground
!= oldmw
->menu
.foreground
1725 || newmw
->menu
.font
!= oldmw
->menu
.font
)
1727 release_drawing_gcs (newmw
);
1728 make_drawing_gcs (newmw
);
1731 for (i
= 0; i
< oldmw
->menu
.windows_length
; i
++)
1733 XSetWindowBackground (XtDisplay (oldmw
),
1734 oldmw
->menu
.windows
[i
].window
,
1735 newmw
->core
.background_pixel
);
1736 /* clear windows and generate expose events */
1737 XClearArea (XtDisplay (oldmw
), oldmw
->menu
.windows
[i
].window
,
1749 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1751 if (mw
->menu
.popped_up
)
1753 /* Don't allow the popup menu to resize itself. */
1754 mw
->core
.width
= mw
->menu
.windows
[0].width
;
1755 mw
->core
.height
= mw
->menu
.windows
[0].height
;
1756 mw
->core
.parent
->core
.width
= mw
->core
.width
;
1757 mw
->core
.parent
->core
.height
= mw
->core
.height
;
1761 mw
->menu
.windows
[0].width
= mw
->core
.width
;
1762 mw
->menu
.windows
[0].height
= mw
->core
.height
;
1766 \f/* Action procedures */
1768 handle_single_motion_event (mw
, ev
)
1775 if (!map_event_to_widget_value (mw
, ev
, &val
, &level
))
1776 pop_new_stack_if_no_contents (mw
);
1778 set_new_state (mw
, val
, level
);
1781 /* Sync with the display. Makes it feel better on X terms. */
1782 XSync (XtDisplay (mw
), False
);
1786 handle_motion_event (mw
, ev
)
1792 int state
= ev
->state
;
1794 handle_single_motion_event (mw
, ev
);
1796 /* allow motion events to be generated again */
1798 && XQueryPointer (XtDisplay (mw
), ev
->window
,
1799 &ev
->root
, &ev
->subwindow
,
1800 &ev
->x_root
, &ev
->y_root
,
1803 && ev
->state
== state
1804 && (ev
->x_root
!= x
|| ev
->y_root
!= y
))
1805 handle_single_motion_event (mw
, ev
);
1809 Start (w
, ev
, params
, num_params
)
1813 Cardinal
*num_params
;
1815 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1817 if (!mw
->menu
.popped_up
)
1819 menu_post_event
= *ev
;
1820 pop_up_menu (mw
, ev
);
1824 /* If we push a button while the menu is posted semipermanently,
1825 releasing the button should always pop the menu down. */
1826 next_release_must_exit
= 1;
1828 /* notes the absolute position of the menubar window */
1829 mw
->menu
.windows
[0].x
= ev
->xmotion
.x_root
- ev
->xmotion
.x
;
1830 mw
->menu
.windows
[0].y
= ev
->xmotion
.y_root
- ev
->xmotion
.y
;
1832 /* handles the down like a move, slots are compatible */
1833 handle_motion_event (mw
, &ev
->xmotion
);
1838 Drag (w
, ev
, params
, num_params
)
1842 Cardinal
*num_params
;
1844 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1845 if (mw
->menu
.popped_up
)
1846 handle_motion_event (mw
, &ev
->xmotion
);
1850 This is how we handle presses and releases of modifier keys. */
1852 Nothing (w
, ev
, params
, num_params
)
1856 Cardinal
*num_params
;
1860 /* Handle key press and release events while menu is popped up.
1861 Our action is to get rid of the menu. */
1863 Key (w
, ev
, params
, num_params
)
1867 Cardinal
*num_params
;
1869 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1871 /* Pop down everything. */
1872 mw
->menu
.new_depth
= 1;
1875 if (mw
->menu
.popped_up
)
1877 mw
->menu
.popped_up
= False
;
1878 XtUngrabPointer ((Widget
)mw
, ev
->xmotion
.time
);
1879 if (XtIsShell (XtParent ((Widget
) mw
)))
1880 XtPopdown (XtParent ((Widget
) mw
));
1883 XtRemoveGrab ((Widget
) mw
);
1884 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
1889 XtCallCallbackList ((Widget
)mw
, mw
->menu
.select
, (XtPointer
)0);
1893 Select (w
, ev
, params
, num_params
)
1897 Cardinal
*num_params
;
1899 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1900 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
1902 /* If user releases the button quickly, without selecting anything,
1903 after the initial down-click that brought the menu up,
1905 if ((selected_item
== 0
1906 || ((widget_value
*) selected_item
)->call_data
== 0)
1907 && !next_release_must_exit
1908 && (ev
->xbutton
.time
- menu_post_event
.xbutton
.time
1909 < XtGetMultiClickTime (XtDisplay (w
))))
1912 /* pop down everything. */
1913 mw
->menu
.new_depth
= 1;
1916 if (mw
->menu
.popped_up
)
1918 mw
->menu
.popped_up
= False
;
1919 XtUngrabPointer ((Widget
)mw
, ev
->xmotion
.time
);
1920 if (XtIsShell (XtParent ((Widget
) mw
)))
1921 XtPopdown (XtParent ((Widget
) mw
));
1924 XtRemoveGrab ((Widget
) mw
);
1925 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
1930 XtCallCallbackList ((Widget
)mw
, mw
->menu
.select
, (XtPointer
)selected_item
);
1934 \f/* Special code to pop-up a menu */
1936 pop_up_menu (mw
, event
)
1938 XButtonPressedEvent
* event
;
1940 int x
= event
->x_root
;
1941 int y
= event
->y_root
;
1944 int borderwidth
= mw
->menu
.shadow_thickness
;
1945 Screen
* screen
= XtScreen (mw
);
1946 Display
*display
= XtDisplay (mw
);
1949 next_release_must_exit
= 0;
1951 XtCallCallbackList ((Widget
)mw
, mw
->menu
.open
, NULL
);
1953 if (XtIsShell (XtParent ((Widget
)mw
)))
1956 w
= mw
->menu
.windows
[0].width
;
1957 h
= mw
->menu
.windows
[0].height
;
1961 if (x
< borderwidth
)
1963 if (x
+ w
+ 2 * borderwidth
> WidthOfScreen (screen
))
1964 x
= WidthOfScreen (screen
) - w
- 2 * borderwidth
;
1965 if (y
< borderwidth
)
1967 if (y
+ h
+ 2 * borderwidth
> HeightOfScreen (screen
))
1968 y
= HeightOfScreen (screen
) - h
- 2 * borderwidth
;
1970 mw
->menu
.popped_up
= True
;
1971 if (XtIsShell (XtParent ((Widget
)mw
)))
1973 XtConfigureWidget (XtParent ((Widget
)mw
), x
, y
, w
, h
,
1974 XtParent ((Widget
)mw
)->core
.border_width
);
1975 XtPopup (XtParent ((Widget
)mw
), XtGrabExclusive
);
1976 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
1977 mw
->menu
.windows
[0].x
= x
+ borderwidth
;
1978 mw
->menu
.windows
[0].y
= y
+ borderwidth
;
1982 XEvent
*ev
= (XEvent
*) event
;
1984 XtAddGrab ((Widget
) mw
, True
, True
);
1986 /* notes the absolute position of the menubar window */
1987 mw
->menu
.windows
[0].x
= ev
->xmotion
.x_root
- ev
->xmotion
.x
;
1988 mw
->menu
.windows
[0].y
= ev
->xmotion
.y_root
- ev
->xmotion
.y
;
1992 count
= x_catch_errors (display
);
1994 XtGrabPointer ((Widget
)mw
, False
,
1996 | PointerMotionHintMask
1999 GrabModeAsync
, GrabModeAsync
, None
,
2000 mw
->menu
.cursor_shape
,
2002 pointer_grabbed
= 1;
2004 if (x_had_errors_p (display
))
2006 pointer_grabbed
= 0;
2007 XtUngrabPointer ((Widget
)mw
, event
->time
);
2009 x_uncatch_errors (display
, count
);
2012 handle_motion_event (mw
, (XMotionEvent
*)event
);