From: Jan Djärv <jan.h.d@swipnet.se>
Date: Tue, 19 Jul 2005 09:06:47 +0000 (+0000)
Subject: * lwlib-Xm.c (make_menu_in_widget): Disable drag and drop for
X-Git-Tag: emacs-pretest-22.0.90~8003
X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=7537ab9c84a0e2b9eb3682500b32675ef2014739;p=emacs.git

* lwlib-Xm.c (make_menu_in_widget): Disable drag and drop for
labels in menu bar.
---

diff --git a/lwlib/ChangeLog b/lwlib/ChangeLog
index 17a92de5415..4ce570b989c 100644
--- a/lwlib/ChangeLog
+++ b/lwlib/ChangeLog
@@ -1,3 +1,8 @@
+2005-07-19  Jan Dj,Ad(Brv  <jan.h.d@swipnet.se>
+
+	* lwlib-Xm.c (make_menu_in_widget): Disable drag and drop for 
+	labels in menu bar.
+
 2005-07-04  Lute Kamstra  <lute@gnu.org>
 
 	Update FSF's address in GPL notices.
diff --git a/lwlib/lwlib-Xm.c b/lwlib/lwlib-Xm.c
index 02a2f035aa3..27118d8ab92 100644
--- a/lwlib/lwlib-Xm.c
+++ b/lwlib/lwlib-Xm.c
@@ -524,6 +524,10 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
   Widget* old_children;
   unsigned int old_num_children;
 
+  /* Disable drag and drop for labels in menu bar.  */
+  static char overrideTrans[] = "<Btn2Down>: Noop()";
+  XtTranslations override = XtParseTranslationTable (overrideTrans);
+
   old_children = XtCompositeChildren (widget, &old_num_children);
 
   /* Allocate the children array */
@@ -632,6 +636,8 @@ make_menu_in_widget (instance, widget, val, keep_first_children)
 
 	  XtAddCallback (button, XmNcascadingCallback, xm_pull_down_callback,
 			 (XtPointer)instance);
+          XtOverrideTranslations (button, override);
+
 	}
 
       children[child_index] = button;