1 /* Implements a lightweight menubar widget.
2 Copyright (C) 1992 Lucid, Inc.
3 Copyright (C) 2002, 2003, 2004, 2005, 2006 Free Software Foundation, Inc.
5 This file is part of the Lucid Widget Library.
7 The Lucid Widget Library is free software; you can redistribute it and/or
8 modify it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2, or (at your option)
12 The Lucid Widget Library is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with GNU Emacs; see the file COPYING. If not, write to the
19 Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
20 Boston, MA 02110-1301, USA. */
22 /* Created by devin@lucid.com */
32 #include <sys/types.h>
33 #if (defined __sun) && !(defined SUNOS41)
40 #include <X11/IntrinsicP.h>
41 #include <X11/ObjectP.h>
42 #include <X11/StringDefs.h>
43 #include <X11/cursorfont.h>
48 /* Defined in xfns.c. When config.h defines `static' as empty, we get
49 redefinition errors when gray_bitmap is included more than once, so
50 we're referring to the one include in xfns.c here. */
52 extern int gray_bitmap_width
;
53 extern int gray_bitmap_height
;
54 extern char *gray_bitmap_bits
;
60 #include <X11/bitmaps/gray>
61 #define gray_bitmap_width gray_width
62 #define gray_bitmap_height gray_height
63 #define gray_bitmap_bits gray_bits
65 #endif /* not emacs */
67 static int pointer_grabbed
;
68 static XEvent menu_post_event
;
70 XFontStruct
*xlwmenu_default_font
;
73 xlwMenuTranslations
[] =
74 "<BtnDown>: start()\n\
77 <Key>Shift_L: nothing()\n\
78 <Key>Shift_R: nothing()\n\
79 <Key>Meta_L: nothing()\n\
80 <Key>Meta_R: nothing()\n\
81 <Key>Control_L: nothing()\n\
82 <Key>Control_R: nothing()\n\
83 <Key>Hyper_L: nothing()\n\
84 <Key>Hyper_R: nothing()\n\
85 <Key>Super_L: nothing()\n\
86 <Key>Super_R: nothing()\n\
87 <Key>Alt_L: nothing()\n\
88 <Key>Alt_R: nothing()\n\
89 <Key>Caps_Lock: nothing()\n\
90 <Key>Shift_Lock: nothing()\n\
91 <KeyUp>Shift_L: nothing()\n\
92 <KeyUp>Shift_R: nothing()\n\
93 <KeyUp>Meta_L: nothing()\n\
94 <KeyUp>Meta_R: nothing()\n\
95 <KeyUp>Control_L: nothing()\n\
96 <KeyUp>Control_R: nothing()\n\
97 <KeyUp>Hyper_L: nothing()\n\
98 <KeyUp>Hyper_R: nothing()\n\
99 <KeyUp>Super_L: nothing()\n\
100 <KeyUp>Super_R: nothing()\n\
101 <KeyUp>Alt_L: nothing()\n\
102 <KeyUp>Alt_R: nothing()\n\
103 <KeyUp>Caps_Lock: nothing()\n\
104 <KeyUp>Shift_Lock:nothing()\n\
105 <Key>Return: select()\n\
109 <Key>Right: right()\n\
114 /* FIXME: Space should toggle toggleable menu item but not remove the menu
115 so you can toggle the next one without entering the menu again. */
117 /* FIXME: Should ESC close one level of menu structure or the complete menu? */
119 /* FIXME: F10 should enter the menu, the first one in the menu-bar. */
121 #define offset(field) XtOffset(XlwMenuWidget, field)
126 {XtNfontSet
, XtCFontSet
, XtRFontSet
, sizeof(XFontSet
),
127 offset(menu
.fontSet
), XtRFontSet
, NULL
},
129 {XtNfont
, XtCFont
, XtRFontStruct
, sizeof(XFontStruct
*),
130 offset(menu
.font
), XtRString
, "XtDefaultFont"},
131 {XtNforeground
, XtCForeground
, XtRPixel
, sizeof(Pixel
),
132 offset(menu
.foreground
), XtRString
, "XtDefaultForeground"},
133 {XtNdisabledForeground
, XtCDisabledForeground
, XtRPixel
, sizeof(Pixel
),
134 offset(menu
.disabled_foreground
), XtRString
, (XtPointer
)NULL
},
135 {XtNbuttonForeground
, XtCButtonForeground
, XtRPixel
, sizeof(Pixel
),
136 offset(menu
.button_foreground
), XtRString
, "XtDefaultForeground"},
137 {XtNmargin
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
138 offset(menu
.margin
), XtRImmediate
, (XtPointer
)1},
139 {XtNhorizontalSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
140 offset(menu
.horizontal_spacing
), XtRImmediate
, (XtPointer
)3},
141 {XtNverticalSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
142 offset(menu
.vertical_spacing
), XtRImmediate
, (XtPointer
)2},
143 {XtNarrowSpacing
, XtCMargin
, XtRDimension
, sizeof(Dimension
),
144 offset(menu
.arrow_spacing
), XtRImmediate
, (XtPointer
)10},
146 {XmNshadowThickness
, XmCShadowThickness
, XtRDimension
,
147 sizeof (Dimension
), offset (menu
.shadow_thickness
),
148 XtRImmediate
, (XtPointer
)1},
149 {XmNtopShadowColor
, XmCTopShadowColor
, XtRPixel
, sizeof (Pixel
),
150 offset (menu
.top_shadow_color
), XtRImmediate
, (XtPointer
)-1},
151 {XmNbottomShadowColor
, XmCBottomShadowColor
, XtRPixel
, sizeof (Pixel
),
152 offset (menu
.bottom_shadow_color
), XtRImmediate
, (XtPointer
)-1},
153 {XmNtopShadowPixmap
, XmCTopShadowPixmap
, XtRPixmap
, sizeof (Pixmap
),
154 offset (menu
.top_shadow_pixmap
), XtRImmediate
, (XtPointer
)None
},
155 {XmNbottomShadowPixmap
, XmCBottomShadowPixmap
, XtRPixmap
, sizeof (Pixmap
),
156 offset (menu
.bottom_shadow_pixmap
), XtRImmediate
, (XtPointer
)None
},
158 {XtNopen
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
159 offset(menu
.open
), XtRCallback
, (XtPointer
)NULL
},
160 {XtNselect
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
161 offset(menu
.select
), XtRCallback
, (XtPointer
)NULL
},
162 {XtNhighlightCallback
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
163 offset(menu
.highlight
), XtRCallback
, (XtPointer
)NULL
},
164 {XtNenterCallback
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
165 offset(menu
.enter
), XtRCallback
, (XtPointer
)NULL
},
166 {XtNleaveCallback
, XtCCallback
, XtRCallback
, sizeof(XtPointer
),
167 offset(menu
.leave
), XtRCallback
, (XtPointer
)NULL
},
168 {XtNmenu
, XtCMenu
, XtRPointer
, sizeof(XtPointer
),
169 offset(menu
.contents
), XtRImmediate
, (XtPointer
)NULL
},
170 {XtNcursor
, XtCCursor
, XtRCursor
, sizeof(Cursor
),
171 offset(menu
.cursor_shape
), XtRString
, (XtPointer
)"right_ptr"},
172 {XtNhorizontal
, XtCHorizontal
, XtRInt
, sizeof(int),
173 offset(menu
.horizontal
), XtRImmediate
, (XtPointer
)True
},
177 static Boolean
XlwMenuSetValues();
178 static void XlwMenuRealize();
179 static void XlwMenuRedisplay();
180 static void XlwMenuResize();
181 static void XlwMenuInitialize();
182 static void XlwMenuRedisplay();
183 static void XlwMenuDestroy();
184 static void XlwMenuClassInitialize();
191 static void Select();
193 static void Nothing();
194 static int separator_height
__P ((enum menu_separator
));
195 static void pop_up_menu
__P ((XlwMenuWidget
, XButtonPressedEvent
*));
199 xlwMenuActionsList
[] =
209 {"MenuGadgetEscape", Key
}, /* Compatibility with Lesstif/Motif. */
210 {"nothing", Nothing
},
213 #define SuperClass ((CoreWidgetClass)&coreClassRec)
215 XlwMenuClassRec xlwMenuClassRec
=
217 { /* CoreClass fields initialization */
218 (WidgetClass
) SuperClass
, /* superclass */
219 "XlwMenu", /* class_name */
220 sizeof(XlwMenuRec
), /* size */
221 XlwMenuClassInitialize
, /* class_initialize */
222 NULL
, /* class_part_initialize */
223 FALSE
, /* class_inited */
224 XlwMenuInitialize
, /* initialize */
225 NULL
, /* initialize_hook */
226 XlwMenuRealize
, /* realize */
227 xlwMenuActionsList
, /* actions */
228 XtNumber(xlwMenuActionsList
), /* num_actions */
229 xlwMenuResources
, /* resources */
230 XtNumber(xlwMenuResources
), /* resource_count */
231 NULLQUARK
, /* xrm_class */
232 TRUE
, /* compress_motion */
233 XtExposeCompressMaximal
, /* compress_exposure */
234 TRUE
, /* compress_enterleave */
235 FALSE
, /* visible_interest */
236 XlwMenuDestroy
, /* destroy */
237 XlwMenuResize
, /* resize */
238 XlwMenuRedisplay
, /* expose */
239 XlwMenuSetValues
, /* set_values */
240 NULL
, /* set_values_hook */
241 XtInheritSetValuesAlmost
, /* set_values_almost */
242 NULL
, /* get_values_hook */
243 NULL
, /* accept_focus */
244 XtVersion
, /* version */
245 NULL
, /* callback_private */
246 xlwMenuTranslations
, /* tm_table */
247 XtInheritQueryGeometry
, /* query_geometry */
248 XtInheritDisplayAccelerator
, /* display_accelerator */
250 }, /* XlwMenuClass fields initialization */
256 WidgetClass xlwMenuWidgetClass
= (WidgetClass
) &xlwMenuClassRec
;
258 int submenu_destroyed
;
260 /* For debug, if installation-directory is non-nil this is not an installed
261 Emacs. In that case we do not grab the keyboard to make it easier to
263 #define GRAB_KEYBOARD (EQ (Vinstallation_directory, Qnil))
265 static int next_release_must_exit
;
269 /* Ungrab pointer and keyboard */
271 ungrab_all (w
, ungrabtime
)
275 XtUngrabPointer (w
, ungrabtime
);
276 if (GRAB_KEYBOARD
) XtUngrabKeyboard (w
, ungrabtime
);
279 /* Like abort, but remove grabs from widget W before. */
285 if (XtIsShell (XtParent (w
)))
287 ungrab_all (w
, CurrentTime
);
292 push_new_stack (mw
, val
)
296 if (!mw
->menu
.new_stack
)
298 mw
->menu
.new_stack_length
= 10;
300 (widget_value
**)XtCalloc (mw
->menu
.new_stack_length
,
301 sizeof (widget_value
*));
303 else if (mw
->menu
.new_depth
== mw
->menu
.new_stack_length
)
305 mw
->menu
.new_stack_length
*= 2;
307 (widget_value
**)XtRealloc ((char*)mw
->menu
.new_stack
,
308 mw
->menu
.new_stack_length
* sizeof (widget_value
*));
310 mw
->menu
.new_stack
[mw
->menu
.new_depth
++] = val
;
314 pop_new_stack_if_no_contents (mw
)
317 if (mw
->menu
.new_depth
> 1)
319 if (!mw
->menu
.new_stack
[mw
->menu
.new_depth
- 1]->contents
)
320 mw
->menu
.new_depth
-= 1;
325 make_old_stack_space (mw
, n
)
329 if (!mw
->menu
.old_stack
)
331 mw
->menu
.old_stack_length
= 10;
333 (widget_value
**)XtCalloc (mw
->menu
.old_stack_length
,
334 sizeof (widget_value
*));
336 else if (mw
->menu
.old_stack_length
< n
)
338 mw
->menu
.old_stack_length
*= 2;
340 (widget_value
**)XtRealloc ((char*)mw
->menu
.old_stack
,
341 mw
->menu
.old_stack_length
* sizeof (widget_value
*));
354 XRectangle ink
, logical
;
355 if (mw
->menu
.fontSet
)
357 XmbTextExtents (mw
->menu
.fontSet
, s
, strlen (s
), &ink
, &logical
);
358 return logical
.width
;
362 XTextExtents (mw
->menu
.font
, s
, strlen (s
), &drop
, &drop
, &drop
, &xcs
);
368 #define MENU_FONT_HEIGHT(mw) \
369 ((mw)->menu.fontSet != NULL \
370 ? (mw)->menu.font_extents->max_logical_extent.height \
371 : (mw)->menu.font->ascent + (mw)->menu.font->descent)
372 #define MENU_FONT_ASCENT(mw) \
373 ((mw)->menu.fontSet != NULL \
374 ? - (mw)->menu.font_extents->max_logical_extent.y \
375 : (mw)->menu.font->ascent)
377 #define MENU_FONT_HEIGHT(mw) \
378 ((mw)->menu.font->ascent + (mw)->menu.font->descent)
379 #define MENU_FONT_ASCENT(mw) ((mw)->menu.font->ascent)
386 return (MENU_FONT_ASCENT (mw
) * 3/4) | 1;
389 /* Return the width of toggle buttons of widget MW. */
392 toggle_button_width (mw
)
395 return (MENU_FONT_HEIGHT (mw
) * 2 / 3) | 1;
399 /* Return the width of radio buttons of widget MW. */
402 radio_button_width (mw
)
405 return toggle_button_width (mw
) * 1.41;
412 {"labelString", "LabelString", XtRString
, sizeof(String
),
417 resource_widget_value (mw
, val
)
421 if (!val
->toolkit_data
)
423 char* resourced_name
= NULL
;
425 XtGetSubresources ((Widget
) mw
,
426 (XtPointer
) &resourced_name
,
427 val
->name
, val
->name
,
428 nameResource
, 1, NULL
, 0);
430 resourced_name
= val
->name
;
433 complete_name
= (char *) XtMalloc (strlen (resourced_name
) + 1);
434 strcpy (complete_name
, resourced_name
);
438 int complete_length
=
439 strlen (resourced_name
) + strlen (val
->value
) + 2;
440 complete_name
= XtMalloc (complete_length
);
442 strcat (complete_name
, resourced_name
);
443 strcat (complete_name
, " ");
444 strcat (complete_name
, val
->value
);
447 val
->toolkit_data
= complete_name
;
448 val
->free_toolkit_data
= True
;
450 return (char*)val
->toolkit_data
;
453 /* Returns the sizes of an item */
455 size_menu_item (mw
, val
, horizontal_p
, label_width
, rest_width
, button_width
,
465 enum menu_separator separator
;
467 if (lw_separator_p (val
->name
, &separator
, 0))
469 *height
= separator_height (separator
);
476 *height
= MENU_FONT_HEIGHT (mw
)
477 + 2 * mw
->menu
.vertical_spacing
+ 2 * mw
->menu
.shadow_thickness
;
480 string_width (mw
, resource_widget_value (mw
, val
))
481 + mw
->menu
.horizontal_spacing
+ mw
->menu
.shadow_thickness
;
483 *rest_width
= mw
->menu
.horizontal_spacing
+ mw
->menu
.shadow_thickness
;
487 /* Add width of the arrow displayed for submenus. */
488 *rest_width
+= arrow_width (mw
) + mw
->menu
.arrow_spacing
;
490 /* Add width of key equivalent string. */
491 *rest_width
+= (string_width (mw
, val
->key
)
492 + mw
->menu
.arrow_spacing
);
494 if (val
->button_type
== BUTTON_TYPE_TOGGLE
)
495 *button_width
= (toggle_button_width (mw
)
496 + mw
->menu
.horizontal_spacing
);
497 else if (val
->button_type
== BUTTON_TYPE_RADIO
)
498 *button_width
= (radio_button_width (mw
)
499 + mw
->menu
.horizontal_spacing
);
505 size_menu (mw
, level
)
509 unsigned int label_width
= 0;
511 int button_width
= 0;
512 int max_rest_width
= 0;
513 int max_button_width
= 0;
514 unsigned int height
= 0;
515 int horizontal_p
= mw
->menu
.horizontal
&& (level
== 0);
519 if (level
>= mw
->menu
.old_depth
)
520 abort_gracefully ((Widget
) mw
);
522 ws
= &mw
->menu
.windows
[level
];
526 ws
->button_width
= 0;
528 for (val
= mw
->menu
.old_stack
[level
]->contents
; val
; val
= val
->next
)
530 size_menu_item (mw
, val
, horizontal_p
, &label_width
, &rest_width
,
531 &button_width
, &height
);
534 ws
->width
+= label_width
+ rest_width
;
535 if (height
> ws
->height
)
540 if (label_width
> ws
->label_width
)
541 ws
->label_width
= label_width
;
542 if (rest_width
> max_rest_width
)
543 max_rest_width
= rest_width
;
544 if (button_width
> max_button_width
)
545 max_button_width
= button_width
;
546 ws
->height
+= height
;
551 ws
->label_width
= ws
->button_width
= 0;
554 ws
->width
= ws
->label_width
+ max_rest_width
+ max_button_width
;
555 ws
->button_width
= max_button_width
;
558 ws
->width
+= 2 * mw
->menu
.shadow_thickness
;
559 ws
->height
+= 2 * mw
->menu
.shadow_thickness
;
563 ws
->width
+= 2 * mw
->menu
.margin
;
564 ws
->height
+= 2 * mw
->menu
.margin
;
572 draw_arrow (mw
, window
, gc
, x
, y
, width
, down_p
)
581 Display
*dpy
= XtDisplay (mw
);
582 GC top_gc
= mw
->menu
.shadow_top_gc
;
583 GC bottom_gc
= mw
->menu
.shadow_bottom_gc
;
584 int thickness
= mw
->menu
.shadow_thickness
;
587 /* alpha = atan (0.5)
588 factor = (1 + sin (alpha)) / cos (alpha) */
589 double factor
= 1.62;
590 int thickness2
= thickness
* factor
;
592 y
+= (MENU_FONT_HEIGHT (mw
) - height
) / 2;
603 pt
[0].y
= y
+ height
;
604 pt
[1].x
= x
+ thickness
;
605 pt
[1].y
= y
+ height
- thickness2
;
606 pt
[2].x
= x
+ thickness2
;
607 pt
[2].y
= y
+ thickness2
;
610 XFillPolygon (dpy
, window
, top_gc
, pt
, 4, Convex
, CoordModeOrigin
);
614 pt
[1].x
= x
+ thickness
;
615 pt
[1].y
= y
+ thickness2
;
616 pt
[2].x
= x
+ width
- thickness2
;
617 pt
[2].y
= y
+ height
/ 2;
619 pt
[3].y
= y
+ height
/ 2;
620 XFillPolygon (dpy
, window
, top_gc
, pt
, 4, Convex
, CoordModeOrigin
);
623 pt
[0].y
= y
+ height
;
624 pt
[1].x
= x
+ thickness
;
625 pt
[1].y
= y
+ height
- thickness2
;
626 pt
[2].x
= x
+ width
- thickness2
;
627 pt
[2].y
= y
+ height
/ 2;
629 pt
[3].y
= y
+ height
/ 2;
630 XFillPolygon (dpy
, window
, bottom_gc
, pt
, 4, Convex
, CoordModeOrigin
);
636 draw_shadow_rectangle (mw
, window
, x
, y
, width
, height
, erase_p
, down_p
)
646 Display
*dpy
= XtDisplay (mw
);
647 GC top_gc
= !erase_p
? mw
->menu
.shadow_top_gc
: mw
->menu
.background_gc
;
648 GC bottom_gc
= !erase_p
? mw
->menu
.shadow_bottom_gc
: mw
->menu
.background_gc
;
649 int thickness
= mw
->menu
.shadow_thickness
;
652 if (!erase_p
&& down_p
)
662 points
[1].x
= x
+ width
;
664 points
[2].x
= x
+ width
- thickness
;
665 points
[2].y
= y
+ thickness
;
667 points
[3].y
= y
+ thickness
;
668 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
670 points
[0].y
= y
+ thickness
;
672 points
[1].y
= y
+ height
;
673 points
[2].x
= x
+ thickness
;
674 points
[2].y
= y
+ height
- thickness
;
675 points
[3].x
= x
+ thickness
;
676 points
[3].y
= y
+ thickness
;
677 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
678 points
[0].x
= x
+ width
;
680 points
[1].x
= x
+ width
- thickness
;
681 points
[1].y
= y
+ thickness
;
682 points
[2].x
= x
+ width
- thickness
;
683 points
[2].y
= y
+ height
- thickness
;
684 points
[3].x
= x
+ width
;
685 points
[3].y
= y
+ height
- thickness
;
686 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
688 points
[0].y
= y
+ height
;
689 points
[1].x
= x
+ width
;
690 points
[1].y
= y
+ height
;
691 points
[2].x
= x
+ width
;
692 points
[2].y
= y
+ height
- thickness
;
693 points
[3].x
= x
+ thickness
;
694 points
[3].y
= y
+ height
- thickness
;
695 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
700 draw_shadow_rhombus (mw
, window
, x
, y
, width
, height
, erase_p
, down_p
)
710 Display
*dpy
= XtDisplay (mw
);
711 GC top_gc
= !erase_p
? mw
->menu
.shadow_top_gc
: mw
->menu
.background_gc
;
712 GC bottom_gc
= !erase_p
? mw
->menu
.shadow_bottom_gc
: mw
->menu
.background_gc
;
713 int thickness
= mw
->menu
.shadow_thickness
;
716 if (!erase_p
&& down_p
)
725 points
[0].y
= y
+ height
/ 2;
726 points
[1].x
= x
+ thickness
;
727 points
[1].y
= y
+ height
/ 2;
728 points
[2].x
= x
+ width
/ 2;
729 points
[2].y
= y
+ thickness
;
730 points
[3].x
= x
+ width
/ 2;
732 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
733 points
[0].x
= x
+ width
/ 2;
735 points
[1].x
= x
+ width
/ 2;
736 points
[1].y
= y
+ thickness
;
737 points
[2].x
= x
+ width
- thickness
;
738 points
[2].y
= y
+ height
/ 2;
739 points
[3].x
= x
+ width
;
740 points
[3].y
= y
+ height
/ 2;
741 XFillPolygon (dpy
, window
, top_gc
, points
, 4, Convex
, CoordModeOrigin
);
743 points
[0].y
= y
+ height
/ 2;
744 points
[1].x
= x
+ thickness
;
745 points
[1].y
= y
+ height
/ 2;
746 points
[2].x
= x
+ width
/ 2;
747 points
[2].y
= y
+ height
- thickness
;
748 points
[3].x
= x
+ width
/ 2;
749 points
[3].y
= y
+ height
;
750 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
751 points
[0].x
= x
+ width
/ 2;
752 points
[0].y
= y
+ height
;
753 points
[1].x
= x
+ width
/ 2;
754 points
[1].y
= y
+ height
- thickness
;
755 points
[2].x
= x
+ width
- thickness
;
756 points
[2].y
= y
+ height
/ 2;
757 points
[3].x
= x
+ width
;
758 points
[3].y
= y
+ height
/ 2;
759 XFillPolygon (dpy
, window
, bottom_gc
, points
, 4, Convex
, CoordModeOrigin
);
763 /* Draw a toggle button on widget MW, X window WINDOW. X/Y is the
764 top-left corner of the menu item. SELECTED_P non-zero means the
765 toggle button is selected. */
768 draw_toggle (mw
, window
, x
, y
, selected_p
)
771 int x
, y
, selected_p
;
775 width
= toggle_button_width (mw
);
777 x
+= mw
->menu
.horizontal_spacing
;
778 y
+= (MENU_FONT_ASCENT (mw
) - height
) / 2;
779 draw_shadow_rectangle (mw
, window
, x
, y
, width
, height
, False
, selected_p
);
783 /* Draw a radio button on widget MW, X window WINDOW. X/Y is the
784 top-left corner of the menu item. SELECTED_P non-zero means the
785 toggle button is selected. */
788 draw_radio (mw
, window
, x
, y
, selected_p
)
791 int x
, y
, selected_p
;
795 width
= radio_button_width (mw
);
797 x
+= mw
->menu
.horizontal_spacing
;
798 y
+= (MENU_FONT_ASCENT (mw
) - height
) / 2;
799 draw_shadow_rhombus (mw
, window
, x
, y
, width
, height
, False
, selected_p
);
803 /* Draw a menu separator on widget MW, X window WINDOW. X/Y is the
804 top-left corner of the menu item. WIDTH is the width of the
805 separator to draw. TYPE is the separator type. */
808 draw_separator (mw
, window
, x
, y
, width
, type
)
812 enum menu_separator type
;
814 Display
*dpy
= XtDisplay (mw
);
819 case SEPARATOR_NO_LINE
:
822 case SEPARATOR_SINGLE_LINE
:
823 XDrawLine (dpy
, window
, mw
->menu
.foreground_gc
,
827 case SEPARATOR_DOUBLE_LINE
:
828 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SINGLE_LINE
);
829 draw_separator (mw
, window
, x
, y
+ 2, width
, SEPARATOR_SINGLE_LINE
);
832 case SEPARATOR_SINGLE_DASHED_LINE
:
833 xgcv
.line_style
= LineOnOffDash
;
834 XChangeGC (dpy
, mw
->menu
.foreground_gc
, GCLineStyle
, &xgcv
);
835 XDrawLine (dpy
, window
, mw
->menu
.foreground_gc
,
837 xgcv
.line_style
= LineSolid
;
838 XChangeGC (dpy
, mw
->menu
.foreground_gc
, GCLineStyle
, &xgcv
);
841 case SEPARATOR_DOUBLE_DASHED_LINE
:
842 draw_separator (mw
, window
, x
, y
, width
,
843 SEPARATOR_SINGLE_DASHED_LINE
);
844 draw_separator (mw
, window
, x
, y
+ 2, width
,
845 SEPARATOR_SINGLE_DASHED_LINE
);
848 case SEPARATOR_SHADOW_ETCHED_IN
:
849 XDrawLine (dpy
, window
, mw
->menu
.shadow_bottom_gc
,
851 XDrawLine (dpy
, window
, mw
->menu
.shadow_top_gc
,
852 x
, y
+ 1, x
+ width
, y
+ 1);
855 case SEPARATOR_SHADOW_ETCHED_OUT
:
856 XDrawLine (dpy
, window
, mw
->menu
.shadow_top_gc
,
858 XDrawLine (dpy
, window
, mw
->menu
.shadow_bottom_gc
,
859 x
, y
+ 1, x
+ width
, y
+ 1);
862 case SEPARATOR_SHADOW_ETCHED_IN_DASH
:
863 xgcv
.line_style
= LineOnOffDash
;
864 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
865 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
866 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SHADOW_ETCHED_IN
);
867 xgcv
.line_style
= LineSolid
;
868 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
869 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
872 case SEPARATOR_SHADOW_ETCHED_OUT_DASH
:
873 xgcv
.line_style
= LineOnOffDash
;
874 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
875 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
876 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SHADOW_ETCHED_OUT
);
877 xgcv
.line_style
= LineSolid
;
878 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
879 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
882 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
:
883 draw_separator (mw
, window
, x
, y
, width
, SEPARATOR_SHADOW_ETCHED_IN
);
884 draw_separator (mw
, window
, x
, y
+ 3, width
, SEPARATOR_SHADOW_ETCHED_IN
);
887 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
:
888 draw_separator (mw
, window
, x
, y
, width
,
889 SEPARATOR_SHADOW_ETCHED_OUT
);
890 draw_separator (mw
, window
, x
, y
+ 3, width
,
891 SEPARATOR_SHADOW_ETCHED_OUT
);
894 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
:
895 xgcv
.line_style
= LineOnOffDash
;
896 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
897 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
898 draw_separator (mw
, window
, x
, y
, width
,
899 SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
);
900 xgcv
.line_style
= LineSolid
;
901 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
902 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
905 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
:
906 xgcv
.line_style
= LineOnOffDash
;
907 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
908 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
909 draw_separator (mw
, window
, x
, y
, width
,
910 SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
);
911 xgcv
.line_style
= LineSolid
;
912 XChangeGC (dpy
, mw
->menu
.shadow_bottom_gc
, GCLineStyle
, &xgcv
);
913 XChangeGC (dpy
, mw
->menu
.shadow_top_gc
, GCLineStyle
, &xgcv
);
922 /* Return the pixel height of menu separator SEPARATOR. */
925 separator_height (separator
)
926 enum menu_separator separator
;
930 case SEPARATOR_NO_LINE
:
933 case SEPARATOR_SINGLE_LINE
:
934 case SEPARATOR_SINGLE_DASHED_LINE
:
937 case SEPARATOR_DOUBLE_LINE
:
938 case SEPARATOR_DOUBLE_DASHED_LINE
:
941 case SEPARATOR_SHADOW_ETCHED_IN
:
942 case SEPARATOR_SHADOW_ETCHED_OUT
:
943 case SEPARATOR_SHADOW_ETCHED_IN_DASH
:
944 case SEPARATOR_SHADOW_ETCHED_OUT_DASH
:
947 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN
:
948 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT
:
949 case SEPARATOR_SHADOW_DOUBLE_ETCHED_IN_DASH
:
950 case SEPARATOR_SHADOW_DOUBLE_ETCHED_OUT_DASH
:
959 /* Display the menu item and increment where.x and where.y to show how large
960 the menu item was. */
963 display_menu_item (mw
, val
, ws
, where
, highlighted_p
, horizontal_p
,
969 Boolean highlighted_p
;
970 Boolean horizontal_p
;
971 Boolean just_compute_p
;
975 int font_height
= MENU_FONT_HEIGHT (mw
);
976 int font_ascent
= MENU_FONT_ASCENT (mw
);
977 int shadow
= mw
->menu
.shadow_thickness
;
978 int margin
= mw
->menu
.margin
;
979 int h_spacing
= mw
->menu
.horizontal_spacing
;
980 int v_spacing
= mw
->menu
.vertical_spacing
;
986 enum menu_separator separator
;
987 int separator_p
= lw_separator_p (val
->name
, &separator
, 0);
989 /* compute the sizes of the item */
990 size_menu_item (mw
, val
, horizontal_p
, &label_width
, &rest_width
,
991 &button_width
, &height
);
994 width
= label_width
+ rest_width
;
997 label_width
= ws
->label_width
;
998 width
= ws
->width
- 2 * shadow
;
1001 /* Only highlight an enabled item that has a callback. */
1003 if (!val
->enabled
|| !(val
->call_data
|| val
->contents
))
1006 /* do the drawing. */
1007 if (!just_compute_p
)
1009 /* Add the shadow border of the containing menu */
1010 int x
= where
->x
+ shadow
;
1011 int y
= where
->y
+ shadow
;
1019 /* pick the foreground and background GC. */
1021 text_gc
= mw
->menu
.foreground_gc
;
1023 text_gc
= mw
->menu
.disabled_gc
;
1024 deco_gc
= mw
->menu
.foreground_gc
;
1028 draw_separator (mw
, ws
->window
, x
, y
, width
, separator
);
1032 int x_offset
= x
+ h_spacing
+ shadow
;
1033 char* display_string
= resource_widget_value (mw
, val
);
1034 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
, True
,
1037 /* Deal with centering a menu title. */
1038 if (!horizontal_p
&& !val
->contents
&& !val
->call_data
)
1040 int l
= string_width (mw
, display_string
);
1043 x_offset
= (width
- l
) >> 1;
1045 else if (!horizontal_p
&& ws
->button_width
)
1046 x_offset
+= ws
->button_width
;
1050 if (mw
->menu
.fontSet
)
1051 XmbDrawString (XtDisplay (mw
), ws
->window
, mw
->menu
.fontSet
,
1053 y
+ v_spacing
+ shadow
+ font_ascent
,
1054 display_string
, strlen (display_string
));
1057 XDrawString (XtDisplay (mw
), ws
->window
,
1059 y
+ v_spacing
+ shadow
+ font_ascent
,
1060 display_string
, strlen (display_string
));
1064 if (val
->button_type
== BUTTON_TYPE_TOGGLE
)
1065 draw_toggle (mw
, ws
->window
, x
, y
+ v_spacing
+ shadow
,
1067 else if (val
->button_type
== BUTTON_TYPE_RADIO
)
1068 draw_radio (mw
, ws
->window
, x
, y
+ v_spacing
+ shadow
,
1073 int a_w
= arrow_width (mw
);
1074 draw_arrow (mw
, ws
->window
, deco_gc
,
1076 - mw
->menu
.horizontal_spacing
1077 - mw
->menu
.shadow_thickness
,
1078 y
+ v_spacing
+ shadow
, a_w
,
1084 if (mw
->menu
.fontSet
)
1085 XmbDrawString (XtDisplay (mw
), ws
->window
,
1088 x
+ label_width
+ mw
->menu
.arrow_spacing
,
1089 y
+ v_spacing
+ shadow
+ font_ascent
,
1090 val
->key
, strlen (val
->key
));
1093 XDrawString (XtDisplay (mw
), ws
->window
,
1095 x
+ label_width
+ mw
->menu
.arrow_spacing
,
1096 y
+ v_spacing
+ shadow
+ font_ascent
,
1097 val
->key
, strlen (val
->key
));
1102 XDrawRectangle (XtDisplay (mw
), ws
->window
,
1103 mw
->menu
.background_gc
,
1104 x
+ shadow
, y
+ shadow
,
1105 label_width
+ h_spacing
- 1,
1106 font_height
+ 2 * v_spacing
- 1);
1107 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
,
1112 draw_shadow_rectangle (mw
, ws
->window
, x
, y
, width
, height
, False
,
1122 display_menu (mw
, level
, just_compute_p
, highlighted_pos
, hit
, hit_return
,
1126 Boolean just_compute_p
;
1127 XPoint
* highlighted_pos
;
1129 widget_value
** hit_return
;
1134 widget_value
* following_item
;
1137 int horizontal_p
= mw
->menu
.horizontal
&& (level
== 0);
1139 int just_compute_this_one_p
;
1140 /* This is set nonzero if the element containing HIGHLIGHTED_POS
1141 is disabled, so that we do not return any subsequent element either. */
1143 enum menu_separator separator
;
1145 if (level
>= mw
->menu
.old_depth
)
1146 abort_gracefully ((Widget
) mw
);
1148 if (level
< mw
->menu
.old_depth
- 1)
1149 following_item
= mw
->menu
.old_stack
[level
+ 1];
1151 following_item
= NULL
;
1159 ws
= &mw
->menu
.windows
[level
];
1160 for (val
= mw
->menu
.old_stack
[level
]->contents
; val
; val
= val
->next
)
1162 highlighted_p
= val
== following_item
;
1163 if (highlighted_p
&& highlighted_pos
)
1166 highlighted_pos
->x
= where
.x
;
1168 highlighted_pos
->y
= where
.y
;
1171 just_compute_this_one_p
=
1172 just_compute_p
|| ((this || that
) && val
!= this && val
!= that
);
1174 display_menu_item (mw
, val
, ws
, &where
, highlighted_p
, horizontal_p
,
1175 just_compute_this_one_p
);
1177 if (highlighted_p
&& highlighted_pos
)
1180 highlighted_pos
->y
= where
.y
;
1182 highlighted_pos
->x
= where
.x
;
1187 && (horizontal_p
? hit
->x
< where
.x
: hit
->y
< where
.y
)
1188 && !lw_separator_p (val
->name
, &separator
, 0)
1195 if (mw
->menu
.inside_entry
!= val
)
1197 if (mw
->menu
.inside_entry
)
1198 XtCallCallbackList ((Widget
)mw
, mw
->menu
.leave
,
1199 (XtPointer
) mw
->menu
.inside_entry
);
1200 mw
->menu
.inside_entry
= val
;
1201 XtCallCallbackList ((Widget
)mw
, mw
->menu
.enter
,
1202 (XtPointer
) mw
->menu
.inside_entry
);
1212 if (!just_compute_p
)
1213 draw_shadow_rectangle (mw
, ws
->window
, 0, 0, ws
->width
, ws
->height
,
1219 set_new_state (mw
, val
, level
)
1226 mw
->menu
.new_depth
= 0;
1227 for (i
= 0; i
< level
; i
++)
1228 push_new_stack (mw
, mw
->menu
.old_stack
[i
]);
1229 push_new_stack (mw
, val
);
1233 make_windows_if_needed (mw
, n
)
1239 XSetWindowAttributes xswa
;
1241 Window root
= RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw
)));
1242 window_state
* windows
;
1244 if (mw
->menu
.windows_length
>= n
)
1247 xswa
.save_under
= True
;
1248 xswa
.override_redirect
= True
;
1249 xswa
.background_pixel
= mw
->core
.background_pixel
;
1250 xswa
.border_pixel
= mw
->core
.border_pixel
;
1252 ExposureMask
| PointerMotionMask
| PointerMotionHintMask
1253 | ButtonReleaseMask
| ButtonPressMask
;
1254 xswa
.cursor
= mw
->menu
.cursor_shape
;
1255 mask
= CWSaveUnder
| CWOverrideRedirect
| CWBackPixel
| CWBorderPixel
1256 | CWEventMask
| CWCursor
;
1258 if (!mw
->menu
.windows
)
1261 (window_state
*)XtMalloc (n
* sizeof (window_state
));
1267 (window_state
*)XtRealloc ((char*)mw
->menu
.windows
,
1268 n
* sizeof (window_state
));
1269 start_at
= mw
->menu
.windows_length
;
1271 mw
->menu
.windows_length
= n
;
1273 windows
= mw
->menu
.windows
;
1275 for (i
= start_at
; i
< n
; i
++)
1279 windows
[i
].width
= 1;
1280 windows
[i
].height
= 1;
1281 windows
[i
].window
=
1282 XCreateWindow (XtDisplay (mw
), root
, 0, 0, 1, 1,
1283 0, 0, CopyFromParent
, CopyFromParent
, mask
, &xswa
);
1287 /* Value is non-zero if WINDOW is part of menu bar widget W. */
1290 xlwmenu_window_p (w
, window
)
1294 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
1297 for (i
= 0; i
< mw
->menu
.windows_length
; ++i
)
1298 if (window
== mw
->menu
.windows
[i
].window
)
1301 return i
< mw
->menu
.windows_length
;
1304 /* Make the window fit in the screen */
1306 fit_to_screen (mw
, ws
, previous_ws
, horizontal_p
)
1309 window_state
* previous_ws
;
1310 Boolean horizontal_p
;
1312 unsigned int screen_width
= WidthOfScreen (XtScreen (mw
));
1313 unsigned int screen_height
= HeightOfScreen (XtScreen (mw
));
1314 /* 1 if we are unable to avoid an overlap between
1315 this menu and the parent menu in the X dimension. */
1316 int horizontal_overlap
= 0;
1320 else if (ws
->x
+ ws
->width
> screen_width
)
1323 /* The addition of shadow-thickness for a sub-menu's position is
1324 to reflect a similar adjustment when the menu is displayed to
1325 the right of the invoking menu-item; it makes the sub-menu
1326 look more `attached' to the menu-item. */
1327 ws
->x
= previous_ws
->x
- ws
->width
+ mw
->menu
.shadow_thickness
;
1329 ws
->x
= screen_width
- ws
->width
;
1333 horizontal_overlap
= 1;
1336 /* If we overlap in X, try to avoid overlap in Y. */
1337 if (horizontal_overlap
1338 && ws
->y
< previous_ws
->y
+ previous_ws
->height
1339 && previous_ws
->y
< ws
->y
+ ws
->height
)
1341 /* Put this menu right below or right above PREVIOUS_WS
1343 if (previous_ws
->y
+ previous_ws
->height
+ ws
->height
< screen_height
)
1344 ws
->y
= previous_ws
->y
+ previous_ws
->height
;
1345 else if (previous_ws
->y
- ws
->height
> 0)
1346 ws
->y
= previous_ws
->y
- ws
->height
;
1351 else if (ws
->y
+ ws
->height
> screen_height
)
1354 ws
->y
= previous_ws
->y
- ws
->height
;
1356 ws
->y
= screen_height
- ws
->height
;
1362 /* Updates old_stack from new_stack and redisplays. */
1369 XPoint selection_position
;
1370 int old_depth
= mw
->menu
.old_depth
;
1371 int new_depth
= mw
->menu
.new_depth
;
1372 widget_value
** old_stack
;
1373 widget_value
** new_stack
;
1374 window_state
* windows
;
1375 widget_value
* old_selection
;
1376 widget_value
* new_selection
;
1378 /* Check that enough windows and old_stack are ready. */
1379 make_windows_if_needed (mw
, new_depth
);
1380 make_old_stack_space (mw
, new_depth
);
1381 windows
= mw
->menu
.windows
;
1382 old_stack
= mw
->menu
.old_stack
;
1383 new_stack
= mw
->menu
.new_stack
;
1385 /* compute the last identical different entry */
1386 for (i
= 1; i
< old_depth
&& i
< new_depth
; i
++)
1387 if (old_stack
[i
] != new_stack
[i
])
1391 /* Memorize the previously selected item to be able to refresh it */
1392 old_selection
= last_same
+ 1 < old_depth
? old_stack
[last_same
+ 1] : NULL
;
1393 if (old_selection
&& !old_selection
->enabled
)
1394 old_selection
= NULL
;
1395 new_selection
= last_same
+ 1 < new_depth
? new_stack
[last_same
+ 1] : NULL
;
1396 if (new_selection
&& !new_selection
->enabled
)
1397 new_selection
= NULL
;
1399 /* Call callback when the hightlighted item changes. */
1400 if (old_selection
|| new_selection
)
1401 XtCallCallbackList ((Widget
)mw
, mw
->menu
.highlight
,
1402 (XtPointer
) new_selection
);
1404 /* updates old_state from new_state. It has to be done now because
1405 display_menu (called below) uses the old_stack to know what to display. */
1406 for (i
= last_same
+ 1; i
< new_depth
; i
++)
1407 old_stack
[i
] = new_stack
[i
];
1408 mw
->menu
.old_depth
= new_depth
;
1410 /* refresh the last selection */
1411 selection_position
.x
= 0;
1412 selection_position
.y
= 0;
1413 display_menu (mw
, last_same
, new_selection
== old_selection
,
1414 &selection_position
, NULL
, NULL
, old_selection
, new_selection
);
1416 /* Now place the new menus. */
1417 for (i
= last_same
+ 1; i
< new_depth
&& new_stack
[i
]->contents
; i
++)
1419 window_state
*previous_ws
= &windows
[i
- 1];
1420 window_state
*ws
= &windows
[i
];
1422 ws
->x
= (previous_ws
->x
+ selection_position
.x
1423 + mw
->menu
.shadow_thickness
);
1424 if (mw
->menu
.horizontal
&& i
== 1)
1425 ws
->x
+= mw
->menu
.margin
;
1428 if (!mw
->menu
.horizontal
|| i
> 1)
1429 ws
->x
+= mw
->menu
.shadow_thickness
;
1432 ws
->y
= (previous_ws
->y
+ selection_position
.y
1433 + mw
->menu
.shadow_thickness
);
1434 if (mw
->menu
.horizontal
&& i
== 1)
1435 ws
->y
+= mw
->menu
.margin
;
1439 fit_to_screen (mw
, ws
, previous_ws
, mw
->menu
.horizontal
&& i
== 1);
1441 XClearWindow (XtDisplay (mw
), ws
->window
);
1442 XMoveResizeWindow (XtDisplay (mw
), ws
->window
, ws
->x
, ws
->y
,
1443 ws
->width
, ws
->height
);
1444 XMapRaised (XtDisplay (mw
), ws
->window
);
1445 display_menu (mw
, i
, False
, &selection_position
, NULL
, NULL
, NULL
, NULL
);
1448 /* unmap the menus that popped down */
1449 for (i
= new_depth
- 1; i
< old_depth
; i
++)
1450 if (i
>= new_depth
|| (i
> 0 && !new_stack
[i
]->contents
))
1451 XUnmapWindow (XtDisplay (mw
), windows
[i
].window
);
1455 motion_event_is_in_menu (mw
, ev
, level
, relative_pos
)
1459 XPoint
* relative_pos
;
1461 window_state
* ws
= &mw
->menu
.windows
[level
];
1462 int shadow
= level
== 0 ? 0 : mw
->menu
.shadow_thickness
;
1463 int x
= ws
->x
+ shadow
;
1464 int y
= ws
->y
+ shadow
;
1465 relative_pos
->x
= ev
->x_root
- x
;
1466 relative_pos
->y
= ev
->y_root
- y
;
1467 return (x
- shadow
< ev
->x_root
&& ev
->x_root
< x
+ ws
->width
1468 && y
- shadow
< ev
->y_root
&& ev
->y_root
< y
+ ws
->height
);
1472 map_event_to_widget_value (mw
, ev
, val
, level
)
1479 XPoint relative_pos
;
1485 /* Find the window */
1486 for (i
= mw
->menu
.old_depth
- 1; i
>= 0; i
--)
1488 ws
= &mw
->menu
.windows
[i
];
1489 if (ws
&& motion_event_is_in_menu (mw
, ev
, i
, &relative_pos
))
1492 display_menu (mw
, i
, True
, NULL
, &relative_pos
, val
, NULL
, NULL
);
1504 if (mw
->menu
.inside_entry
!= NULL
)
1505 XtCallCallbackList ((Widget
)mw
, mw
->menu
.leave
,
1506 (XtPointer
) mw
->menu
.inside_entry
);
1507 mw
->menu
.inside_entry
= NULL
;
1515 make_drawing_gcs (mw
)
1520 XtGCMask mask
= GCForeground
| GCBackground
;
1523 if (!mw
->menu
.fontSet
)
1525 xgcv
.font
= mw
->menu
.font
->fid
;
1529 xgcv
.font
= mw
->menu
.font
->fid
;
1532 xgcv
.foreground
= mw
->menu
.foreground
;
1533 xgcv
.background
= mw
->core
.background_pixel
;
1534 mw
->menu
.foreground_gc
= XtGetGC ((Widget
)mw
, mask
, &xgcv
);
1536 xgcv
.foreground
= mw
->menu
.button_foreground
;
1537 mw
->menu
.button_gc
= XtGetGC ((Widget
)mw
, mask
, &xgcv
);
1539 xgcv
.background
= mw
->core
.background_pixel
;
1541 #define BRIGHTNESS(color) (((color) & 0xff) + (((color) >> 8) & 0xff) + (((color) >> 16) & 0xff))
1543 /* Allocate color for disabled menu-items. */
1544 mw
->menu
.disabled_foreground
= mw
->menu
.foreground
;
1545 if (BRIGHTNESS(mw
->menu
.foreground
) < BRIGHTNESS(mw
->core
.background_pixel
))
1550 x_alloc_lighter_color_for_widget ((Widget
) mw
, XtDisplay ((Widget
) mw
),
1552 &mw
->menu
.disabled_foreground
,
1556 if (mw
->menu
.foreground
== mw
->menu
.disabled_foreground
1557 || mw
->core
.background_pixel
== mw
->menu
.disabled_foreground
)
1559 /* Too few colors, use stipple. */
1560 xgcv
.foreground
= mw
->menu
.foreground
;
1561 xgcv
.fill_style
= FillStippled
;
1562 xgcv
.stipple
= mw
->menu
.gray_pixmap
;
1563 mw
->menu
.disabled_gc
= XtGetGC ((Widget
)mw
, mask
1564 | GCFillStyle
| GCStipple
, &xgcv
);
1568 /* Many colors available, use disabled pixel. */
1569 xgcv
.foreground
= mw
->menu
.disabled_foreground
;
1570 mw
->menu
.disabled_gc
= XtGetGC ((Widget
)mw
, mask
, &xgcv
);
1573 xgcv
.foreground
= mw
->menu
.button_foreground
;
1574 xgcv
.background
= mw
->core
.background_pixel
;
1575 xgcv
.fill_style
= FillStippled
;
1576 xgcv
.stipple
= mw
->menu
.gray_pixmap
;
1577 mw
->menu
.inactive_button_gc
= XtGetGC ((Widget
)mw
, mask
1578 | GCFillStyle
| GCStipple
, &xgcv
);
1580 xgcv
.foreground
= mw
->core
.background_pixel
;
1581 xgcv
.background
= mw
->menu
.foreground
;
1582 mw
->menu
.background_gc
= XtGetGC ((Widget
)mw
, mask
, &xgcv
);
1586 release_drawing_gcs (mw
)
1589 XtReleaseGC ((Widget
) mw
, mw
->menu
.foreground_gc
);
1590 XtReleaseGC ((Widget
) mw
, mw
->menu
.button_gc
);
1591 XtReleaseGC ((Widget
) mw
, mw
->menu
.disabled_gc
);
1592 XtReleaseGC ((Widget
) mw
, mw
->menu
.inactive_button_gc
);
1593 XtReleaseGC ((Widget
) mw
, mw
->menu
.background_gc
);
1594 /* let's get some segvs if we try to use these... */
1595 mw
->menu
.foreground_gc
= (GC
) -1;
1596 mw
->menu
.button_gc
= (GC
) -1;
1597 mw
->menu
.disabled_gc
= (GC
) -1;
1598 mw
->menu
.inactive_button_gc
= (GC
) -1;
1599 mw
->menu
.background_gc
= (GC
) -1;
1602 #define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \
1603 ? ((unsigned long) (x)) : ((unsigned long) (y)))
1606 make_shadow_gcs (mw
)
1610 unsigned long pm
= 0;
1611 Display
*dpy
= XtDisplay ((Widget
) mw
);
1612 Screen
*screen
= XtScreen ((Widget
) mw
);
1613 Colormap cmap
= mw
->core
.colormap
;
1615 int top_frobbed
= 0, bottom_frobbed
= 0;
1617 mw
->menu
.free_top_shadow_color_p
= 0;
1618 mw
->menu
.free_bottom_shadow_color_p
= 0;
1620 if (mw
->menu
.top_shadow_color
== -1)
1621 mw
->menu
.top_shadow_color
= mw
->core
.background_pixel
;
1623 mw
->menu
.top_shadow_color
= mw
->menu
.top_shadow_color
;
1625 if (mw
->menu
.bottom_shadow_color
== -1)
1626 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1628 mw
->menu
.bottom_shadow_color
= mw
->menu
.bottom_shadow_color
;
1630 if (mw
->menu
.top_shadow_color
== mw
->core
.background_pixel
||
1631 mw
->menu
.top_shadow_color
== mw
->menu
.foreground
)
1633 topc
.pixel
= mw
->core
.background_pixel
;
1635 if (x_alloc_lighter_color_for_widget ((Widget
) mw
, dpy
, cmap
,
1639 XQueryColor (dpy
, cmap
, &topc
);
1640 /* don't overflow/wrap! */
1641 topc
.red
= MINL (65535, topc
.red
* 1.2);
1642 topc
.green
= MINL (65535, topc
.green
* 1.2);
1643 topc
.blue
= MINL (65535, topc
.blue
* 1.2);
1644 if (XAllocColor (dpy
, cmap
, &topc
))
1647 mw
->menu
.top_shadow_color
= topc
.pixel
;
1648 mw
->menu
.free_top_shadow_color_p
= 1;
1652 if (mw
->menu
.bottom_shadow_color
== mw
->menu
.foreground
||
1653 mw
->menu
.bottom_shadow_color
== mw
->core
.background_pixel
)
1655 botc
.pixel
= mw
->core
.background_pixel
;
1657 if (x_alloc_lighter_color_for_widget ((Widget
) mw
, dpy
, cmap
,
1661 XQueryColor (dpy
, cmap
, &botc
);
1665 if (XAllocColor (dpy
, cmap
, &botc
))
1668 mw
->menu
.bottom_shadow_color
= botc
.pixel
;
1669 mw
->menu
.free_bottom_shadow_color_p
= 1;
1674 if (top_frobbed
&& bottom_frobbed
)
1676 if (topc
.pixel
== botc
.pixel
)
1678 if (botc
.pixel
== mw
->menu
.foreground
)
1680 if (mw
->menu
.free_top_shadow_color_p
)
1682 x_free_dpy_colors (dpy
, screen
, cmap
,
1683 &mw
->menu
.top_shadow_color
, 1);
1684 mw
->menu
.free_top_shadow_color_p
= 0;
1686 mw
->menu
.top_shadow_color
= mw
->core
.background_pixel
;
1690 if (mw
->menu
.free_bottom_shadow_color_p
)
1692 x_free_dpy_colors (dpy
, screen
, cmap
,
1693 &mw
->menu
.bottom_shadow_color
, 1);
1694 mw
->menu
.free_bottom_shadow_color_p
= 0;
1696 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1701 if (!mw
->menu
.top_shadow_pixmap
&&
1702 mw
->menu
.top_shadow_color
== mw
->core
.background_pixel
)
1704 mw
->menu
.top_shadow_pixmap
= mw
->menu
.gray_pixmap
;
1705 if (mw
->menu
.free_top_shadow_color_p
)
1707 x_free_dpy_colors (dpy
, screen
, cmap
, &mw
->menu
.top_shadow_color
, 1);
1708 mw
->menu
.free_top_shadow_color_p
= 0;
1710 mw
->menu
.top_shadow_color
= mw
->menu
.foreground
;
1712 if (!mw
->menu
.bottom_shadow_pixmap
&&
1713 mw
->menu
.bottom_shadow_color
== mw
->core
.background_pixel
)
1715 mw
->menu
.bottom_shadow_pixmap
= mw
->menu
.gray_pixmap
;
1716 if (mw
->menu
.free_bottom_shadow_color_p
)
1718 x_free_dpy_colors (dpy
, screen
, cmap
,
1719 &mw
->menu
.bottom_shadow_color
, 1);
1720 mw
->menu
.free_bottom_shadow_color_p
= 0;
1722 mw
->menu
.bottom_shadow_color
= mw
->menu
.foreground
;
1725 xgcv
.fill_style
= FillStippled
;
1726 xgcv
.foreground
= mw
->menu
.top_shadow_color
;
1727 xgcv
.stipple
= mw
->menu
.top_shadow_pixmap
;
1728 pm
= (xgcv
.stipple
? GCStipple
|GCFillStyle
: 0);
1729 mw
->menu
.shadow_top_gc
= XtGetGC ((Widget
)mw
, GCForeground
| pm
, &xgcv
);
1731 xgcv
.foreground
= mw
->menu
.bottom_shadow_color
;
1732 xgcv
.stipple
= mw
->menu
.bottom_shadow_pixmap
;
1733 pm
= (xgcv
.stipple
? GCStipple
|GCFillStyle
: 0);
1734 mw
->menu
.shadow_bottom_gc
= XtGetGC ((Widget
)mw
, GCForeground
| pm
, &xgcv
);
1739 release_shadow_gcs (mw
)
1742 Display
*dpy
= XtDisplay ((Widget
) mw
);
1743 Screen
*screen
= XtScreen ((Widget
) mw
);
1744 Colormap cmap
= mw
->core
.colormap
;
1748 if (mw
->menu
.free_top_shadow_color_p
)
1749 px
[i
++] = mw
->menu
.top_shadow_color
;
1750 if (mw
->menu
.free_bottom_shadow_color_p
)
1751 px
[i
++] = mw
->menu
.bottom_shadow_color
;
1753 x_free_dpy_colors (dpy
, screen
, cmap
, px
, i
);
1755 XtReleaseGC ((Widget
) mw
, mw
->menu
.shadow_top_gc
);
1756 XtReleaseGC ((Widget
) mw
, mw
->menu
.shadow_bottom_gc
);
1760 XlwMenuInitialize (request
, mw
, args
, num_args
)
1766 /* Get the GCs and the widget size */
1768 Window window
= RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw
)));
1769 Display
* display
= XtDisplay (mw
);
1772 widget_value
*tem
= (widget_value
*) XtMalloc (sizeof (widget_value
));
1774 /* _XtCreate is freeing the object that was passed to us,
1775 so make a copy that we will actually keep. */
1776 lwlib_bcopy (mw
->menu
.contents
, tem
, sizeof (widget_value
));
1777 mw
->menu
.contents
= tem
;
1780 /* mw->menu.cursor = XCreateFontCursor (display, mw->menu.cursor_shape); */
1781 mw
->menu
.cursor
= mw
->menu
.cursor_shape
;
1783 mw
->menu
.gray_pixmap
1784 = XCreatePixmapFromBitmapData (display
, window
, gray_bitmap_bits
,
1785 gray_bitmap_width
, gray_bitmap_height
,
1786 (unsigned long)1, (unsigned long)0, 1);
1788 /* I don't understand why this ends up 0 sometimes,
1789 but it does. This kludge works around it.
1790 Can anyone find a real fix? -- rms. */
1791 if (mw
->menu
.font
== 0)
1792 mw
->menu
.font
= xlwmenu_default_font
;
1794 if (mw
->menu
.fontSet
)
1795 mw
->menu
.font_extents
= XExtentsOfFontSet (mw
->menu
.fontSet
);
1798 make_drawing_gcs (mw
);
1799 make_shadow_gcs (mw
);
1801 mw
->menu
.popped_up
= False
;
1803 mw
->menu
.old_depth
= 1;
1804 mw
->menu
.old_stack
= (widget_value
**)XtMalloc (sizeof (widget_value
*));
1805 mw
->menu
.old_stack_length
= 1;
1806 mw
->menu
.old_stack
[0] = mw
->menu
.contents
;
1808 mw
->menu
.new_depth
= 0;
1809 mw
->menu
.new_stack
= 0;
1810 mw
->menu
.new_stack_length
= 0;
1811 push_new_stack (mw
, mw
->menu
.contents
);
1813 mw
->menu
.windows
= (window_state
*)XtMalloc (sizeof (window_state
));
1814 mw
->menu
.windows_length
= 1;
1815 mw
->menu
.windows
[0].x
= 0;
1816 mw
->menu
.windows
[0].y
= 0;
1817 mw
->menu
.windows
[0].width
= 0;
1818 mw
->menu
.windows
[0].height
= 0;
1821 mw
->core
.width
= mw
->menu
.windows
[0].width
;
1822 mw
->core
.height
= mw
->menu
.windows
[0].height
;
1826 XlwMenuClassInitialize ()
1831 XlwMenuRealize (w
, valueMask
, attributes
)
1834 XSetWindowAttributes
*attributes
;
1836 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1837 XSetWindowAttributes xswa
;
1840 (*xlwMenuWidgetClass
->core_class
.superclass
->core_class
.realize
)
1841 (w
, valueMask
, attributes
);
1843 xswa
.save_under
= True
;
1844 xswa
.cursor
= mw
->menu
.cursor_shape
;
1845 mask
= CWSaveUnder
| CWCursor
;
1846 XChangeWindowAttributes (XtDisplay (w
), XtWindow (w
), mask
, &xswa
);
1848 mw
->menu
.windows
[0].window
= XtWindow (w
);
1849 mw
->menu
.windows
[0].x
= w
->core
.x
;
1850 mw
->menu
.windows
[0].y
= w
->core
.y
;
1851 mw
->menu
.windows
[0].width
= w
->core
.width
;
1852 mw
->menu
.windows
[0].height
= w
->core
.height
;
1855 /* Only the toplevel menubar/popup is a widget so it's the only one that
1856 receives expose events through Xt. So we repaint all the other panes
1857 when receiving an Expose event. */
1859 XlwMenuRedisplay (w
, ev
, region
)
1864 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
1867 /* If we have a depth beyond 1, it's because a submenu was displayed.
1868 If the submenu has been destroyed, set the depth back to 1. */
1869 if (submenu_destroyed
)
1871 mw
->menu
.old_depth
= 1;
1872 submenu_destroyed
= 0;
1875 for (i
= 0; i
< mw
->menu
.old_depth
; i
++)
1876 display_menu (mw
, i
, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
1880 /* Part of a hack to make the menu redisplay when a tooltip frame
1881 over a menu item is unmapped. */
1884 xlwmenu_redisplay (w
)
1887 XlwMenuRedisplay (w
, NULL
, None
);
1895 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
1897 if (pointer_grabbed
)
1898 ungrab_all ((Widget
)w
, CurrentTime
);
1899 pointer_grabbed
= 0;
1901 submenu_destroyed
= 1;
1903 release_drawing_gcs (mw
);
1904 release_shadow_gcs (mw
);
1906 /* this doesn't come from the resource db but is created explicitly
1907 so we must free it ourselves. */
1908 XFreePixmap (XtDisplay (mw
), mw
->menu
.gray_pixmap
);
1909 mw
->menu
.gray_pixmap
= (Pixmap
) -1;
1912 /* Do free mw->menu.contents because nowadays we copy it
1913 during initialization. */
1914 XtFree (mw
->menu
.contents
);
1917 /* Don't free mw->menu.contents because that comes from our creator.
1918 The `*_stack' elements are just pointers into `contents' so leave
1919 that alone too. But free the stacks themselves. */
1920 if (mw
->menu
.old_stack
) XtFree ((char *) mw
->menu
.old_stack
);
1921 if (mw
->menu
.new_stack
) XtFree ((char *) mw
->menu
.new_stack
);
1923 /* Remember, you can't free anything that came from the resource
1924 database. This includes:
1926 mw->menu.top_shadow_pixmap
1927 mw->menu.bottom_shadow_pixmap
1929 Also the color cells of top_shadow_color, bottom_shadow_color,
1930 foreground, and button_foreground will never be freed until this
1931 client exits. Nice, eh?
1934 /* start from 1 because the one in slot 0 is w->core.window */
1935 for (i
= 1; i
< mw
->menu
.windows_length
; i
++)
1936 XDestroyWindow (XtDisplay (mw
), mw
->menu
.windows
[i
].window
);
1937 if (mw
->menu
.windows
)
1938 XtFree ((char *) mw
->menu
.windows
);
1942 XlwMenuSetValues (current
, request
, new)
1947 XlwMenuWidget oldmw
= (XlwMenuWidget
)current
;
1948 XlwMenuWidget newmw
= (XlwMenuWidget
)new;
1949 Boolean redisplay
= False
;
1952 if (newmw
->menu
.contents
1953 && newmw
->menu
.contents
->contents
1954 && newmw
->menu
.contents
->contents
->change
>= VISIBLE_CHANGE
)
1956 /* Do redisplay if the contents are entirely eliminated. */
1957 if (newmw
->menu
.contents
1958 && newmw
->menu
.contents
->contents
== 0
1959 && newmw
->menu
.contents
->change
>= VISIBLE_CHANGE
)
1962 if (newmw
->core
.background_pixel
!= oldmw
->core
.background_pixel
1963 || newmw
->menu
.foreground
!= oldmw
->menu
.foreground
1965 || newmw
->menu
.fontSet
!= oldmw
->menu
.fontSet
1966 || (newmw
->menu
.fontSet
== NULL
&& newmw
->menu
.font
!= oldmw
->menu
.font
)
1968 || newmw
->menu
.font
!= oldmw
->menu
.font
1972 release_drawing_gcs (newmw
);
1973 make_drawing_gcs (newmw
);
1975 release_shadow_gcs (newmw
);
1976 /* Cause the shadow colors to be recalculated. */
1977 newmw
->menu
.top_shadow_color
= -1;
1978 newmw
->menu
.bottom_shadow_color
= -1;
1979 make_shadow_gcs (newmw
);
1983 if (XtIsRealized (current
))
1984 /* If the menu is currently displayed, change the display. */
1985 for (i
= 0; i
< oldmw
->menu
.windows_length
; i
++)
1987 XSetWindowBackground (XtDisplay (oldmw
),
1988 oldmw
->menu
.windows
[i
].window
,
1989 newmw
->core
.background_pixel
);
1990 /* clear windows and generate expose events */
1991 XClearArea (XtDisplay (oldmw
), oldmw
->menu
.windows
[i
].window
,
1997 if (newmw
->menu
.fontSet
!= oldmw
->menu
.fontSet
&& newmw
->menu
.fontSet
!= NULL
)
2000 newmw
->menu
.font_extents
= XExtentsOfFontSet (newmw
->menu
.fontSet
);
2011 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
2013 if (mw
->menu
.popped_up
)
2015 /* Don't allow the popup menu to resize itself. */
2016 mw
->core
.width
= mw
->menu
.windows
[0].width
;
2017 mw
->core
.height
= mw
->menu
.windows
[0].height
;
2018 mw
->core
.parent
->core
.width
= mw
->core
.width
;
2019 mw
->core
.parent
->core
.height
= mw
->core
.height
;
2023 mw
->menu
.windows
[0].width
= mw
->core
.width
;
2024 mw
->menu
.windows
[0].height
= mw
->core
.height
;
2028 \f/* Action procedures */
2030 handle_single_motion_event (mw
, ev
)
2037 if (!map_event_to_widget_value (mw
, ev
, &val
, &level
))
2038 pop_new_stack_if_no_contents (mw
);
2040 set_new_state (mw
, val
, level
);
2043 /* Sync with the display. Makes it feel better on X terms. */
2044 XSync (XtDisplay (mw
), False
);
2048 handle_motion_event (mw
, ev
)
2054 int state
= ev
->state
;
2056 handle_single_motion_event (mw
, ev
);
2058 /* allow motion events to be generated again */
2060 && XQueryPointer (XtDisplay (mw
), ev
->window
,
2061 &ev
->root
, &ev
->subwindow
,
2062 &ev
->x_root
, &ev
->y_root
,
2065 && ev
->state
== state
2066 && (ev
->x_root
!= x
|| ev
->y_root
!= y
))
2067 handle_single_motion_event (mw
, ev
);
2071 Start (w
, ev
, params
, num_params
)
2075 Cardinal
*num_params
;
2077 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
2079 if (!mw
->menu
.popped_up
)
2081 menu_post_event
= *ev
;
2082 /* If event is set to CurrentTime, get the last known time stamp.
2083 This is for calculating if (popup) menus should stay up after
2085 if (menu_post_event
.xbutton
.time
== CurrentTime
)
2086 menu_post_event
.xbutton
.time
2087 = XtLastTimestampProcessed (XtDisplay (w
));
2089 pop_up_menu (mw
, (XButtonPressedEvent
*) ev
);
2093 /* If we push a button while the menu is posted semipermanently,
2094 releasing the button should always pop the menu down. */
2095 next_release_must_exit
= 1;
2097 /* notes the absolute position of the menubar window */
2098 mw
->menu
.windows
[0].x
= ev
->xmotion
.x_root
- ev
->xmotion
.x
;
2099 mw
->menu
.windows
[0].y
= ev
->xmotion
.y_root
- ev
->xmotion
.y
;
2101 /* handles the down like a move, slots are compatible */
2102 ev
->xmotion
.is_hint
= 0;
2103 handle_motion_event (mw
, &ev
->xmotion
);
2108 Drag (w
, ev
, params
, num_params
)
2112 Cardinal
*num_params
;
2114 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
2115 if (mw
->menu
.popped_up
)
2116 handle_motion_event (mw
, &ev
->xmotion
);
2120 This is how we handle presses and releases of modifier keys. */
2122 Nothing (w
, ev
, params
, num_params
)
2126 Cardinal
*num_params
;
2130 static widget_value
*
2131 find_first_selectable (mw
, item
, skip_titles
)
2136 widget_value
*current
= item
;
2137 enum menu_separator separator
;
2139 while (lw_separator_p (current
->name
, &separator
, 0) || !current
->enabled
2140 || (skip_titles
&& !current
->call_data
&& !current
->contents
))
2142 current
=current
->next
;
2149 static widget_value
*
2150 find_next_selectable (mw
, item
, skip_titles
)
2155 widget_value
*current
= item
;
2156 enum menu_separator separator
;
2158 while (current
->next
&& (current
=current
->next
) &&
2159 (lw_separator_p (current
->name
, &separator
, 0) || !current
->enabled
2160 || (skip_titles
&& !current
->call_data
&& !current
->contents
)))
2163 if (current
== item
)
2165 if (mw
->menu
.old_depth
< 2)
2167 current
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 2]->contents
;
2169 while (lw_separator_p (current
->name
, &separator
, 0)
2170 || !current
->enabled
2171 || (skip_titles
&& !current
->call_data
2172 && !current
->contents
))
2175 current
=current
->next
;
2177 if (current
== item
)
2186 static widget_value
*
2187 find_prev_selectable (mw
, item
, skip_titles
)
2192 widget_value
*current
= item
;
2193 widget_value
*prev
= item
;
2195 while ((current
=find_next_selectable (mw
, current
, skip_titles
))
2198 if (prev
== current
)
2207 Down (w
, ev
, params
, num_params
)
2211 Cardinal
*num_params
;
2213 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
2214 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2215 int popup_menu_p
= mw
->menu
.top_depth
== 1;
2217 /* Inside top-level menu-bar? */
2218 if (mw
->menu
.old_depth
== mw
->menu
.top_depth
)
2219 /* When <down> in the menu-bar is pressed, display the corresponding
2220 sub-menu and select the first selectable menu item there.
2221 If this is a popup menu, skip title item of the popup. */
2223 find_first_selectable (mw
,
2224 selected_item
->contents
,
2226 mw
->menu
.old_depth
);
2228 /* Highlight next possible (enabled and not separator) menu item. */
2229 set_new_state (mw
, find_next_selectable (mw
, selected_item
, popup_menu_p
),
2230 mw
->menu
.old_depth
- 1);
2236 Up (w
, ev
, params
, num_params
)
2240 Cardinal
*num_params
;
2242 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
2243 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2244 int popup_menu_p
= mw
->menu
.top_depth
== 1;
2246 /* Inside top-level menu-bar? */
2247 if (mw
->menu
.old_depth
== mw
->menu
.top_depth
)
2249 /* FIXME: this is tricky. <up> in the menu-bar should select the
2250 last selectable item in the list. So we select the first
2251 selectable one and find the previous selectable item. Is there
2253 /* If this is a popup menu, skip title item of the popup. */
2255 find_first_selectable (mw
,
2256 selected_item
->contents
,
2258 mw
->menu
.old_depth
);
2260 selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2262 find_prev_selectable (mw
,
2265 mw
->menu
.old_depth
- 1);
2268 /* Highlight previous (enabled and not separator) menu item. */
2269 set_new_state (mw
, find_prev_selectable (mw
, selected_item
, popup_menu_p
),
2270 mw
->menu
.old_depth
- 1);
2276 Left (w
, ev
, params
, num_params
)
2280 Cardinal
*num_params
;
2282 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
2283 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2285 /* Inside top-level menu-bar? */
2286 if (mw
->menu
.old_depth
== mw
->menu
.top_depth
)
2287 /* When <left> in the menu-bar is pressed, display the previous item on
2288 the menu-bar. If the current item is the first one, highlight the
2289 last item in the menubar (probably Help). */
2290 set_new_state (mw
, find_prev_selectable (mw
, selected_item
, 0),
2291 mw
->menu
.old_depth
- 1);
2292 else if (mw
->menu
.old_depth
== 1
2293 && selected_item
->contents
) /* Is this menu item expandable? */
2295 set_new_state (mw
, selected_item
->contents
, mw
->menu
.old_depth
);
2297 selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2298 if (!selected_item
->enabled
&& find_first_selectable (mw
,
2301 set_new_state (mw
, find_first_selectable (mw
, selected_item
, 0),
2302 mw
->menu
.old_depth
- 1);
2307 pop_new_stack_if_no_contents (mw
);
2308 set_new_state (mw
, mw
->menu
.old_stack
[mw
->menu
.old_depth
- 2],
2309 mw
->menu
.old_depth
- 2);
2316 Right (w
, ev
, params
, num_params
)
2320 Cardinal
*num_params
;
2322 XlwMenuWidget mw
= (XlwMenuWidget
) w
;
2323 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2325 /* Inside top-level menu-bar? */
2326 if (mw
->menu
.old_depth
== mw
->menu
.top_depth
)
2327 /* When <right> in the menu-bar is pressed, display the next item on
2328 the menu-bar. If the current item is the last one, highlight the
2329 first item (probably File). */
2330 set_new_state (mw
, find_next_selectable (mw
, selected_item
, 0),
2331 mw
->menu
.old_depth
- 1);
2332 else if (selected_item
->contents
) /* Is this menu item expandable? */
2334 set_new_state (mw
, selected_item
->contents
, mw
->menu
.old_depth
);
2336 selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2337 if (!selected_item
->enabled
&& find_first_selectable (mw
,
2340 set_new_state (mw
, find_first_selectable (mw
, selected_item
, 0),
2341 mw
->menu
.old_depth
- 1);
2345 pop_new_stack_if_no_contents (mw
);
2346 set_new_state (mw
, mw
->menu
.old_stack
[mw
->menu
.old_depth
- 2],
2347 mw
->menu
.old_depth
- 2);
2353 /* Handle key press and release events while menu is popped up.
2354 Our action is to get rid of the menu. */
2356 Key (w
, ev
, params
, num_params
)
2360 Cardinal
*num_params
;
2362 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
2364 /* Pop down everything. */
2365 mw
->menu
.new_depth
= 1;
2368 if (mw
->menu
.popped_up
)
2370 mw
->menu
.popped_up
= False
;
2371 ungrab_all ((Widget
)mw
, ev
->xmotion
.time
);
2372 if (XtIsShell (XtParent ((Widget
) mw
)))
2373 XtPopdown (XtParent ((Widget
) mw
));
2376 XtRemoveGrab ((Widget
) mw
);
2377 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
2382 XtCallCallbackList ((Widget
)mw
, mw
->menu
.select
, (XtPointer
)0);
2386 Select (w
, ev
, params
, num_params
)
2390 Cardinal
*num_params
;
2392 XlwMenuWidget mw
= (XlwMenuWidget
)w
;
2393 widget_value
* selected_item
= mw
->menu
.old_stack
[mw
->menu
.old_depth
- 1];
2395 /* If user releases the button quickly, without selecting anything,
2396 after the initial down-click that brought the menu up,
2398 if ((selected_item
== 0
2399 || ((widget_value
*) selected_item
)->call_data
== 0)
2400 && !next_release_must_exit
2401 && (ev
->xbutton
.time
- menu_post_event
.xbutton
.time
2402 < XtGetMultiClickTime (XtDisplay (w
))))
2405 /* pop down everything. */
2406 mw
->menu
.new_depth
= 1;
2409 if (mw
->menu
.popped_up
)
2411 mw
->menu
.popped_up
= False
;
2412 ungrab_all ((Widget
)mw
, ev
->xmotion
.time
);
2413 if (XtIsShell (XtParent ((Widget
) mw
)))
2414 XtPopdown (XtParent ((Widget
) mw
));
2417 XtRemoveGrab ((Widget
) mw
);
2418 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
2423 XtCallCallbackList ((Widget
)mw
, mw
->menu
.select
, (XtPointer
)selected_item
);
2427 \f/* Special code to pop-up a menu */
2429 pop_up_menu (mw
, event
)
2431 XButtonPressedEvent
* event
;
2433 int x
= event
->x_root
;
2434 int y
= event
->y_root
;
2437 int borderwidth
= mw
->menu
.shadow_thickness
;
2438 Screen
* screen
= XtScreen (mw
);
2439 Display
*display
= XtDisplay (mw
);
2441 next_release_must_exit
= 0;
2443 mw
->menu
.inside_entry
= NULL
;
2444 XtCallCallbackList ((Widget
)mw
, mw
->menu
.open
, NULL
);
2446 if (XtIsShell (XtParent ((Widget
)mw
)))
2449 w
= mw
->menu
.windows
[0].width
;
2450 h
= mw
->menu
.windows
[0].height
;
2454 if (x
< borderwidth
)
2456 if (x
+ w
+ 2 * borderwidth
> WidthOfScreen (screen
))
2457 x
= WidthOfScreen (screen
) - w
- 2 * borderwidth
;
2458 if (y
< borderwidth
)
2460 if (y
+ h
+ 2 * borderwidth
> HeightOfScreen (screen
))
2461 y
= HeightOfScreen (screen
) - h
- 2 * borderwidth
;
2463 mw
->menu
.popped_up
= True
;
2464 if (XtIsShell (XtParent ((Widget
)mw
)))
2466 XtConfigureWidget (XtParent ((Widget
)mw
), x
, y
, w
, h
,
2467 XtParent ((Widget
)mw
)->core
.border_width
);
2468 XtPopup (XtParent ((Widget
)mw
), XtGrabExclusive
);
2469 display_menu (mw
, 0, False
, NULL
, NULL
, NULL
, NULL
, NULL
);
2470 mw
->menu
.windows
[0].x
= x
+ borderwidth
;
2471 mw
->menu
.windows
[0].y
= y
+ borderwidth
;
2472 mw
->menu
.top_depth
= 1; /* Popup menus don't have a bar so top is 1 */
2476 XEvent
*ev
= (XEvent
*) event
;
2478 XtAddGrab ((Widget
) mw
, True
, True
);
2480 /* notes the absolute position of the menubar window */
2481 mw
->menu
.windows
[0].x
= ev
->xmotion
.x_root
- ev
->xmotion
.x
;
2482 mw
->menu
.windows
[0].y
= ev
->xmotion
.y_root
- ev
->xmotion
.y
;
2483 mw
->menu
.top_depth
= 2;
2487 x_catch_errors (display
);
2489 if (XtGrabPointer ((Widget
)mw
, False
,
2491 | PointerMotionHintMask
2494 GrabModeAsync
, GrabModeAsync
, None
,
2495 mw
->menu
.cursor_shape
,
2496 event
->time
) == Success
)
2499 || XtGrabKeyboard ((Widget
)mw
, False
, GrabModeAsync
,
2500 GrabModeAsync
, event
->time
) == Success
)
2502 XtSetKeyboardFocus((Widget
)mw
, None
);
2503 pointer_grabbed
= 1;
2506 XtUngrabPointer ((Widget
)mw
, event
->time
);
2510 if (x_had_errors_p (display
))
2512 pointer_grabbed
= 0;
2513 XtUngrabPointer ((Widget
)mw
, event
->time
);
2515 x_uncatch_errors ();
2518 ((XMotionEvent
*)event
)->is_hint
= 0;
2519 handle_motion_event (mw
, (XMotionEvent
*)event
);
2522 /* arch-tag: 657f43dd-dfd0-4cc9-910c-52935f01176e
2523 (do not change this comment) */