1 /* The lwlib interface to "xlwmenu" menus.
2 Copyright (C) 1992 Lucid, Inc.
4 This file is part of the Lucid Widget Library.
6 The Lucid Widget Library is free software; you can redistribute it and/or
7 modify it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option)
11 The Lucid Widget Library is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
20 #include "lwlib-Xlw.h"
21 #include <X11/StringDefs.h>
22 #include <X11/IntrinsicP.h>
23 #include <X11/ObjectP.h>
24 #include <X11/CompositeP.h>
25 #include <X11/Shell.h>
28 \f/* Menu callbacks */
30 pre_hook (w
, client_data
, call_data
)
32 XtPointer client_data
;
35 widget_instance
* instance
= (widget_instance
*)client_data
;
38 if (w
->core
.being_destroyed
)
41 val
= lw_get_widget_value_for_widget (instance
, w
);
42 if (instance
->info
->pre_activate_cb
)
43 instance
->info
->pre_activate_cb (w
, instance
->info
->id
,
44 val
? val
->call_data
: NULL
);
48 pick_hook (w
, client_data
, call_data
)
50 XtPointer client_data
;
53 widget_instance
* instance
= (widget_instance
*)client_data
;
54 widget_value
* contents_val
= (widget_value
*)call_data
;
55 widget_value
* widget_val
;
58 if (w
->core
.being_destroyed
)
61 if (instance
->info
->selection_cb
&& contents_val
&& contents_val
->enabled
62 && !contents_val
->contents
)
63 instance
->info
->selection_cb (w
, instance
->info
->id
,
64 contents_val
->call_data
);
66 widget_val
= lw_get_widget_value_for_widget (instance
, w
);
67 widget_arg
= widget_val
? widget_val
->call_data
: NULL
;
68 if (instance
->info
->post_activate_cb
)
69 instance
->info
->post_activate_cb (w
, instance
->info
->id
, widget_arg
);
73 \f/* creation functions */
75 xlw_create_menubar (instance
)
76 widget_instance
* instance
;
80 widget_value
*tem
= (widget_value
*) XtMalloc (sizeof (widget_value
));
82 /* _XtCreate is freeing the object we passed,
83 so make a copy that we free later. */
84 bcopy (instance
->info
->val
, tem
, sizeof (widget_value
));
87 XtVaCreateWidget (instance
->info
->name
, xlwMenuWidgetClass
,
89 XtNmenu
, instance
->info
->val
,
94 XtAddCallback (widget
, XtNopen
, pre_hook
, (XtPointer
)instance
);
95 XtAddCallback (widget
, XtNselect
, pick_hook
, (XtPointer
)instance
);
100 xlw_create_popup_menu (instance
)
101 widget_instance
* instance
;
104 XtCreatePopupShell (instance
->info
->name
, overrideShellWidgetClass
,
105 instance
->parent
, NULL
, 0);
109 widget_value
*tem
= (widget_value
*) XtMalloc (sizeof (widget_value
));
111 /* _XtCreate is freeing the object we passed,
112 so make a copy that we free later. */
113 bcopy (instance
->info
->val
, tem
, sizeof (widget_value
));
116 XtVaCreateManagedWidget ("popup", xlwMenuWidgetClass
,
118 XtNmenu
, instance
->info
->val
,
119 XtNhorizontal
, False
,
124 XtAddCallback (widget
, XtNselect
, pick_hook
, (XtPointer
)instance
);
129 widget_creation_entry
130 xlw_creation_table
[] =
132 {"menubar", xlw_create_menubar
},
133 {"popup", xlw_create_popup_menu
},
138 lw_lucid_widget_p (widget
)
141 WidgetClass the_class
= XtClass (widget
);
142 if (the_class
== xlwMenuWidgetClass
)
144 if (the_class
== overrideShellWidgetClass
)
146 XtClass (((CompositeWidget
)widget
)->composite
.children
[0])
147 == xlwMenuWidgetClass
;
152 xlw_update_one_widget (instance
, widget
, val
, deep_p
)
153 widget_instance
* instance
;
160 if (XtIsShell (widget
))
161 mw
= (XlwMenuWidget
)((CompositeWidget
)widget
)->composite
.children
[0];
163 mw
= (XlwMenuWidget
)widget
;
164 XtVaSetValues (widget
, XtNmenu
, val
, 0);
168 xlw_update_one_value (instance
, widget
, val
)
169 widget_instance
* instance
;
177 xlw_pop_instance (instance
, up
)
178 widget_instance
* instance
;
184 xlw_popup_menu (widget
)
187 XButtonPressedEvent dummy
;
190 if (!XtIsShell (widget
))
193 mw
= (XlwMenuWidget
)((CompositeWidget
)widget
)->composite
.children
[0];
195 dummy
.type
= ButtonPress
;
197 dummy
.send_event
= 0;
198 dummy
.display
= XtDisplay (widget
);
199 dummy
.window
= XtWindow (XtParent (widget
));
200 dummy
.time
= CurrentTime
;
202 XQueryPointer (dummy
.display
, dummy
.window
, &dummy
.root
,
203 &dummy
.subwindow
, &dummy
.x_root
, &dummy
.y_root
,
204 &dummy
.x
, &dummy
.y
, &dummy
.state
);
206 pop_up_menu (mw
, &dummy
);
209 \f/* Destruction of instances */
211 xlw_destroy_instance (instance
)
212 widget_instance
* instance
;
214 if (instance
->widget
)
215 XtDestroyWidget (instance
->widget
);