Mercurial > emacs

comparison lwlib/lwlib-Xm.c @ 36766:93e2f21c32bd

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(xm_popup_menu): Don't set XmNmenuPost unless necessary. From Rick Scott <rwscott@alumni.uwaterloo.ca>.
author Gerd Moellmann <gerd@gnu.org>
date Tue, 13 Mar 2001 12:31:36 +0000
parents c94bea694181
children c4fe55798108
comparison
equal deleted inserted replaced
36765:f23a696e7fd0 36766:93e2f21c32bd
1726 event = (XEvent *) &dummy; 1726 event = (XEvent *) &dummy;
1727 } 1727 }
1728 1728
1729 if (event->type == ButtonPress || event->type == ButtonRelease) 1729 if (event->type == ButtonPress || event->type == ButtonRelease)
1730 { 1730 {
1731 /* This is so totally ridiculous: there's NO WAY to tell Motif 1731 /* Setting the menuPost resource only required by Motif 1.1 and
1732 that *any* button can select a menu item. Only one button 1732 LessTif 0.84 and earlier. With later versions of LessTif,
1733 can have that honor. 1733 setting menuPost is unnecessary and may cause problems, so
1734 */ 1734 don't do it. */
1735 char *trans = 0; 1735 #if XmVersion < 1002 || (defined LESSTIF_VERSION && LESSTIF_VERSION < 84)
1736 if (event->xbutton.state & Button5Mask) trans = "<Btn5Down>"; 1736 {
1737 else if (event->xbutton.state & Button4Mask) trans = "<Btn4Down>"; 1737 /* This is so totally ridiculous: there's NO WAY to tell Motif
1738 else if (event->xbutton.state & Button3Mask) trans = "<Btn3Down>"; 1738 that *any* button can select a menu item. Only one button
1739 else if (event->xbutton.state & Button2Mask) trans = "<Btn2Down>"; 1739 can have that honor. */
1740 else if (event->xbutton.state & Button1Mask) trans = "<Btn1Down>"; 1740
1741 if (trans) XtVaSetValues (widget, XmNmenuPost, trans, NULL); 1741 char *trans = 0;
1742 if (event->xbutton.state & Button5Mask) trans = "<Btn5Down>";
1743 else if (event->xbutton.state & Button4Mask) trans = "<Btn4Down>";
1744 else if (event->xbutton.state & Button3Mask) trans = "<Btn3Down>";
1745 else if (event->xbutton.state & Button2Mask) trans = "<Btn2Down>";
1746 else if (event->xbutton.state & Button1Mask) trans = "<Btn1Down>";
1747 if (trans) XtVaSetValues (widget, XmNmenuPost, trans, NULL);
1748 }
1749 #endif
1750
1742 XmMenuPosition (widget, (XButtonPressedEvent *) event); 1751 XmMenuPosition (widget, (XButtonPressedEvent *) event);
1743 } 1752 }
1753
1744 XtManageChild (widget); 1754 XtManageChild (widget);
1745 } 1755 }
1746 1756
1747 static void 1757 static void
1748 set_min_dialog_size (w) 1758 set_min_dialog_size (w)