/* The lwlib interface to "xlwmenu" menus.
Copyright (C) 1992 Lucid, Inc.
Copyright (C) 1994, 2000, 2001, 2002, 2003, 2004,
- 2005 Free Software Foundation, Inc.
+ 2005, 2006, 2007, 2008, 2009 Free Software Foundation, Inc.
This file is part of the Lucid Widget Library.
#include <config.h>
#endif
+#include <setjmp.h>
#include "lisp.h"
#include "lwlib-Xlw.h"
instance->info->highlight_cb (w, instance->info->id, call_data);
}
+static void
+enter_hook (w, client_data, call_data)
+ Widget w;
+ XtPointer client_data;
+ XtPointer call_data;
+{
+ highlight_hook (w, client_data, call_data);
+}
+
+static void
+leave_hook (w, client_data, call_data)
+ Widget w;
+ XtPointer client_data;
+ XtPointer call_data;
+{
+ highlight_hook (w, client_data, NULL);
+}
+
+
static void
pre_hook (w, client_data, call_data)
Widget w;
XtAddCallback (widget, XtNopen, pre_hook, (XtPointer)instance);
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
- XtAddCallback (widget, XtNhighlightCallback, highlight_hook,
- (XtPointer)instance);
+ XtAddCallback (widget, XtNleaveCallback, leave_hook, (XtPointer)instance);
+ XtAddCallback (widget, XtNenterCallback, enter_hook, (XtPointer)instance);
return widget;
}
popup_shell, al, ac);
XtAddCallback (widget, XtNselect, pick_hook, (XtPointer)instance);
- XtAddCallback (widget, XtNhighlightCallback, highlight_hook,
- (XtPointer)instance);
+ XtAddCallback (widget, XtNleaveCallback, leave_hook, (XtPointer)instance);
+ XtAddCallback (widget, XtNenterCallback, enter_hook, (XtPointer)instance);
return popup_shell;
}