annotate lwlib/xlwmenu.c @ 10233:100a10bb4d47

(read_char): Don't echo keys when echo_keystrokes is 0.
author Richard M. Stallman <rms@gnu.org>
date Sat, 24 Dec 1994 01:53:16 +0000
parents 49e984bf6689
children 65c12e57f119
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* Implements a lightweight menubar widget.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
2 Copyright (C) 1992 Lucid, Inc.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 This file is part of the Lucid Widget Library.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 The Lucid Widget Library is free software; you can redistribute it and/or
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7 modify it under the terms of the GNU General Public License as published by
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
9 any later version.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
11 The Lucid Widget Library is distributed in the hope that it will be useful,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
14 GNU General Public License for more details.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
15
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
17 Alongalong with GNU Emacs; see the file COPYING. If not, write to
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 /* Created by devin@lucid.com */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 #include <stdio.h>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 #include <sys/types.h>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 #include <X11/Xos.h>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 #include <X11/IntrinsicP.h>
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
27 #include <X11/ObjectP.h>
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 #include <X11/StringDefs.h>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 #include <X11/cursorfont.h>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 #include <X11/bitmaps/gray>
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 #include "xlwmenuP.h"
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
32
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
33 static int pointer_grabbed;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
34 static XEvent menu_post_event;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
9746
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
36 XFontStruct *xlwmenu_default_font;
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
37
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 static char
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 xlwMenuTranslations [] =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 "<BtnDown>: start()\n\
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
41 <Motion>: drag()\n\
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 <BtnUp>: select()\n\
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 ";
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 #define offset(field) XtOffset(XlwMenuWidget, field)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46 static XtResource
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 xlwMenuResources[] =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 {XtNfont, XtCFont, XtRFontStruct, sizeof(XFontStruct *),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 offset(menu.font),XtRString, "XtDefaultFont"},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 {XtNforeground, XtCForeground, XtRPixel, sizeof(Pixel),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 offset(menu.foreground), XtRString, "XtDefaultForeground"},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 {XtNbuttonForeground, XtCButtonForeground, XtRPixel, sizeof(Pixel),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 offset(menu.button_foreground), XtRString, "XtDefaultForeground"},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 {XtNmargin, XtCMargin, XtRDimension, sizeof(Dimension),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 offset(menu.margin), XtRImmediate, (XtPointer)0},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 {XtNhorizontalSpacing, XtCMargin, XtRDimension, sizeof(Dimension),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 offset(menu.horizontal_spacing), XtRImmediate, (XtPointer)3},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
59 {XtNverticalSpacing, XtCMargin, XtRDimension, sizeof(Dimension),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
60 offset(menu.vertical_spacing), XtRImmediate, (XtPointer)1},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61 {XtNarrowSpacing, XtCMargin, XtRDimension, sizeof(Dimension),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
62 offset(menu.arrow_spacing), XtRImmediate, (XtPointer)10},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
63
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
64 {XmNshadowThickness, XmCShadowThickness, XtRDimension,
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 sizeof (Dimension), offset (menu.shadow_thickness),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 XtRImmediate, (XtPointer) 2},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 {XmNtopShadowColor, XmCTopShadowColor, XtRPixel, sizeof (Pixel),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 offset (menu.top_shadow_color), XtRImmediate, (XtPointer)-1},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
69 {XmNbottomShadowColor, XmCBottomShadowColor, XtRPixel, sizeof (Pixel),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 offset (menu.bottom_shadow_color), XtRImmediate, (XtPointer)-1},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71 {XmNtopShadowPixmap, XmCTopShadowPixmap, XtRPixmap, sizeof (Pixmap),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
72 offset (menu.top_shadow_pixmap), XtRImmediate, (XtPointer)None},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 {XmNbottomShadowPixmap, XmCBottomShadowPixmap, XtRPixmap, sizeof (Pixmap),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74 offset (menu.bottom_shadow_pixmap), XtRImmediate, (XtPointer)None},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 {XtNopen, XtCCallback, XtRCallback, sizeof(XtPointer),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 offset(menu.open), XtRCallback, (XtPointer)NULL},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 {XtNselect, XtCCallback, XtRCallback, sizeof(XtPointer),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 offset(menu.select), XtRCallback, (XtPointer)NULL},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 {XtNmenu, XtCMenu, XtRPointer, sizeof(XtPointer),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 offset(menu.contents), XtRImmediate, (XtPointer)NULL},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 {XtNcursor, XtCCursor, XtRCursor, sizeof(Cursor),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 offset(menu.cursor_shape), XtRString, (XtPointer)"right_ptr"},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 {XtNhorizontal, XtCHorizontal, XtRInt, sizeof(int),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 offset(menu.horizontal), XtRImmediate, (XtPointer)True},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86 };
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 #undef offset
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 static Boolean XlwMenuSetValues();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 static void XlwMenuRealize();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
91 static void XlwMenuRedisplay();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 static void XlwMenuResize();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 static void XlwMenuInitialize();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 static void XlwMenuRedisplay();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95 static void XlwMenuDestroy();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 static void XlwMenuClassInitialize();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 static void Start();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 static void Drag();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 static void Select();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 static XtActionsRec
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102 xlwMenuActionsList [] =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 {"start", Start},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 {"drag", Drag},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 {"select", Select},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 };
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 #define SuperClass ((CoreWidgetClass)&coreClassRec)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 XlwMenuClassRec xlwMenuClassRec =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 { /* CoreClass fields initialization */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 (WidgetClass) SuperClass, /* superclass */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 "XlwMenu", /* class_name */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 sizeof(XlwMenuRec), /* size */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 XlwMenuClassInitialize, /* class_initialize */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 NULL, /* class_part_initialize */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 FALSE, /* class_inited */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 XlwMenuInitialize, /* initialize */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 NULL, /* initialize_hook */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 XlwMenuRealize, /* realize */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 xlwMenuActionsList, /* actions */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 XtNumber(xlwMenuActionsList), /* num_actions */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 xlwMenuResources, /* resources */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 XtNumber(xlwMenuResources), /* resource_count */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 NULLQUARK, /* xrm_class */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 TRUE, /* compress_motion */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 TRUE, /* compress_exposure */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 TRUE, /* compress_enterleave */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 FALSE, /* visible_interest */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 XlwMenuDestroy, /* destroy */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 XlwMenuResize, /* resize */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 XlwMenuRedisplay, /* expose */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 XlwMenuSetValues, /* set_values */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136 NULL, /* set_values_hook */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 XtInheritSetValuesAlmost, /* set_values_almost */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 NULL, /* get_values_hook */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139 NULL, /* accept_focus */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 XtVersion, /* version */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 NULL, /* callback_private */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142 xlwMenuTranslations, /* tm_table */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 XtInheritQueryGeometry, /* query_geometry */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 XtInheritDisplayAccelerator, /* display_accelerator */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145 NULL /* extension */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 }, /* XlwMenuClass fields initialization */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 0 /* dummy */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 },
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 };
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
151
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
152 WidgetClass xlwMenuWidgetClass = (WidgetClass) &xlwMenuClassRec;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
154 int submenu_destroyed;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
155
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
156 static int next_release_must_exit;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
157
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 /* Utilities */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
160 push_new_stack (mw, val)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
161 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
162 widget_value* val;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 if (!mw->menu.new_stack)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
165 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
166 mw->menu.new_stack_length = 10;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
167 mw->menu.new_stack =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 (widget_value**)XtCalloc (mw->menu.new_stack_length,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
169 sizeof (widget_value*));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
171 else if (mw->menu.new_depth == mw->menu.new_stack_length)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
172 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
173 mw->menu.new_stack_length *= 2;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
174 mw->menu.new_stack =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 (widget_value**)XtRealloc ((char*)mw->menu.new_stack,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
176 mw->menu.new_stack_length * sizeof (widget_value*));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
177 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
178 mw->menu.new_stack [mw->menu.new_depth++] = val;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
179 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
180
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
181 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
182 pop_new_stack_if_no_contents (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
183 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
184 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
185 if (mw->menu.new_depth)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187 if (!mw->menu.new_stack [mw->menu.new_depth - 1]->contents)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
188 mw->menu.new_depth -= 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
189 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
190 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
191
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
192 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
193 make_old_stack_space (mw, n)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
194 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
195 int n;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
196 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
197 if (!mw->menu.old_stack)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
198 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
199 mw->menu.old_stack_length = 10;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
200 mw->menu.old_stack =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
201 (widget_value**)XtCalloc (mw->menu.old_stack_length,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
202 sizeof (widget_value*));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
203 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
204 else if (mw->menu.old_stack_length < n)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
205 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
206 mw->menu.old_stack_length *= 2;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 mw->menu.old_stack =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208 (widget_value**)XtRealloc ((char*)mw->menu.old_stack,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 mw->menu.old_stack_length * sizeof (widget_value*));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 /* Size code */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 static Boolean
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
215 all_dashes_p (s)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
216 char *s;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 char* p;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 for (p = s; *p == '-'; p++);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 return !*p;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
223 int
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
224 string_width (mw, s)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
225 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
226 char *s;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 XCharStruct xcs;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 int drop;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 XTextExtents (mw->menu.font, s, strlen (s), &drop, &drop, &drop, &xcs);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232 return xcs.width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 static int
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
236 arrow_width (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
237 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239 return mw->menu.font->ascent / 2 | 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 static XtResource
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 nameResource[] =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 {"labelString", "LabelString", XtRString, sizeof(String),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 0, XtRImmediate, 0},
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 };
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 static char*
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
250 resource_widget_value (mw, val)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
251 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
252 widget_value *val;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 if (!val->toolkit_data)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 char* resourced_name = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 char* complete_name;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 XtGetSubresources ((Widget) mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 (XtPointer) &resourced_name,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 val->name, val->name,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 nameResource, 1, NULL, 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 if (!resourced_name)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 resourced_name = val->name;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
264 if (!val->value)
5654
f84dac6453db *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 5626
diff changeset
265 {
f84dac6453db *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 5626
diff changeset
266 complete_name = (char *) XtMalloc (strlen (resourced_name) + 1);
f84dac6453db *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 5626
diff changeset
267 strcpy (complete_name, resourced_name);
f84dac6453db *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 5626
diff changeset
268 }
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
269 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
270 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
271 int complete_length =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
272 strlen (resourced_name) + strlen (val->value) + 2;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
273 complete_name = XtMalloc (complete_length);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 *complete_name = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 strcat (complete_name, resourced_name);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
276 strcat (complete_name, " ");
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
277 strcat (complete_name, val->value);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
278 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
279
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 val->toolkit_data = complete_name;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 val->free_toolkit_data = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 return (char*)val->toolkit_data;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 /* Returns the sizes of an item */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
288 size_menu_item (mw, val, horizontal_p, label_width, rest_width, height)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
289 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
290 widget_value* val;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
291 int horizontal_p;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
292 int* label_width;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
293 int* rest_width;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
294 int* height;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 if (all_dashes_p (val->name))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 *height = 2;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 *label_width = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 *rest_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 *height =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 mw->menu.font->ascent + mw->menu.font->descent
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 + 2 * mw->menu.vertical_spacing + 2 * mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 *label_width =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 string_width (mw, resource_widget_value (mw, val))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
310 + mw->menu.horizontal_spacing + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
311
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 *rest_width = mw->menu.horizontal_spacing + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 if (!horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 if (val->contents)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316 *rest_width += arrow_width (mw) + mw->menu.arrow_spacing;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 else if (val->key)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 *rest_width +=
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 string_width (mw, val->key) + mw->menu.arrow_spacing;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
325 size_menu (mw, level)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
326 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
327 int level;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 int label_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 int rest_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 int max_rest_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 int height = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 int horizontal_p = mw->menu.horizontal && (level == 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 widget_value* val;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 window_state* ws;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 if (level >= mw->menu.old_depth)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 abort ();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 ws = &mw->menu.windows [level];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 ws->width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 ws->height = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 ws->label_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 for (val = mw->menu.old_stack [level]->contents; val; val = val->next)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 size_menu_item (mw, val, horizontal_p, &label_width, &rest_width,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 &height);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 ws->width += label_width + rest_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352 if (height > ws->height)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 ws->height = height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 if (label_width > ws->label_width)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
358 ws->label_width = label_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
359 if (rest_width > max_rest_width)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360 max_rest_width = rest_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
361 ws->height += height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
362 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 ws->label_width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 ws->width = ws->label_width + max_rest_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 ws->width += 2 * mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 ws->height += 2 * mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 /* Display code */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
377 draw_arrow (mw, window, gc, x, y, width)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
378 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
379 Window window;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
380 GC gc;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
381 int x;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
382 int y;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
383 int width;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 XPoint points [3];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 points [0].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 points [0].y = y + mw->menu.font->ascent;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 points [1].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 points [1].y = y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 points [2].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 points [2].y = y + mw->menu.font->ascent / 2;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 XFillPolygon (XtDisplay (mw), window, gc, points, 3, Convex,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 CoordModeOrigin);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
398 draw_shadow_rectangle (mw, window, x, y, width, height, erase_p)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
399 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
400 Window window;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
401 int x;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
402 int y;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
403 int width;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
404 int height;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
405 int erase_p;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
406 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 Display *dpy = XtDisplay (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
408 GC top_gc = !erase_p ? mw->menu.shadow_top_gc : mw->menu.background_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
409 GC bottom_gc = !erase_p ? mw->menu.shadow_bottom_gc : mw->menu.background_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
410 int thickness = mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
411 XPoint points [4];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
412 points [0].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 points [0].y = y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 points [1].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
415 points [1].y = y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
416 points [2].x = x + width - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
417 points [2].y = y + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 points [3].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 points [3].y = y + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 points [0].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422 points [0].y = y + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
423 points [1].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
424 points [1].y = y + height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
425 points [2].x = x + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
426 points [2].y = y + height - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
427 points [3].x = x + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
428 points [3].y = y + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
429 XFillPolygon (dpy, window, top_gc, points, 4, Convex, CoordModeOrigin);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
430 points [0].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
431 points [0].y = y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
432 points [1].x = x + width - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
433 points [1].y = y + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
434 points [2].x = x + width - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
435 points [2].y = y + height - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
436 points [3].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 points [3].y = y + height - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
438 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 points [0].x = x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
440 points [0].y = y + height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
441 points [1].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
442 points [1].y = y + height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
443 points [2].x = x + width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444 points [2].y = y + height - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 points [3].x = x + thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 points [3].y = y + height - thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
447 XFillPolygon (dpy, window, bottom_gc, points, 4, Convex, CoordModeOrigin);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
448 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
450
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
451 /* Display the menu item and increment where.x and where.y to show how large
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452 ** the menu item was.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
453 */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
454 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
455 display_menu_item (mw, val, ws, where, highlighted_p, horizontal_p, just_compute_p)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
456 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
457 widget_value* val;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
458 window_state* ws;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
459 XPoint* where;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
460 Boolean highlighted_p;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
461 Boolean horizontal_p;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
462 Boolean just_compute_p;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 GC deco_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 GC text_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 int font_ascent = mw->menu.font->ascent;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 int font_descent = mw->menu.font->descent;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 int shadow = mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469 int separator_p = all_dashes_p (val->name);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 int h_spacing = mw->menu.horizontal_spacing;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 int v_spacing = mw->menu.vertical_spacing;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 int label_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 int rest_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 int height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 int width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476 int button_p;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 /* compute the sizes of the item */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 size_menu_item (mw, val, horizontal_p, &label_width, &rest_width, &height);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
481 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
482 width = label_width + rest_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
483 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 label_width = ws->label_width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 width = ws->width - 2 * shadow;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 /* see if it should be a button in the menubar */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 button_p = horizontal_p && val->call_data;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
492 /* Only highlight an enabled item that has a callback. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
493 if (highlighted_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
494 if (!val->enabled || !(val->call_data || val->contents))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
495 highlighted_p = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
496
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 /* do the drawing. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 if (!just_compute_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
499 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
500 /* Add the shadow border of the containing menu */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
501 int x = where->x + shadow;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502 int y = where->y + shadow;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
504 /* pick the foreground and background GC. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
505 if (val->enabled)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
506 text_gc = button_p ? mw->menu.button_gc : mw->menu.foreground_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
507 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
508 text_gc =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
509 button_p ? mw->menu.inactive_button_gc : mw->menu.inactive_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
510 deco_gc = mw->menu.foreground_gc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
511
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
512 if (separator_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
513 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
514 XDrawLine (XtDisplay (mw), ws->window, mw->menu.shadow_bottom_gc,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
515 x, y, x + width, y);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
516 XDrawLine (XtDisplay (mw), ws->window, mw->menu.shadow_top_gc,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
517 x, y + 1, x + width, y + 1);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
518 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
519 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
520 {
9227
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
521 int x_offset = x + h_spacing + shadow;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
522 char* display_string = resource_widget_value (mw, val);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
523 draw_shadow_rectangle (mw, ws->window, x, y, width, height, True);
9227
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
524
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
525 /* Deal with centering a menu title. */
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
526 if (!horizontal_p && !val->contents && !val->call_data)
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
527 {
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
528 int l = string_width (mw, display_string);
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
529
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
530 if (width > l)
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
531 x_offset = (width - l) >> 1;
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
532 }
968bb25ec1af (display_menu_item): Add support for displaying the title in pop up menus.
Paul Reilly <pmr@pajato.com>
parents: 9092
diff changeset
533 XDrawString (XtDisplay (mw), ws->window, text_gc, x_offset,
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534 y + v_spacing + shadow + font_ascent,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 display_string, strlen (display_string));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
536
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 if (!horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539 if (val->contents)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
540 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
541 int a_w = arrow_width (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
542 draw_arrow (mw, ws->window, deco_gc,
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
543 x + width - arrow_width (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
544 - mw->menu.horizontal_spacing
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
545 - mw->menu.shadow_thickness,
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 y + v_spacing + shadow, a_w);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
548 else if (val->key)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 XDrawString (XtDisplay (mw), ws->window, text_gc,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
551 x + label_width + mw->menu.arrow_spacing,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 y + v_spacing + shadow + font_ascent,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 val->key, strlen (val->key));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
556
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557 else if (button_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
558 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
559 #if 1
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
560 XDrawRectangle (XtDisplay (mw), ws->window, deco_gc,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
561 x + shadow, y + shadow,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
562 label_width + h_spacing - 1,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
563 font_ascent + font_descent + 2 * v_spacing - 1);
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
564 draw_shadow_rectangle (mw, ws->window, x, y, width, height,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
565 False);
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
566 #else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 highlighted_p = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 #endif
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 }
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
570 else
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
571 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
572 XDrawRectangle (XtDisplay (mw), ws->window,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
573 mw->menu.background_gc,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
574 x + shadow, y + shadow,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
575 label_width + h_spacing - 1,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
576 font_ascent + font_descent + 2 * v_spacing - 1);
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
577 draw_shadow_rectangle (mw, ws->window, x, y, width, height,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
578 True);
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
579 }
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
580
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
581 if (highlighted_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
582 draw_shadow_rectangle (mw, ws->window, x, y, width, height, False);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 where->x += width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 where->y += height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
591 display_menu (mw, level, just_compute_p, highlighted_pos, hit, hit_return,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
592 this, that)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
593 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
594 int level;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
595 Boolean just_compute_p;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
596 XPoint* highlighted_pos;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
597 XPoint* hit;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
598 widget_value** hit_return;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
599 widget_value* this;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
600 widget_value* that;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 widget_value* val;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 widget_value* following_item;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
604 window_state* ws;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
605 XPoint where;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 int horizontal_p = mw->menu.horizontal && (level == 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 int highlighted_p;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
608 int just_compute_this_one_p;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
609
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
610 if (level >= mw->menu.old_depth)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
611 abort ();
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 if (level < mw->menu.old_depth - 1)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 following_item = mw->menu.old_stack [level + 1];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
615 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
616 following_item = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 if (hit)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 *hit_return = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 where.x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 where.y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 ws = &mw->menu.windows [level];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 for (val = mw->menu.old_stack [level]->contents; val; val = val->next)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 highlighted_p = val == following_item;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 if (highlighted_p && highlighted_pos)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 highlighted_pos->x = where.x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
632 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 highlighted_pos->y = where.y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 just_compute_this_one_p =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 just_compute_p || ((this || that) && val != this && val != that);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 display_menu_item (mw, val, ws, &where, highlighted_p, horizontal_p,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 just_compute_this_one_p);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642 if (highlighted_p && highlighted_pos)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
643 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 highlighted_pos->y = where.y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
647 highlighted_pos->x = where.x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
648 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
649
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
650 if (hit
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
651 && !*hit_return
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652 && (horizontal_p ? hit->x < where.x : hit->y < where.y)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 && !all_dashes_p (val->name))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 *hit_return = val;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
655
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
656 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 where.y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 where.x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 if (!just_compute_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 draw_shadow_rectangle (mw, ws->window, 0, 0, ws->width, ws->height, False);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 /* Motion code */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
667 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
668 set_new_state (mw, val, level)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
669 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
670 widget_value* val;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
671 int level;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
672 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 mw->menu.new_depth = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 for (i = 0; i < level; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 push_new_stack (mw, mw->menu.old_stack [i]);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 push_new_stack (mw, val);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
682 make_windows_if_needed (mw, n)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
683 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
684 int n;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
685 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
686 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 int start_at;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 XSetWindowAttributes xswa;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 int mask;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
690 Window root = RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw)));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691 window_state* windows;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
693 if (mw->menu.windows_length >= n)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 return;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
695
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
696 xswa.save_under = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 xswa.override_redirect = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 xswa.background_pixel = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
699 xswa.border_pixel = mw->core.border_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 xswa.event_mask =
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
701 ExposureMask | PointerMotionMask | PointerMotionHintMask
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 | ButtonReleaseMask | ButtonPressMask;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 xswa.cursor = mw->menu.cursor_shape;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 mask = CWSaveUnder | CWOverrideRedirect | CWBackPixel | CWBorderPixel
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
705 | CWEventMask | CWCursor;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
706
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
707 if (!mw->menu.windows)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
708 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
709 mw->menu.windows =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
710 (window_state*)XtMalloc (n * sizeof (window_state));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
711 start_at = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
712 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
713 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
715 mw->menu.windows =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
716 (window_state*)XtRealloc ((char*)mw->menu.windows,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
717 n * sizeof (window_state));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
718 start_at = mw->menu.windows_length;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
719 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 mw->menu.windows_length = n;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
721
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
722 windows = mw->menu.windows;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
723
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 for (i = start_at; i < n; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 windows [i].x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
727 windows [i].y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
728 windows [i].width = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
729 windows [i].height = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
730 windows [i].window =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
731 XCreateWindow (XtDisplay (mw), root, 0, 0, 1, 1,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
732 0, 0, CopyFromParent, CopyFromParent, mask, &xswa);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
733 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
734 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
735
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
736 /* Make the window fit in the screen */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
737 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
738 fit_to_screen (mw, ws, previous_ws, horizontal_p)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
739 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
740 window_state* ws;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
741 window_state* previous_ws;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
742 Boolean horizontal_p;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 int screen_width = WidthOfScreen (XtScreen (mw));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
745 int screen_height = HeightOfScreen (XtScreen (mw));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
746
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
747 if (ws->x < 0)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
748 ws->x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
749 else if (ws->x + ws->width > screen_width)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
750 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
751 if (!horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
752 ws->x = previous_ws->x - ws->width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
753 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 ws->x = screen_width - ws->width;
9395
d954daf0a213 (fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents: 9227
diff changeset
755 if (ws->x < 0)
d954daf0a213 (fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents: 9227
diff changeset
756 ws->x = 0;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 if (ws->y < 0)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 ws->y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 else if (ws->y + ws->height > screen_height)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 if (horizontal_p)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 ws->y = previous_ws->y - ws->height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 ws->y = screen_height - ws->height;
9395
d954daf0a213 (fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents: 9227
diff changeset
766 if (ws->y < 0)
d954daf0a213 (fit_to_screen): Don't put the menu off the left or top.
Richard M. Stallman <rms@gnu.org>
parents: 9227
diff changeset
767 ws->y = 0;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
769 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
771 /* Updates old_stack from new_stack and redisplays. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
772 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
773 remap_menubar (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
774 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 int last_same;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 XPoint selection_position;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779 int old_depth = mw->menu.old_depth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780 int new_depth = mw->menu.new_depth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 widget_value** old_stack;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 widget_value** new_stack;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 window_state* windows;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
784 widget_value* old_selection;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
785 widget_value* new_selection;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
786
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 /* Check that enough windows and old_stack are ready. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 make_windows_if_needed (mw, new_depth);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
789 make_old_stack_space (mw, new_depth);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
790 windows = mw->menu.windows;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
791 old_stack = mw->menu.old_stack;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
792 new_stack = mw->menu.new_stack;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
794 /* compute the last identical different entry */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
795 for (i = 1; i < old_depth && i < new_depth; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
796 if (old_stack [i] != new_stack [i])
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
797 break;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
798 last_same = i - 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
799
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
800 /* Memorize the previously selected item to be able to refresh it */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
801 old_selection = last_same + 1 < old_depth ? old_stack [last_same + 1] : NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
802 if (old_selection && !old_selection->enabled)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
803 old_selection = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
804 new_selection = last_same + 1 < new_depth ? new_stack [last_same + 1] : NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
805 if (new_selection && !new_selection->enabled)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
806 new_selection = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
807
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
808 /* updates old_state from new_state. It has to be done now because
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
809 display_menu (called below) uses the old_stack to know what to display. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
810 for (i = last_same + 1; i < new_depth; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
811 old_stack [i] = new_stack [i];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 mw->menu.old_depth = new_depth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
814 /* refresh the last seletion */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
815 selection_position.x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816 selection_position.y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
817 display_menu (mw, last_same, new_selection == old_selection,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
818 &selection_position, NULL, NULL, old_selection, new_selection);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
819
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
820 /* Now popup the new menus */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
821 for (i = last_same + 1; i < new_depth && new_stack [i]->contents; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
822 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
823 window_state* previous_ws = &windows [i - 1];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
824 window_state* ws = &windows [i];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
825
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
826 ws->x =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
827 previous_ws->x + selection_position.x + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
828 if (!mw->menu.horizontal || i > 1)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
829 ws->x += mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
830 ws->y =
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
831 previous_ws->y + selection_position.y + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
832
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
833 size_menu (mw, i);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
834
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
835 fit_to_screen (mw, ws, previous_ws, mw->menu.horizontal && i == 1);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
836
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
837 XClearWindow (XtDisplay (mw), ws->window);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
838 XMoveResizeWindow (XtDisplay (mw), ws->window, ws->x, ws->y,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
839 ws->width, ws->height);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
840 XMapRaised (XtDisplay (mw), ws->window);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
841 display_menu (mw, i, False, &selection_position, NULL, NULL, NULL, NULL);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
842 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
843
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
844 /* unmap the menus that popped down */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
845 for (i = new_depth - 1; i < old_depth; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
846 if (i >= new_depth || !new_stack [i]->contents)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
847 XUnmapWindow (XtDisplay (mw), windows [i].window);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
848 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
849
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
850 static Boolean
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
851 motion_event_is_in_menu (mw, ev, level, relative_pos)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
852 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
853 XMotionEvent* ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
854 int level;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
855 XPoint* relative_pos;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
856 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
857 window_state* ws = &mw->menu.windows [level];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
858 int x = level == 0 ? ws->x : ws->x + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
859 int y = level == 0 ? ws->y : ws->y + mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 relative_pos->x = ev->x_root - x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 relative_pos->y = ev->y_root - y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 return (x < ev->x_root && ev->x_root < x + ws->width
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
863 && y < ev->y_root && ev->y_root < y + ws->height);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
865
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 static Boolean
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
867 map_event_to_widget_value (mw, ev, val, level)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
868 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
869 XMotionEvent* ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
870 widget_value** val;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
871 int* level;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 XPoint relative_pos;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
875 window_state* ws;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
876
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
877 *val = NULL;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
878
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
879 /* Find the window */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 for (i = mw->menu.old_depth - 1; i >= 0; i--)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 ws = &mw->menu.windows [i];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 if (ws && motion_event_is_in_menu (mw, ev, i, &relative_pos))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
884 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
885 display_menu (mw, i, True, NULL, &relative_pos, val, NULL, NULL);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
886
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
887 if (*val)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
888 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
889 *level = i + 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
890 return True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
891 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
892 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
893 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
894 return False;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
895 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
896
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
897 /* Procedures */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
898 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
899 make_drawing_gcs (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
900 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
901 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
902 XGCValues xgcv;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
903
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
904 xgcv.font = mw->menu.font->fid;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
905 xgcv.foreground = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
906 xgcv.background = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
907 mw->menu.foreground_gc = XtGetGC ((Widget)mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
908 GCFont | GCForeground | GCBackground,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
909 &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
910
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
911 xgcv.font = mw->menu.font->fid;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
912 xgcv.foreground = mw->menu.button_foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
913 xgcv.background = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
914 mw->menu.button_gc = XtGetGC ((Widget)mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
915 GCFont | GCForeground | GCBackground,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
916 &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
917
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
918 xgcv.font = mw->menu.font->fid;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
919 xgcv.foreground = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
920 xgcv.background = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
921 xgcv.fill_style = FillStippled;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
922 xgcv.stipple = mw->menu.gray_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
923 mw->menu.inactive_gc = XtGetGC ((Widget)mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
924 (GCFont | GCForeground | GCBackground
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
925 | GCFillStyle | GCStipple), &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
926
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
927 xgcv.font = mw->menu.font->fid;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
928 xgcv.foreground = mw->menu.button_foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 xgcv.background = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 xgcv.fill_style = FillStippled;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
931 xgcv.stipple = mw->menu.gray_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
932 mw->menu.inactive_button_gc = XtGetGC ((Widget)mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
933 (GCFont | GCForeground | GCBackground
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
934 | GCFillStyle | GCStipple), &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
935
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
936 xgcv.font = mw->menu.font->fid;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 xgcv.foreground = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
938 xgcv.background = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
939 mw->menu.background_gc = XtGetGC ((Widget)mw,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
940 GCFont | GCForeground | GCBackground,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
941 &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
944 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
945 release_drawing_gcs (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
946 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
947 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
948 XtReleaseGC ((Widget) mw, mw->menu.foreground_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
949 XtReleaseGC ((Widget) mw, mw->menu.button_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
950 XtReleaseGC ((Widget) mw, mw->menu.inactive_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
951 XtReleaseGC ((Widget) mw, mw->menu.inactive_button_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
952 XtReleaseGC ((Widget) mw, mw->menu.background_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
953 /* let's get some segvs if we try to use these... */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
954 mw->menu.foreground_gc = (GC) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
955 mw->menu.button_gc = (GC) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
956 mw->menu.inactive_gc = (GC) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
957 mw->menu.inactive_button_gc = (GC) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
958 mw->menu.background_gc = (GC) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
959 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
960
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
961 #define MINL(x,y) ((((unsigned long) (x)) < ((unsigned long) (y))) \
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
962 ? ((unsigned long) (x)) : ((unsigned long) (y)))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
963
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
965 make_shadow_gcs (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
966 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
967 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
968 XGCValues xgcv;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
969 unsigned long pm = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
970 Display *dpy = XtDisplay ((Widget) mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 Colormap cmap = DefaultColormapOfScreen (XtScreen ((Widget) mw));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
972 XColor topc, botc;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
973 int top_frobbed = 0, bottom_frobbed = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
974
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
975 if (mw->menu.top_shadow_color == -1)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
976 mw->menu.top_shadow_color = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
977 if (mw->menu.bottom_shadow_color == -1)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
978 mw->menu.bottom_shadow_color = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
979
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
980 if (mw->menu.top_shadow_color == mw->core.background_pixel ||
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
981 mw->menu.top_shadow_color == mw->menu.foreground)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
982 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
983 topc.pixel = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
984 XQueryColor (dpy, cmap, &topc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
985 /* don't overflow/wrap! */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
986 topc.red = MINL (65535, topc.red * 1.2);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
987 topc.green = MINL (65535, topc.green * 1.2);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
988 topc.blue = MINL (65535, topc.blue * 1.2);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
989 if (XAllocColor (dpy, cmap, &topc))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
990 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
991 mw->menu.top_shadow_color = topc.pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
992 top_frobbed = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
993 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
994 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
995 if (mw->menu.bottom_shadow_color == mw->menu.foreground ||
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
996 mw->menu.bottom_shadow_color == mw->core.background_pixel)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
997 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
998 botc.pixel = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
999 XQueryColor (dpy, cmap, &botc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1000 botc.red *= 0.6;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1001 botc.green *= 0.6;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1002 botc.blue *= 0.6;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1003 if (XAllocColor (dpy, cmap, &botc))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1004 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1005 mw->menu.bottom_shadow_color = botc.pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1006 bottom_frobbed = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1007 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1008 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1009
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1010 if (top_frobbed && bottom_frobbed)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1011 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1012 int top_avg = ((topc.red / 3) + (topc.green / 3) + (topc.blue / 3));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1013 int bot_avg = ((botc.red / 3) + (botc.green / 3) + (botc.blue / 3));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1014 if (bot_avg > top_avg)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1015 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1016 Pixel tmp = mw->menu.top_shadow_color;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1017 mw->menu.top_shadow_color = mw->menu.bottom_shadow_color;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1018 mw->menu.bottom_shadow_color = tmp;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1019 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1020 else if (topc.pixel == botc.pixel)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1021 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1022 if (botc.pixel == mw->menu.foreground)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1023 mw->menu.top_shadow_color = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1024 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1025 mw->menu.bottom_shadow_color = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1026 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1027 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1028
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1029 if (!mw->menu.top_shadow_pixmap &&
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1030 mw->menu.top_shadow_color == mw->core.background_pixel)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1031 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1032 mw->menu.top_shadow_pixmap = mw->menu.gray_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1033 mw->menu.top_shadow_color = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1034 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1035 if (!mw->menu.bottom_shadow_pixmap &&
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1036 mw->menu.bottom_shadow_color == mw->core.background_pixel)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1037 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1038 mw->menu.bottom_shadow_pixmap = mw->menu.gray_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1039 mw->menu.bottom_shadow_color = mw->menu.foreground;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1040 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1041
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1042 xgcv.fill_style = FillStippled;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1043 xgcv.foreground = mw->menu.top_shadow_color;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1044 xgcv.stipple = mw->menu.top_shadow_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1045 pm = (xgcv.stipple ? GCStipple|GCFillStyle : 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1046 mw->menu.shadow_top_gc = XtGetGC ((Widget)mw, GCForeground | pm, &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1047
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1048 xgcv.foreground = mw->menu.bottom_shadow_color;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1049 xgcv.stipple = mw->menu.bottom_shadow_pixmap;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1050 pm = (xgcv.stipple ? GCStipple|GCFillStyle : 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1051 mw->menu.shadow_bottom_gc = XtGetGC ((Widget)mw, GCForeground | pm, &xgcv);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1052 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1053
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1054
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1055 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1056 release_shadow_gcs (mw)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1057 XlwMenuWidget mw;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1058 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1059 XtReleaseGC ((Widget) mw, mw->menu.shadow_top_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1060 XtReleaseGC ((Widget) mw, mw->menu.shadow_bottom_gc);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1061 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1062
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1063 static void
9746
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1064 XlwMenuInitialize (request, mw, args, num_args)
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1065 Widget request;
9746
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1066 XlwMenuWidget mw;
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1067 ArgList args;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1068 Cardinal *num_args;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1069 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1070 /* Get the GCs and the widget size */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1071 XSetWindowAttributes xswa;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1072 int mask;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1073
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1074 Window window = RootWindowOfScreen (DefaultScreenOfDisplay (XtDisplay (mw)));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1075 Display* display = XtDisplay (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1076
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1077 #if 0
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1078 widget_value *tem = (widget_value *) XtMalloc (sizeof (widget_value));
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1079
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1080 /* _XtCreate is freeing the object that was passed to us,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1081 so make a copy that we will actually keep. */
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1082 lwlib_bcopy (mw->menu.contents, tem, sizeof (widget_value));
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1083 mw->menu.contents = tem;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1084 #endif
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1085
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1086 /* mw->menu.cursor = XCreateFontCursor (display, mw->menu.cursor_shape); */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1087 mw->menu.cursor = mw->menu.cursor_shape;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1088
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1089 mw->menu.gray_pixmap = XCreatePixmapFromBitmapData (display, window,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1090 gray_bits, gray_width,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1091 gray_height, 1, 0, 1);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1092
9746
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1093 /* I don't understand why this ends up 0 sometimes,
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1094 but it does. This kludge works around it.
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1095 Can anyone find a real fix? -- rms. */
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1096 if (mw->menu.font == 0)
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1097 mw->menu.font = xlwmenu_default_font;
49e984bf6689 (xlwmenu_default_font): New global variable.
Richard M. Stallman <rms@gnu.org>
parents: 9700
diff changeset
1098
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1099 make_drawing_gcs (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1100 make_shadow_gcs (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1101
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 xswa.background_pixel = mw->core.background_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1103 xswa.border_pixel = mw->core.border_pixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1104 mask = CWBackPixel | CWBorderPixel;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1106 mw->menu.popped_up = False;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1107
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1108 mw->menu.old_depth = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1109 mw->menu.old_stack = (widget_value**)XtMalloc (sizeof (widget_value*));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1110 mw->menu.old_stack_length = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1111 mw->menu.old_stack [0] = mw->menu.contents;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1112
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1113 mw->menu.new_depth = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1114 mw->menu.new_stack = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1115 mw->menu.new_stack_length = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1116 push_new_stack (mw, mw->menu.contents);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1117
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1118 mw->menu.windows = (window_state*)XtMalloc (sizeof (window_state));
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1119 mw->menu.windows_length = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1120 mw->menu.windows [0].x = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1121 mw->menu.windows [0].y = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1122 mw->menu.windows [0].width = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1123 mw->menu.windows [0].height = 0;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 size_menu (mw, 0);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1126 mw->core.width = mw->menu.windows [0].width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1127 mw->core.height = mw->menu.windows [0].height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1128 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1129
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1130 static void
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1131 XlwMenuClassInitialize ()
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1132 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1133 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1134
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1135 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1136 XlwMenuRealize (w, valueMask, attributes)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1137 Widget w;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1138 Mask *valueMask;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1139 XSetWindowAttributes *attributes;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1140 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1141 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1142 XSetWindowAttributes xswa;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1143 int mask;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1144
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1145 (*xlwMenuWidgetClass->core_class.superclass->core_class.realize)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1146 (w, valueMask, attributes);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1147
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1148 xswa.save_under = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1149 xswa.cursor = mw->menu.cursor_shape;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1150 mask = CWSaveUnder | CWCursor;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1151 XChangeWindowAttributes (XtDisplay (w), XtWindow (w), mask, &xswa);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1152
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1153 mw->menu.windows [0].window = XtWindow (w);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1154 mw->menu.windows [0].x = w->core.x;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1155 mw->menu.windows [0].y = w->core.y;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1156 mw->menu.windows [0].width = w->core.width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1157 mw->menu.windows [0].height = w->core.height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1158 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1159
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1160 /* Only the toplevel menubar/popup is a widget so it's the only one that
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1161 receives expose events through Xt. So we repaint all the other panes
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1162 when receiving an Expose event. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1163 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1164 XlwMenuRedisplay (w, ev, region)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1165 Widget w;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1166 XEvent* ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1167 Region region;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1168 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1169 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1170 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1171
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1172 /* If we have a depth beyond 1, it's because a submenu was displayed.
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1173 If the submenu has been destroyed, set the depth back to 1. */
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1174 if (submenu_destroyed)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1175 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1176 mw->menu.old_depth = 1;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1177 submenu_destroyed = 0;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1178 }
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1179
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1180 for (i = 0; i < mw->menu.old_depth; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1181 display_menu (mw, i, False, NULL, NULL, NULL, NULL, NULL);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1182 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1183
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1185 XlwMenuDestroy (w)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1186 Widget w;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1187 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1188 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1189 XlwMenuWidget mw = (XlwMenuWidget) w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1191 if (pointer_grabbed)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1192 XtUngrabPointer ((Widget)w, CurrentTime);
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1193 pointer_grabbed = 0;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1194
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1195 submenu_destroyed = 1;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1196
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1197 release_drawing_gcs (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1198 release_shadow_gcs (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1200 /* this doesn't come from the resource db but is created explicitly
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1201 so we must free it ourselves. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1202 XFreePixmap (XtDisplay (mw), mw->menu.gray_pixmap);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1203 mw->menu.gray_pixmap = (Pixmap) -1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1204
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1205 #if 0
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1206 /* Do free mw->menu.contents because nowadays we copy it
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1207 during initialization. */
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1208 XtFree (mw->menu.contents);
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1209 #endif
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1210
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1211 /* Don't free mw->menu.contents because that comes from our creator.
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1212 The `*_stack' elements are just pointers into `contents' so leave
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1213 that alone too. But free the stacks themselves. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1214 if (mw->menu.old_stack) XtFree ((char *) mw->menu.old_stack);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1215 if (mw->menu.new_stack) XtFree ((char *) mw->menu.new_stack);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1216
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1217 /* Remember, you can't free anything that came from the resource
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1218 database. This includes:
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 mw->menu.cursor
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 mw->menu.top_shadow_pixmap
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 mw->menu.bottom_shadow_pixmap
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 mw->menu.font
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1223 Also the color cells of top_shadow_color, bottom_shadow_color,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1224 foreground, and button_foreground will never be freed until this
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1225 client exits. Nice, eh?
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1226 */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1227
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1228 /* start from 1 because the one in slot 0 is w->core.window */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1229 for (i = 1; i < mw->menu.windows_length; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1230 XDestroyWindow (XtDisplay (mw), mw->menu.windows [i].window);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1231 if (mw->menu.windows)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1232 XtFree ((char *) mw->menu.windows);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1233 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1234
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1235 static Boolean
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1236 XlwMenuSetValues (current, request, new)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1237 Widget current;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1238 Widget request;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1239 Widget new;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1240 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1241 XlwMenuWidget oldmw = (XlwMenuWidget)current;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1242 XlwMenuWidget newmw = (XlwMenuWidget)new;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1243 Boolean redisplay = False;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1244 int i;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1245
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1246 if (newmw->menu.contents
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1247 && newmw->menu.contents->contents
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1248 && newmw->menu.contents->contents->change >= VISIBLE_CHANGE)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1249 redisplay = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1250
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1251 if (newmw->core.background_pixel != oldmw->core.background_pixel
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1252 || newmw->menu.foreground != oldmw->menu.foreground
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1253 || newmw->menu.font != oldmw->menu.font)
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1254 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1255 release_drawing_gcs (newmw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1256 make_drawing_gcs (newmw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1257 redisplay = True;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1258
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1259 for (i = 0; i < oldmw->menu.windows_length; i++)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1260 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1261 XSetWindowBackground (XtDisplay (oldmw),
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1262 oldmw->menu.windows [i].window,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1263 newmw->core.background_pixel);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1264 /* clear windows and generate expose events */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1265 XClearArea (XtDisplay (oldmw), oldmw->menu.windows[i].window,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1266 0, 0, 0, 0, True);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1267 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1268 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1269
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1270 return redisplay;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1271 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1272
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1273 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1274 XlwMenuResize (w)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1275 Widget w;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1276 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1277 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1278
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1279 if (mw->menu.popped_up)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1280 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1281 /* Don't allow the popup menu to resize itself. */
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1282 mw->core.width = mw->menu.windows [0].width;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1283 mw->core.height = mw->menu.windows [0].height;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1284 mw->core.parent->core.width = mw->core.width ;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1285 mw->core.parent->core.height = mw->core.height ;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1286 }
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1287 else
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1288 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1289 mw->menu.windows [0].width = mw->core.width;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1290 mw->menu.windows [0].height = mw->core.height;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1291 }
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1292 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1293
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1294 /* Action procedures */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1295 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1296 handle_single_motion_event (mw, ev)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1297 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1298 XMotionEvent* ev;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1299 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1300 widget_value* val;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1301 int level;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1302
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1303 if (!map_event_to_widget_value (mw, ev, &val, &level))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1304 pop_new_stack_if_no_contents (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1305 else
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1306 set_new_state (mw, val, level);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1307 remap_menubar (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1308
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1309 /* Sync with the display. Makes it feel better on X terms. */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1310 XSync (XtDisplay (mw), False);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1311 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1312
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1313 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1314 handle_motion_event (mw, ev)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1315 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1316 XMotionEvent* ev;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1317 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1318 int x = ev->x_root;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1319 int y = ev->y_root;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1320 int state = ev->state;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1321
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1322 handle_single_motion_event (mw, ev);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1323
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1324 /* allow motion events to be generated again */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1325 if (ev->is_hint
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1326 && XQueryPointer (XtDisplay (mw), ev->window,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1327 &ev->root, &ev->subwindow,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1328 &ev->x_root, &ev->y_root,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1329 &ev->x, &ev->y,
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1330 &ev->state)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1331 && ev->state == state
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1332 && (ev->x_root != x || ev->y_root != y))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1333 handle_single_motion_event (mw, ev);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1334 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1335
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1336 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1337 Start (w, ev, params, num_params)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1338 Widget w;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1339 XEvent *ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1340 String *params;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1341 Cardinal *num_params;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1342 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1343 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1344
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1345 if (!mw->menu.popped_up)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1346 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1347 menu_post_event = *ev;
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1348 pop_up_menu (mw, ev);
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1349 }
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1350 else
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1351 {
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1352 /* If we push a button while the menu is posted semipermanently,
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1353 releasing the button should always pop the menu down. */
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1354 next_release_must_exit = 1;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1355
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1356 /* notes the absolute position of the menubar window */
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1357 mw->menu.windows [0].x = ev->xmotion.x_root - ev->xmotion.x;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1358 mw->menu.windows [0].y = ev->xmotion.y_root - ev->xmotion.y;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1359
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1360 /* handles the down like a move, slots are compatible */
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1361 handle_motion_event (mw, &ev->xmotion);
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1362 }
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1363 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1364
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1365 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1366 Drag (w, ev, params, num_params)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1367 Widget w;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1368 XEvent *ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1369 String *params;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1370 Cardinal *num_params;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1371 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1372 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1373 handle_motion_event (mw, &ev->xmotion);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1374 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1375
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1376 static void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1377 Select (w, ev, params, num_params)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1378 Widget w;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1379 XEvent *ev;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1380 String *params;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1381 Cardinal *num_params;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1382 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1383 XlwMenuWidget mw = (XlwMenuWidget)w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1384 widget_value* selected_item = mw->menu.old_stack [mw->menu.old_depth - 1];
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1385
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1386 /* If user releases the button quickly, without selecting anything,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1387 after the initial down-click that brought the menu up,
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1388 do nothing. */
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1389 if ((selected_item == 0
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1390 || ((widget_value *) selected_item)->call_data == 0)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1391 && !next_release_must_exit
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1392 && (ev->xbutton.time - menu_post_event.xbutton.time
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1393 < XtGetMultiClickTime (XtDisplay (w))))
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1394 return;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1395
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1396 /* pop down everything. */
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1397 mw->menu.new_depth = 1;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1398 remap_menubar (mw);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1399
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1400 if (mw->menu.popped_up)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1401 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1402 mw->menu.popped_up = False;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1403 XtUngrabPointer ((Widget)mw, ev->xmotion.time);
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1404 if (XtIsShell (XtParent ((Widget) mw)))
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1405 XtPopdown (XtParent ((Widget) mw));
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1406 else
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1407 {
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1408 XtRemoveGrab ((Widget) mw);
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1409 display_menu (mw, 0, False, NULL, NULL, NULL, NULL, NULL);
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1410 }
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1411 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1412
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1413 /* callback */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1414 XtCallCallbackList ((Widget)mw, mw->menu.select, (XtPointer)selected_item);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1415 }
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1416
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1417
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1418 /* Special code to pop-up a menu */
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1419 void
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1420 pop_up_menu (mw, event)
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1421 XlwMenuWidget mw;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1422 XButtonPressedEvent* event;
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1423 {
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1424 int x = event->x_root;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1425 int y = event->y_root;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1426 int w;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1427 int h;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1428 int borderwidth = mw->menu.shadow_thickness;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1429 Screen* screen = XtScreen (mw);
9700
d09dc2f44ecb (pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents: 9395
diff changeset
1430 Display *display = XtDisplay (mw);
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1431
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1432 next_release_must_exit = 0;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1433
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1434 XtCallCallbackList ((Widget)mw, mw->menu.open, NULL);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1435
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1436 if (XtIsShell (XtParent ((Widget)mw)))
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1437 size_menu (mw, 0);
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1438
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1439 w = mw->menu.windows [0].width;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1440 h = mw->menu.windows [0].height;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1441
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1442 x -= borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1443 y -= borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1444 if (x < borderwidth)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1445 x = borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1446 if (x + w + 2 * borderwidth > WidthOfScreen (screen))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1447 x = WidthOfScreen (screen) - w - 2 * borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1448 if (y < borderwidth)
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1449 y = borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1450 if (y + h + 2 * borderwidth> HeightOfScreen (screen))
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1451 y = HeightOfScreen (screen) - h - 2 * borderwidth;
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1452
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1453 mw->menu.popped_up = True;
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1454 if (XtIsShell (XtParent ((Widget)mw)))
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1455 {
9033
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1456 XtConfigureWidget (XtParent ((Widget)mw), x, y, w, h,
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1457 XtParent ((Widget)mw)->core.border_width);
3c36c72db2bb *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 9027
diff changeset
1458 XtPopup (XtParent ((Widget)mw), XtGrabExclusive);
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1459 display_menu (mw, 0, False, NULL, NULL, NULL, NULL, NULL);
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1460 mw->menu.windows [0].x = x + borderwidth;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1461 mw->menu.windows [0].y = y + borderwidth;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1462 }
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1463 else
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1464 {
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1465 XEvent *ev = (XEvent *) event;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1466
9092
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1467 XtAddGrab ((Widget) mw, True, True);
9027
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1468
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1469 /* notes the absolute position of the menubar window */
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1470 mw->menu.windows [0].x = ev->xmotion.x_root - ev->xmotion.x;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1471 mw->menu.windows [0].y = ev->xmotion.y_root - ev->xmotion.y;
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1472 }
07d79cbdfbc9 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 8861
diff changeset
1473
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1474 #ifdef emacs
9700
d09dc2f44ecb (pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents: 9395
diff changeset
1475 x_catch_errors (display);
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1476 #endif
9092
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1477 XtGrabPointer ((Widget)mw, False,
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1478 (PointerMotionMask
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1479 | PointerMotionHintMask
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1480 | ButtonReleaseMask
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1481 | ButtonPressMask),
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1482 GrabModeAsync, GrabModeAsync, None,
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1483 mw->menu.cursor_shape,
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1484 event->time);
0033f98d2ffd Clean up of temporary changes used to try to find a workaround for the
Paul Reilly <pmr@pajato.com>
parents: 9086
diff changeset
1485 pointer_grabbed = 1;
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1486 #ifdef emacs
9700
d09dc2f44ecb (pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents: 9395
diff changeset
1487 if (x_had_errors_p (display))
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1488 {
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1489 pointer_grabbed = 0;
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1490 XtUngrabPointer ((Widget)mw, event->time);
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1491 }
9700
d09dc2f44ecb (pop_up_menu): Pass a Display * to x_catch_errors, etc.
Richard M. Stallman <rms@gnu.org>
parents: 9395
diff changeset
1492 x_uncatch_errors (display);
8860
8e5ef22c9438 *** empty log message ***
Paul Reilly <pmr@pajato.com>
parents: 5654
diff changeset
1493 #endif
5626
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1494
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1495 handle_motion_event (mw, (XMotionEvent*)event);
93bb7e0935ba Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1496 }